19VB程序改錯題收集(答案在后面)[驕陽教育]

1、VB中常見的錯誤1、運行下面的 Visual Basic程序，單擊命令按鈕 Command1，出現(xiàn)如下圖所示的提示信息：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出現(xiàn)該錯誤的原因是AIf語句缺少Then BIf語句缺少ElseC變量a的數(shù)據(jù)類型說明錯誤 D變量b的數(shù)據(jù)類型說明錯誤2、某VB程序的事件過程如下所示：Private Sub Com

2、mand1_Click ( ) Dim a As Integer a = Val(Text1Text)Text1Text = Str(Int( a ) End Sub運行程序，單擊按鈕Command1后彈出如下圖所示的錯誤提示。導致該錯誤的原因可能是（ ）AInt函數(shù)計算時出現(xiàn)錯誤 BVal函數(shù)應用不正確C窗體上缺少Text1文本框?qū)ο?D變量a數(shù)據(jù)類型定義錯誤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 i運行

3、該程序段，會出現(xiàn)的錯誤提示為（A）下標越界 （B）子程序或函數(shù)未定義 （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后，出現(xiàn)的錯誤提示為（A） 下標越界 （B） 子程序或函數(shù)未定義（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，出現(xiàn)如圖所示的錯誤提示，下列原因分析正確的是（A）常量不能用小數(shù)（B）pi是常量，不允許賦值（C）文本框Text1中輸入的數(shù)據(jù)不是常量（D）表達式結(jié)果超過了變量類型的范圍6、某Visual

5、 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后彈出如圖所示的出錯信息提示，此時程序正執(zhí)行的語句是（A）For i = 1 To 10（B）a(i) = i * i（C）Next i（D）List1.AddItem Str(a(i)7、某Visual Basic程序如下：Private Sub Command1_

6、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后彈出如圖所示的出錯信息提示，此時程序正執(zhí)行的語句是 （A）a = 1（B）b = 5（C）c = Sqr(a - b)（D）Text1.Text = Str(c)8、某同學正編寫一個判斷酒駕行為的Visual Basic程序，其窗體和代碼窗口如下圖所示。 根據(jù)代碼窗口中的程序，要在程序運行時獲取輸入的x值，窗體上必須增加的對象是A. 標簽Text1

7、 B. 標簽Label2 C. 文本框Text1 D. 文本框Label29、運行下面的 Visual Basic程序，單擊命令按鈕 Command1，出現(xiàn)如下圖所示的提示信息：Private Sub Command1_Click()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 = z t = t + c End IfNext iText1.Text = tEnd Sub出現(xiàn)該錯誤的原因是AIf

8、語句缺少Then BIf語句缺少ElseC變量t的數(shù)據(jù)類型說明錯誤 D變量s的數(shù)據(jù)類型說明錯誤10、某VB程序在調(diào)試中彈出如圖所示的錯誤窗口，產(chǎn)生該錯誤的可能原因是（ ）A該VB程序代碼中，缺少NextB該VB程序窗體界面中，缺少某控件C該VB程序代碼中，某個常量或變量沒有聲明D該VB程序設計軟件沒有正確安裝 11.運行如下Visual Basic程序，單擊命令按鈕Command1，出現(xiàn)如圖所示的出錯信息。發(fā)生下標越界錯誤時所執(zhí)行的語句是Private Sub Command1_Click() Dim a(0 To 5) As Integer Dim i As Integer a(0) = 1

9、 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，出現(xiàn)如圖所示的出錯信息。發(fā)生下標越界錯誤時所執(zhí)行的語句是Private Sub Command1_Click() 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(

10、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 List1.AddItem Str(a(i)End Sub運行程序，單擊命令按鈕Command1后彈出如圖所示的出錯信息提示，此時程序正執(zhí)行的語句是（A）For i = 0 To 10（B）a(i) = i * i（C）Next i（D）List1.AddItem Str(a(i)14.運

11、行如下Visual Basic程序，單擊命令按鈕Command1，出現(xiàn)如圖所示的出錯信息。發(fā)生除數(shù)為零錯誤時所執(zhí)行的語句是Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Single a = 2 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 Sin

12、gle r = Val(text1.Text) pi = 3.1415 s = pi * r 2 Label1.Caption = 面積為 + Str(s)End Sub程序運行后，單擊命令按鈕Command1，出現(xiàn)如圖所示的錯誤提示，下列原因分析正確的是（A）常量不能用小數(shù)（B）pi是常量，不允許賦值（C）文本框Text1中輸入的數(shù)據(jù)不是常量（D）表達式結(jié)果超過了變量類型的范圍16.題目如上題，問具體是哪條語句出錯（A） （B） （C） （D）17.運行如下Visual Basic程序，單擊命令按鈕Command1，出現(xiàn)如圖所示的出錯信息。發(fā)生類型不匹配錯誤時所執(zhí)行的語句是Private S

13、ub Command1_Click() Dim a As Integer, b As Integer a = 10 b = 20 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后彈出如圖所示的出錯信息提示，

14、此時程序正執(zhí)行的語句是（A）a = 1（B）b = 5（C）c = Sqr(a - 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后彈出如圖所示的出錯信息提示，此時程序正執(zhí)行的語句是（A）Sum = 0（B）For i = 10 T

15、o 2 Step -2（C）sum = sum + i（D）Text1.Text = Str(sum)20.某Visual Basic程序如下：Private Sub Command1_Click()Dim a As Stringa = da = Chr(Asc(a) - 32)Label1.Caption = aEnd Sub運行程序，單擊命令按鈕Command1后彈出如圖所示的出錯信息提示，此時程序正執(zhí)行的語句是（A）a = d（B）End Sub（C）a = Chr(Asc(a) - 32)（D）Label1.Caption = a21.某Visual Basic程序如下：Private

16、 Sub Command1_Click()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 Int

17、eger, c As Integer, 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。程序運行時，單擊命令按鈕Comman

18、d1后彈出“編譯錯誤”信息提示并指向錯誤語句所在代碼。請問下面修改方法可以讓程序正確運行的是：（A）Command1.caption=s （B）Text1.text=s （C）Text1=s （D）Label2.caption=s 24.某Visual Basic程序如下，執(zhí)行該程序后，將會出現(xiàn)的錯誤提示為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）子程序或函數(shù)未定義 （C）溢出 （D）類型不匹配25.小王同學在調(diào)試VB程序時，會出現(xiàn)下圖錯誤提示信息的是：（A）Functionsina(n)AsInt