VB程序改错题收集答案在后面

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

2、 Command1_Click ( ) Dim a As Integer a = Val(Text1Text)Text1Text = Str(Int( a ) End Sub运行程序，单击按钮Command1后弹出如下图所示的错误提示。导致该错误的原因可能是（ ）AInt函数计算时出现错误 BVal函数应用不正确C窗体上缺少Text1文本框对象 D变量a数据类型定义错误3、某Visual Basic程序段如下： Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = 2 To 10 a(i) = a(i - 1) * i Next

3、 i运行该程序段，会出现的错误提示为（A）下标越界 （B）子程序或函数未定义 （C）要求对象 （D）溢出Interger类型范围在-3276832767，而1到10相乘超出这个范围4、某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 * i Next i List1.AddItem Str(a(i)End Sub运行程序，单击命令按钮Command1后，出现的错误提示为（A） 下标越界 （B） 子程序或函数未定义（C

4、） 溢出 （D） 类型不匹5、有如下的Visual Basic程序：Private Sub Command1_Click() Const pi = 3.14 Dim s As Single, r As Single r = Val(text1.Text) pi = 3.1415 s = pi * r 2 Label1.Caption = "面积为" + Str(s)End Sub程序运行后，单击命令按钮Command1，出现如图所示的错误提示，下列原因分析正确的是（A）常量不能用小数（B）pi是常量，不允许赋值（C）文本框Text1中输入的数据不是常量（D）表达式结果超过了

5、变量类型的范围6、某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 * i Next i List1.AddItem Str(a(i)End Sub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是（A）For i = 1 To 10（B）a(i) = i * i（C）Next i（D）List1.AddItem Str(a(i)7、某Visual Basic程序如下：Priva

6、te Sub Command1_Click() Dim a As Single, b As SingleDim c As Single a = 1 b = 5 c = Sqr(a - b) Text1.Text = Str(c)End Sub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是 （A）a = 1（B）b = 5（C）c = Sqr(a - b)（D）Text1.Text = Str(c)8、某同学正编写一个判断酒驾行为的Visual Basic程序，其窗体和代码窗口如下图所示。 根据代码窗口中的程序，要在程序运行时获取输入的x值，窗体上必须

7、增加的对象是A. 标签Text1 B. 标签Label2 C. 文本框Text1 D. 文本框Label29、运行下面的 Visual Basic程序，单击命令按钮 Command1，出现如下图所示的提示信息：Private Sub Command1_Click()Dim 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 <

8、;= "z" t = t + c End IfNext iText1.Text = tEnd Sub出现该错误的原因是AIf语句缺少Then BIf语句缺少ElseC变量t的数据类型说明错误 D变量s的数据类型说明错误10、某VB程序在调试中弹出如图所示的错误窗口，产生该错误的可能原因是（ ）A该VB程序代码中，缺少NextB该VB程序窗体界面中，缺少某控件C该VB程序代码中，某个常量或变量没有声明D该VB程序设计软件没有正确安装 11.运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生"下标越界"错误时所执

9、行的语句是Private Sub Command1_Click() Dim a(0 To 5) As Integer Dim i As Integer ' a(0) = 1 ' For i = 1 To 5 a(i) = 2 * a(i - 1) + 1 ' Next i Text1.Text = Str(a(i) 'End Sub （A） （B） （C） （D）12.运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生"下标越界"错误时所执行的语句是Private Sub Command1_Cli

10、ck() Dim a(0 To 5) As Integer Dim i As Integer ' a(0) = 1 ' For i = 1 To 6 a(i) = 2 * a(i - 1) + 1 ' Next i Text1.Text = Str(a(5) 'End Sub（A） （B） （C） （D）13.某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 * i Next i Lis

11、t1.AddItem Str(a(i)End Sub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是（A）For i = 0 To 10（B）a(i) = i * i（C）Next i（D）List1.AddItem Str(a(i)14.运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生"除数为零"错误时所执行的语句是Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Single a = 2 '

12、b = a + 1 ' c = a / (b - 3) ' Text1.Text = Str(c) 'End Sub （A） （B）（C） （D）15.有如下的Visual Basic程序：Private Sub Command1_Click() Const pi = 3.14 ' Dim s As Single, r As Single r = Val(text1.Text) ' pi = 3.1415 ' s = pi * r 2 ' Label1.Caption = "面积为" + Str(s)End Sub程序

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

14、; Text1.Text = "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 Single a = 1 b = 5 c = Sqr(a - b) Text1.Text = Str(c)End Sub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是（A）a = 1（B）b = 5（C）c = Sqr(a -

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

16、= Str(sum)20.某Visual Basic程序如下：Private Sub Command1_Click()Dim a As Stringa = "d"a = Chr(Asc(a) - 32)Label1.Caption = aEnd Sub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是（A）a = "d"（B）End Sub（C）a = Chr(Asc(a) - 32)（D）Label1.Caption = a21.某Visual Basic程序如下：Private Sub Command1_Cli

17、ck()Dim x As Integer, i As IntegerFor i = 1 To 10 Step 3 x = i * (i + 2)List1AddItem Str(x)Next iEnd Sub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的语句是（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 Intege

18、r, i As Integer c = 0 For i = 1 To 12 If 12 Mod i = 0 Then c = c + 1 End If Next i Text1.Tex = Str(c)End Sub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的语句是（A）For i = 1 To 12（B）c = c + 1（C）Next i（D）Text1.Tex = Str(c)23.下图所示是一个求和程序，程序界面上有标签Label1、标签Label2和一个命令按钮Command1。程序运行时，单击命令按钮Command1后弹出“编译错误”信息提示并指

19、向错误语句所在代码。请问下面修改方法可以让程序正确运行的是：（A）Command1.caption=s （B）Text1.text=s （C）Text1=s （D）Label2.caption=s 24.某Visual Basic程序如下，执行该程序后，将会出现的错误提示为Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = 2 To 10 a(i) = a(i - 1) + i List1AddItem Str(a(i) Next iEnd Sub（A）下标越界 （B）

20、子程序或函数未定义 （C）溢出 （D）类型不匹配25.小王同学在调试VB程序时，会出现下图错误提示信息的是：（A）Function sina(n)  As Integer           .  End Function  （B）Private Sub  abc(a, b) as double     &#

21、160;    .  End Sub  （C）Private Sub Command1_click()           .  End Sub  （D）Private Sub Command1_click()  Private Sub Command1_click()    &

22、#160;      .  End Sub 26. VB语句s = s + Val(Key)在运行时出现“类型不匹配”信息，则变量s的数据类型可能是：（A）Integer  （B）double  （C）single  （D）string 27. 某VB程序段代码如下，它的作用是计算1*2*3*99*100的值：    Private Sub Command1_Click()  Dim s As Integer           -s = 1