-
老板,你能公布你的电子邮件地址吗? 直接发给你,就是像我这样无聊的人会帮你做。 毕竟,你的积分真的少了一点。 这两个程序更关注控件的属性设置。
在 1 中,timer1 和 timer2 被启用为 false
multiline=true in text1 in 2 等。
另请注意:2 在运行时输入文本的字段用“空格”分隔。 例如,guocan vb 有两个子段。
答案是 1. dim t1, t2, h, ci as integer
private sub form_click()
trueline (-100, 0)-(100, 0)
end sub
private sub form_load()
0ci = 1
end sub
private sub timer1_timer()
t1 = t1 + 1
100 / ci - t1
if t1 = int(100 / ci) then
falsetruet1 = 0
ci = ci + 1
end if
if int(100 / ci) = 0 then = false
clsprint
end sub
private sub timer2_timer()
t2 = t2 + 1
t2if t2 = int(100 / ci) then
true false
t2 = 0
ci = ci + 1
end if
if int(100 / ci) = 0 then = false
clsprint
end sub
答案 2. dim st(100) as string
dim shu(100) as integer
dim zf, stri as string
dim t, max, k as integer
private sub form_click()
stri =
for i = 1 to len(
zf = mid(stri, i, 1)
if asc(zf) = 32 then
t = t + 1
end if
st(t) = st(t) +zf
next i
max = 0
for i = 0 to t
shu(i) = len(st(i))
if max < shu(i) then max = shu(i): k = i
next i
print "角色是:" & st(k), "字节数为:" & max
end sub
-
15分? 我想没有人能如此自由地帮助你获得 15 分的那么长 **。
-
您需要做的就是使用替换功能。
格式:变量 = replace(源字符串、要替换的内容、要替换的内容)。
然后 msgbox 输出此变量。
-
根据您的要求:
设计一个替换字符的程序,界面如图所示。 在“原始字符串”中输入字符串,在“指定字符”中输入原始字符串中包含的字符串,在“替换为”中输入指定字符的内容,单击“替换”按钮,将原始字符串中的指定内容替换并连接到新字符串中并显示在“新字符串”中。 单击“退出”按钮结束程序运行。
生产完成,**如下:
-
private sub command1_click()static n as long, m as longm = val(text2)
n = n + 1
if text1 = "psw123" thenmsgbox "密码正确", vbexclamation, "登录"
n = 0else
if n >= m then
msgbox n & "如果您输入了错误,请退出", vbexclamation, "登录"
endelse
msgbox "部分" & n & "二级密码不正确,请重新输入", vbexclamation, "登录"
end if
end if
end sub
private sub form_load()= "密码:"
允许使用密码的次数:"
还行" "登录"
text1 = ""
text2 = 3
end sub
-
问题 2:
x = 1if x = fix(x \ 2) *2 then msgbox "这是一个偶数" else msgbox "这是一个奇数"
-
VB 是 Visual Basic 编程语言。
编写计算机程序需要使用计算机编程语言。 计算机编程语言是人与计算机之间的桥梁。 就像人类语言一样,有许多计算机编程语言。
目前使用最广泛的语言是“C++”、“Pascal”、“Basic”等。 在众多计算机编程语言中,基本语言是最容易学习和使用的。
Basic 是 Beginner's All Purpose Symbolic Instruction Code 的缩写,意思是面向初学者的通用符号指令**,一直是编程入门的首选语言。
1991年,Visual Basic(VB)问世,这是BASIC的第三代产品,它不仅继承了BASIC语言易学易用的优点,还增加了图形界面设计工具。 它简化了编写复杂窗口程序的过程,使程序员能够更专注于解决问题的过程。
-
哦,我也不会,鸡蛋很痛。
private sub command1_click()
dim i as long, n as long, gen as long, su() as long, s as long >>>More