1樓：網友
有現成的。不給分不給。
編寫乙個vb的英文打字練習程式 完整**
2樓：網友
dim m, s as double
private sub command1_click()
for i = 1 to 30
chr(int(rnd * 25 + 66))
next i true
m = 0s = 1
end sub
private sub command2_click()
dim b as integer
for i = 1 to 30
if mid(, i, 1) = mid(, i, 1) then b = b + 1
next i
int(b / 30 * 100) &"%"
false0= m & "分" & s & "秒"
end sub
private sub form_load()
for i = 1 to 30
chr(int(rnd * 25 + 66))
next i
重新生成"計算" "準確率"
用時" true
end sub
private sub text1_keypress(keyascii as integer)
if keyascii = 8 and len( >= 1 then = left(, len( -1)
if keyascii > 64 and keyascii < 91 then = & chr(keyascii)
if keyascii > 96 and keyascii < 123 then = & chr(keyascii - 32)
end sub
private sub timer1_timer()
if s > 60 then s = 0: m = m + 1
s = s + 1
end sub
英文打字練習的完整vb程式**
3樓：夢幻貴高
private sub command1_click()
static i as integer
i = i + 1
if i mod 2 = 0 then
開始" false
falseend if
if i mod 2 <>0 then
暫停"randomize
chr(int(25 * rnd + 65))
randomize
int(rnd * 4641 + 360)
true true
end if
end sub
private sub command2_click()
endend sub
private sub form_keypress(keyascii as integer)
randomize
if keyascii = asc(lcase( then = false: = 360: = chr(int(25 * rnd + 65)) = int(rnd * 4641 + 360):
true: label5 = label5 + 10
end sub
private sub form_load()
end sub
private sub timer1_timer()
if > 7800 then = 360: = chr(int(25 * rnd + 65)) = true: = int(rnd * 4641 + 360)
end sub
private sub timer3_timer()
static a, c as integer
a = a + 1
b = 60 - a
剩餘" &b & 秒"
if b = 0 then i = msgbox("是否繼續？",36, "提示")
if i = 6 then b = 60: a = 0
if i = 7 then end
end sub
用vb設計乙個英文打字訓練程式.要求如下:
4樓：起個豬名想半天
哥們，我用200分換取5個qb你覺的可能嗎？你問題我很搞笑~
編寫VB程式，求Sn a aa aaan個a 的值,其中n是表示a的個數，a是
dim sn,a,n,i,m m 0sn 0 a int rnd 10 n text1.text for i 1 to n m 10 i 1 a m sn sn m next i 應該就是這樣了，有點久沒用vb，有點忘了 private sub form click dim sn a int rnd...
vb程式，編寫程式，將陣列a（10）中的元素向左迴圈移動，即a 1 a 2 ,a 2 a 3）a 10 a
很容易實現！var n as integer m a 1 for i 1 to 9 n a i a i a i 1 a i 1 n next 下面是我在電子 中進行的測試 dim a 10 as integer sub yu for i 1 to 10 a i i cells i,1 a i nex...
vb編寫計算表示式mnmn值的程式m
function fact x as integer s 1 for i 1 to x s s i next fact s end function private sub mand1 click me.autoredraw true me.cls dim m as integer dim n as...