關於一道VB程式的改錯

2025-03-16 18:10:09 字數 1482 閱讀 3191

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 ...