19VB程序改错题收集

1、VB中常见的错误1、 运行下面的 Visual Basic 程序，单击命令按钮 Command!出现如下图所示的提示信息：Private Sub Command1_Click()Dim a As Single, b As Singlea = Valb = 10If a = bb = a * a + 2 * bEnd If= Str(b)End Sub出现该错误的原因是AIf 语句缺少 ThenB If 语句缺少 ElseC.变量a的数据类型说明错误D 变量b的数据类型说明错误2、某VB程序的事件过程如下所示：Private Sub Command1_Click ( )Dim a As Inte

2、gera = Val(Text1 Text)Text1 Text = Str(Int( a )End Sub运行程序，单击按钮 Command后弹出如下图所示的错误提示。导致该错误的原因可能是()B. Val 函数应用不正确D变量a数据类型定义错误(0要求对象(D)溢出A. Int函数计算时出现错误C.窗体上缺少Textl文本框对象3、某 Visual Basic 程序段如下：Dim a(1 To 10) As IntegerDim i As Integer a(1) = 1For i = 2 To 10 a(i) = a(i - 1) * iNext i 运行该程序段，会出现的错误提示为(A

3、) 下标越界 (B)子程序或函数未定义Interger 类型范围在 -3276832767，而 1 到 1 0相乘超出这个范围4、某 Visual Basic 程序如下：Private Sub Command1_Click()Dim a(1 To 10) As IntegerDim i As IntegerFor i = 1 To 10a(i) = i * iNext iStr(a(i)End Sub运行程序，单击命令按钮 Command后，出现的错误提示为( A) 下标越界( B) 子程序或函数未定义( C) 溢出( D) 类型不匹5、有如下的 Visual Basic 程序：Private

4、 Sub Command1_Click()Const pi =Dim s As Single, r As Singler = Val pi =s = pi * r 人 2= 面积为 + Str(s)End Sub程序运行后，单击命令按钮Command，1 出现如图所示的错误提示，下列原因分析正确的是(A)常量不能用小数( B)pi 是常量，不允许赋值(C) 文本框Textl中输入的数据不是常量(D) 表达式结果超过了变量类型的范围6、 某 Visual Basic程序如下：Private Sub Command1_Click()Dim a(1 To 10) As IntegerDim i As

5、 IntegerFor i = 1 To 10a(i) = i * iNext iStr(a(i)End Sub运行程序，单击命令按钮 Command后弹出如图所示的出错信息提示，此时程序正执行的语句是A) For i = 1 To 10(B) a(i) = i * iC) Next i( D) Str(a(i)7、 某 Visual Basic程序如下：Private Sub Command1_Click()Dim a As Single, b As SingleDim c As Singlea = 1b = 5c = Sqr(a - b)= Str(c)End Sub运行程序，单击命令按钮

6、 Command后弹出如图所示的出错信息提示，此时程序正执行的语句是A) a = 1( B) b = 5C) c = Sqr(a - b)( D) = Str(c)8、 某同学正编写一个判断酒驾行为的Visual Basic 程序，其窗体和代码窗口如下图所示。根据代码窗口中的程序，要在程序运行时获取输入的 x 值，窗体上必须增加的对象是A. 标签 Text1 B. 标签 Label2 C. 文本框 Text1 D. 文本框 Label29、 运行下面的 Visual Basic 程序，单击命令按钮 Commandl,出现如下图所示的提示信息:Private Sub Command1_Click

7、()Dim i As Integer, c As String, s As String, t As Strings = 2012 Herot = For i = 1 To Len(s) c = Mid(s, i, 1)If c = a And c = zt = t + cEnd IfNext i= tEnd Sub 出现该错误的原因是A If 语句缺少 Then B If 语句缺少 ElseC.变量t的数据类型说明错误D 变量s的数据类型说明错误10、某VB程序在调试中弹出如图所示的错误窗口，产生该错误的可能原因是()A. 该VB程序代码中，缺少 NextB. 该VB程序窗体界面中，缺少某控

8、件C. 该VB程序代码中，某个常量或变量没有声明D. 该VB程序设计软件没有正确安装11. 运行如下 Visual Basic 程序，单击命令按钮 Command，1 出现如图所示的出错信息。发生 误时所执行的语句是 下标越界 错Private Sub Command1_Click()Dim a(0 To 5) As IntegerDim i As Integera(0) = 1 For i = 1 To 5a(i) = 2 * a(i - 1) + 1 Next i= Str(a(i) End Sub(A)(B)(C(D)12. 运行如下 Visual Basic 程序，单击命令按钮 Com

9、mand，1 出现如图所示的出错信息。发生 误时所执行的语句是 下标越界 错Private Sub Command1_Click()Dim a(0 To 5) As IntegerDim i As Integer a(0) = 1 For i = 1 To 6a(i) = 2 * a(i - 1) + 1 Next i= Str(a(5)End Sub(A)(B)(C)13. 某 Visual Basic 程序如下：(D)Private Sub Command1_Click() 除数为零 错 类型不匹配 Dim a(1 To 10) As IntegerDim i As IntegerFor

10、i = 1 To 10a(i) = i * iNext iStr(a(i)End Sub运行程序，单击命令按钮Command后弹出如图所示的出错信息提示，此时程序正执行的语句是A) For i = 0 To 10( B) a(i) = i * iC) Next i(D) Str(a(i)14. 运行如下Visual Basic 程序，单击命令按钮 Command，出现如图所示的出错信息。发生 误时所执行的语句是Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Singlea = 2b = a + 1c = a /

11、(b - 3) = Str(c) End Sub(A)(B)(C)(D15. 有如下的 Visual Basic 程序：Private Sub Command1_Click()Const pi =Dim s As Single, r As Singler = Val pi =s = pi * r 人 2= 面积为 + Str(s)End Sub程序运行后，单击命令按钮Command，1 出现如图所示的错误提示，下列原因分析正确的是(A常量不能用小数B) pi 是常量，不允许赋值(0文本框Text1中输入的数据不是常量(D表达式结果超过了变量类型的范围16. 题目如上题，问具体是哪条语句出错(A

12、)(B)(C)(D17. 运行如下 Visual Basic 程序，单击命令按钮 Command，1 出现如图所示的出错信息。发生 错误时所执行的语句是Private Sub Command1_Click()Dim a As Integer, b As Integer a = 10b = 20= a+b= + Val(a + b) End Sub(A)(B)(C)(D)18. 某 Visual Basic 程序如下：Private Sub Command1_Click()Dim a As Single, b As SingleDim c As Singlea = 1b = 5c = Sqr(a

13、 - b)= Str(c)End Sub运行程序，单击命令按钮Command后弹出如图所示的出错信息提示，此时程序正执行的语句是A) a = 1( B) b = 5C) c = Sqr(a - b)( D) = Str(c)19. 某 Visual Basic 程序如下：Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 10 To 2 Step -2sum = sum + iNext i= Str(sum)End Sub运行程序，单击命令按钮Command后弹出如图所示的出错信息提示，此时程序正

14、执行的语句是A) Sum = 0(B) For i = 10 To 2 Step -2C) sum = sum + i( D) = Str(sum)20. 某 Visual Basic 程序如下：Private Sub Command1_Click()Dim a As Stringa = da = Chr(Asc(a) - 32)= aEnd Sub运行程序，单击命令按钮Command后弹出如图所示的出错信息提示，此时程序正执行的语句是A) a = d( B) End SubC) a = Chr(Asc(a) - 32)( D) = a21. 某 Visual Basic 程序如下：Priva

15、te Sub Command1_Click()Dim x As Integer, i As IntegerFor i = 1 To 10 Step 3x = i * (i + 2)List1AddItem Str(x)Next iEnd Sub运行程序，单击命令按钮 Command后弹出如图所示的出错信息提示，引起该错误的语句是A)For i = 1 To 10 Step 3(B)x = i * (i + 2)C) List1AddItem Str(x)( D)Next i22. 某 Visual Basic 程序如下：Private Sub Command1_Click()Dim x As

16、Integer, c As Integer, i As Integerc = 0For i = 1 To 12If 12 Mod i = 0 Thenc = c + 1End IfNext i= Str(c)End Sub运行程序，单击命令按钮 Command后弹出如图所示的出错信息提示，引起该错误的语句是A)For i = 1 To 12(B)c = c + 1C) Next i(D) = Str(c)23. 下图所示是一个求和程序，程序界面上有标签Labell、标签Label2和一个命令按钮 Command。程序运行时，单击命令按钮Commandl后弹出编译错误信息提示并指向错误语句所在代

17、码。请问下面修改方法可以让程序正确运行的是：(A)=s( B)=s( C)Text1=s(D)=s24. 某 Visual Basic 程序如下，执行该程序后，将会出现的错误提示为Private Sub Command1_Click()Dim a(1 To 10) As IntegerDim i As Integera(1) = 1For i = 2 To 10 a(i) = a(i - 1) + iList1AddItem Str(a(i)Next iEnd Sub(A)下标越界 (B)子程序或函数未定义(C)溢出 (D类型不匹配25. 小王同学在调试VB程序时，会出现下图错误提示信息的是：

18、(A)Function sina(n) As Integer End Function(B)Private Sub abc(a, b) as double End Sub( C) PrivateSub Command1_click() End Sub(D)Private Sub Comma nd1_click() Private Sub Comma nd1_click()End Sub26. VB语句s = s + Val(Key)在运行时出现“类型不匹配”信息，则变量s的数据类型可能是:(A) Integer( B)double ( C single( D) string27.某VB程序段代码如下，它的作用是计算1*2*3* , , *99*100的值：Private Sub Command1_Click()DimsAs Integers