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。