1樓:網友
是語句邏輯錯誤,if keyascii <>13 thenif keyascii < 48 or keyascii > 57 then
keyascii = 0
end if else
end if
上面這個判斷已經將所以的鍵值都散野包含了,除了衝戚喊回仔告車,那按那個鍵可以進入else下的語句。將if keyascii <>13 then 改成if keyascii = 13 then,也不行。
還有 = int(rnd * 100)
rnd函式沒有初始化,要加randomize
2樓:網友
拼寫錯誤 不用怕~~賣物喚~
private sub command1_click()= true
true int(rnd * 100)
int(rnd * 90)'text2 少了個t= false
end sub
private sub form_load()= false
falseend sub
private sub text3_keypress(keyascii as integer)
if keyascii <>13 thenif keyascii < 48 or keyascii > 57 then
keyascii = 0
end if
elseif = then
回螞閉答正確,按中凱開始鍵再來一遍"
true= 錯誤,重新"
falseend if
end if
end sub
3樓:pal神仙
大概看了一遍,幾乎沒錯,如告答果不能實現其功能的話,試試這樣。
把。if = then
陸則正確,按開始鍵再來一遍"
改成。if val( =val( then= 正確,按開始鍵襪悉慧再來一遍"
4樓:
除讓核了打錯了外 ,沒有錯啊,下面是我執行的程式啊。和你的是一樣的。
private sub command1_click()= true
true int(rnd * 100)
int(rnd * 90)
falseend sub
private sub form_load()= false
falseend sub
private sub text3_keypress(keyascii as integer)
if keyascii 《猛型》 13 thenif keyascii 《坦知掘 48 or keyascii > 57 then
keyascii = 0
end if
elseif = then
正確,按開始鍵再來一遍"
true= 錯誤,重新"
falseend if
end if
end sub
求一道VB題目急求,一道關於vb的題目,急求
按照你的意思,相當於把陣列按正序和反序分別輸出。編寫程式如下 dim a 1 to 20 as integer,i as integer for i 1 to 20 a i inputbox 請輸入第 str i 個數 next i for i 1 to 20 print a i next i pr...
求解一道VB題目,求解一道VB題目
答案是copyc.輸入10000個數值,計算平均數,適合採用迴圈結構演算法。a。判斷乙個證書是否為偶數,解決該問題僅需一步判斷,也許需要一步賦值,沒有多次重複的步驟,不適合採用迴圈結構演算法。b。輸入乙個圓的半徑,計算面積和周長。輸入資料 計算面積,這三個內容都是乙個語句就可以完成的,沒有多次重複的...
一道vb題求解答
s trim text1.text do while len s 0 m instr s,space 1 找空格 if m 0 then 沒有空格,那麼整個乙個單詞,結束迴圈 word s s s else 找到空格 word s left s,m 1 取空格以左的內容,分離出乙個單詞 s mid ...