VB 糾正錯誤 女士們，先生們，請

它應該像這樣修改。

private sub form_load()

trueend sub

這句話不是表單滑鼠按下事件，而是表單鍵下事件。

private sub form_keydown(keycode as integer, shift as integer)

if shift = vbaltmask and chr(keycode) = "c" then '按“Alt+C”退出程式時。

end end if

end sub

private sub text1_keypress(keyascii as integer)

dim t as long

t = val(

if keyascii = 13 then

msgbox t & "： 2011年9月的通話費率為：", 0, "查詢結果"

end if

if keyascii < 48 or keyascii > 57 then keyascii = 0

end sub

if keyascii < 48 or keyascii > 57 then keyascii = 0

您在此處阻止了回車鍵 13，因此下面沒有響應。

還有乙個嚴重的錯誤，表單mousedown是滑鼠按下事件，button是滑鼠鍵，與鍵盤無關。 窗體鍵關閉是鍵盤按下事件。

private sub form_keydown(button as integer, shift as integer, x as single, y as single)

if button = vbkeyc and shift = vbaltmask then

endend if

end sub

private sub text1_keypress(keyascii as integer)

dim t as long

t = val(

if keyascii = 13 then

msgbox t & "： 2011年9月的通話費率為：", 0, "查詢結果"

end if

if keyascii < 48 or keyascii > 57 then keyascii = 0

end sub

1. false 關鍵字不能重新定義，它是 VB 指定的關鍵字。

2. dim x，y，z as integer 宣告 x，y 變體和整數 z 變數，其中整數是錯誤的型別名稱。

3.a+b=c不符合語法規則，=運算子的運算順序是從右到左。

4.mod函式是查詢餘數的函式，mode關鍵字寫錯了。

5. VB 的最大整數型別不能超過 65536 2-1，此處賦值 31001 會導致變數溢位。

6.在VB中，不能使用除法運算子，而是使用符號。

7、科學記數法的形式不符合標準，缺少基數，正確的形式應為1e-23。

8. 正確的應該是 str="hello the world"，字串常量需要用雙引號括起來。 同時，str 關鍵字不能是變數，因為 vb 已經將其定義為系統函式。

9. str 不能定義為變數，字串常量只能用雙引號括起來。

10. 這應該是 0/0/0。

1. 假關鍵字不能重新定義為 VB 規定的關鍵字。

2. 將 x，y，z 調暗為整數宣告 x，y 變數型別（變體）和整數變數 z，其中整數是錯誤的型別名稱。

3.a+b=c不符合語法規則，=運算子的運算順序是從右到左。

4 mod 函式正在為功能模式關鍵字錯誤的其餘部分而戰。

5、VB整數型別65536 2-1賦值不能超過31001變數溢位。

6. 除法運算子不能在 vb 中使用，而是在符號中使用。

7.科學記數法的形式不符合規範，它缺乏乙個基本的、正確的形式應該是這樣的1e-23

8 正確的 str = “Hello World” 字串常量，需要使用雙引號。 force 關鍵字不能是變數，因為 VB 定義了系統函式。

9. 力不能定義為變數，字串常量只能用雙引號括起來。

10，應為 0 0 0 年。

4、不是模式，應該是mod，剩下的就忘了，希望能幫到你。

rnd：[0,1)

4*rnd：[0,4)

4*rnd+5：[5,9)

int（4*rnd+5）：向下捨入，因為最大值小於 9，所以它是介於 [5,8] 之間的整數。

10*rnd：(-10,0]

10*rnd+8：(-2,8]

int（-10*rnd+8）：向下整數，雖然最小值不能是-2，但整數可以等於-2，因為最大值可以等於8，所以向下捨入後的最大值是8，因此：[-2,8]之間的整數。

int（-10*rnd+8）：：8,2]。

int（4*rnd+5）-int（-10*rnd+8）：介於 [3,10] 之間的整數。

注意：取值為 -3 的概率極低，因為只能將後者 rnd 取到 0 點，即使如此，結果也不能等於 -3。 對於上述範圍內的任何其他結果，rnd 只需要在特定範圍內。

rnd 結果是 0 到 1，但不能等於 1，最多 4 倍 rnd+5 是 5 到接近 9，四捨五入後為 -10 rnd+8 是 -1 到 9，int（4 rnd+5）-int（-10 rnd+8） 範圍是 -4 到 9。