19VB程序改错题收集

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

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

3、或函数未定义(。要求对象(D)溢出Interger 类型范围在-3276832767 ，而 1 到 10 相乘超出这个范围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 Sub Command

4、1_Click()Const pi =Dim s As Single, r As Singler = Valpi =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 I

5、ntegerFor 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()Dim

7、 i As Integer, c As String, s As String, t As Strings = "2012 Hero" t = ""For i = 1 To Len(s)c = Mid(s, i, 1)If c >= "a" And c <= "z"t = t + cEnd IfNext i= tEnd Sub出现该错误的原因是A If 语句缺少ThenB If 语句缺少ElseC.变量t的数据类型说明错误 D .变量s的数据类型说明错误10、某VB程序在调试中弹出如图所示的错误窗口，产

8、生该错误的可能原因是()A. i亥VB程序代码中，缺少 NextB. i亚VB程序窗体界面中，缺少某控件C. I亚VB程序代码中，某个常量或变量没有声明D. i亚VB程序设计软件没有正确安装11 .运行如下Visual Basic 程序，单击命令按钮 Command出现如图所示的出错信息。发生 "下标越界"错 误时所执行的语句是Private Sub Command1_Click()Dim a(0 To 5) As IntegerDim i As Integer 'a(0) = 1'For i = 1 To 5a(i) = 2 * a(i - 1) + 1&

9、#39;Next i= Str(a(i) 'End Sub(A)(B)(。(D)12 .运行如下Visual Basic 程序，单击命令按钮 Command出现如图所示的出错信息。发生 "下标越界"错 误时所执行的语句是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)(D)13 . 某

10、 Visual Basic 程序如下：Private Sub Command1_Click()Dim a(1 To 10) As Integer Dim i As Integer For i = 1 To 10 a(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 程序，单击命令按钮 Command1出现如图所示的出错信息。发生 "

11、除数为零"错 误时所执行的语句是Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Single a = 2'b = a + 1'c = a / (b - 3) '= Str(c) 'End Sub(A)(B)(C)(D)15 . 有如下的Visual Basic 程序：Private Sub Command1_Click()Const pi ='Dim s As Single, r As Single r = Val 'pi ='s = pi * r

12、 人 2'= " 面积为 " + Str(s)End Sub程序运行后，单击命令按钮Command 1出现如图所示的错误提示，下列原因分析正确的是(A)常量不能用小数B) pi 是常量，不允许赋值(。文本框Text1中输入的数据不是常量 (D)表达式结果超过了变量类型的范围 16. 题目如上题，问具体是哪条语句出错(A)(B)(C)(D)17. 运行如下Visual Basic 程序，单击命令按钮 Command1出现如图所示的出错信息。发生"类型不匹配"错误时所执行的语句是Private Sub Command1_Click() Dim a A

13、s Integer, b As Integer a = 10'b = 20'= "a+b=" + Val(a + b) 'End Sub(A)(C)(B)(D)18. 某 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运行程序，单击命令按钮 Command后弹出如图所示的出错信息提示，此时程序正执行的语句是A) a = 1( B) b = 5C

14、) 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后弹出如图所示的出错信息提示，此时程序正执行的语句是A)Sum = 0(B)For i = 10 To2 Step -2C)sum = sum+ i(D)= Str(sum)20. 某 Visual Ba

15、sic 程序如下：Private Sub Command1_Click()Dim a As Stringa = "d"a = Chr(Asc(a) - 32)= aEnd Sub运行程序，单击命令按钮 Command后弹出如图所示的出错信息提示，此时程序正执行的语句是A)a = "d"(B)EndSubC)a = Chr(Asc(a)- 32)(D)= a21. 某 Visual Basic 程序如下：Private Sub Command1_Click()Dim x As Integer, i As IntegerFor i = 1 To 10 Ste

16、p 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 Integer, c As Integer, i As Integerc = 0For i = 1 To 12If 12 Mod i = 0 Then

17、c = 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 1程序运行时，单击命令按钮Commandl后弹出“编译错误”信息提示并指向错误语句所在代码。请问下面修改方法可以让程序正确运行的是：( A) =s ( B) =s ( C) Text1=s ( D) =s24 . 某 Vis

18、ual Basic 程序如下，执行该程序后，将会出现的错误提示为Private Sub Command1_Click()Dim a(1 To 10) As IntegerDim i As Integera(1) = 1For i = 2 To 10a(i) = a(i - 1) + iList1AddItem Str(a(i)Next iEnd Sub(A)下标越界(B)子程序或函数未定义(C)溢出 (D)类型不匹配25 .小王同学在调试VB程序时，会出现下图错误提示信息的是：(A)Function sina(n) As Integer End Function(B)Private Sub abc(a, b)