VB程序改錯(cuò)題收集答案在后面

1、VB中常見的錯(cuò)誤1、運(yùn)行下面的 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)該錯(cuò)誤的原因是AIf語句缺少Then BIf語句缺少ElseC變量a的數(shù)據(jù)類型說明錯(cuò)誤 D變量b的數(shù)據(jù)類型說明錯(cuò)誤2、某VB程序的事件過程如下所示：Private Sub

2、 Command1_Click ( ) Dim a As Integer a = Val(Text1Text)Text1Text = Str(Int( a ) End Sub運(yùn)行程序，單擊按鈕Command1后彈出如下圖所示的錯(cuò)誤提示。導(dǎo)致該錯(cuò)誤的原因可能是（ ）AInt函數(shù)計(jì)算時(shí)出現(xiàn)錯(cuò)誤 BVal函數(shù)應(yīng)用不正確C窗體上缺少Text1文本框?qū)ο?D變量a數(shù)據(jù)類型定義錯(cuò)誤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運(yùn)行該程序段，會(huì)出現(xiàn)的錯(cuò)誤提示為（A）下標(biāo)越界 （B）子程序或函數(shù)未定義 （C）要求對(duì)象 （D）溢出Interger類型范圍在-3276832767，而1到10相乘超出這個(gè)范圍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運(yùn)行程序，單擊命令按鈕Command1后，出現(xiàn)的錯(cuò)誤提示為（A） 下標(biāo)越界 （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程序運(yùn)行后，單擊命令按鈕Command1，出現(xiàn)如圖所示的錯(cuò)誤提示，下列原因分析正確的是（A）常量不能用小數(shù)（B）pi是常量，不允許賦值（C）文本框Text1中輸入的數(shù)據(jù)不是常量（D）表達(dá)式結(jié)果超過了

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

7、增加的對(duì)象是A. 標(biāo)簽Text1 B. 標(biāo)簽Label2 C. 文本框Text1 D. 文本框Label29、運(yùn)行下面的 Visual Basic程序，單擊命令按鈕 Command1，出現(xiàn)如下圖所示的提示信息：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出現(xiàn)該錯(cuò)誤的原因是AIf語句缺少Then BIf語句缺少ElseC變量t的數(shù)據(jù)類型說明錯(cuò)誤 D變量s的數(shù)據(jù)類型說明錯(cuò)誤10、某VB程序在調(diào)試中彈出如圖所示的錯(cuò)誤窗口，產(chǎn)生該錯(cuò)誤的可能原因是（ ）A該VB程序代碼中，缺少NextB該VB程序窗體界面中，缺少某控件C該VB程序代碼中，某個(gè)常量或變量沒有聲明D該VB程序設(shè)計(jì)軟件沒有正確安裝 11.運(yùn)行如下Visual Basic程序，單擊命令按鈕Command1，出現(xiàn)如圖所示的出錯(cuò)信息。發(fā)生"下標(biāo)越界"錯(cuò)誤時(shí)所執(zhí)

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.運(yùn)行如下Visual Basic程序，單擊命令按鈕Command1，出現(xiàn)如圖所示的出錯(cuò)信息。發(fā)生"下標(biāo)越界"錯(cuò)誤時(shí)所執(zhí)行的語句是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運(yùn)行程序，單擊命令按鈕Command1后彈出如圖所示的出錯(cuò)信息提示，此時(shí)程序正執(zhí)行的語句是（A）For i = 0 To 10（B）a(i) = i * i（C）Next i（D）List1.AddItem Str(a(i)14.運(yùn)行如下Visual Basic程序，單擊命令按鈕Command1，出現(xiàn)如圖所示的出錯(cuò)信息。發(fā)生"除數(shù)為零"錯(cuò)誤時(shí)所執(zhí)行的語句是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、運(yùn)行后，單擊命令按鈕Command1，出現(xiàn)如圖所示的錯(cuò)誤提示，下列原因分析正確的是（A）常量不能用小數(shù)（B）pi是常量，不允許賦值（C）文本框Text1中輸入的數(shù)據(jù)不是常量（D）表達(dá)式結(jié)果超過了變量類型的范圍16.題目如上題，問具體是哪條語句出錯(cuò)（A） （B） （C） （D）17.運(yùn)行如下Visual Basic程序，單擊命令按鈕Command1，出現(xiàn)如圖所示的出錯(cuò)信息。發(fā)生"類型不匹配"錯(cuò)誤時(shí)所執(zhí)行的語句是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運(yùn)行程序，單擊命令按鈕Command1后彈出如圖所示的出錯(cuò)信息提示，此時(shí)程序正執(zhí)行的語句是（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運(yùn)行程序，單擊命令按鈕Command1后彈出如圖所示的出錯(cuò)信息提示，此時(shí)程序正執(zhí)行的語句是（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運(yùn)行程序，單擊命令按鈕Command1后彈出如圖所示的出錯(cuò)信息提示，此時(shí)程序正執(zhí)行的語句是（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運(yùn)行程序，單擊命令按鈕Command1后彈出如圖所示的出錯(cuò)信息提示，引起該錯(cuò)誤的語句是（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運(yùn)行程序，單擊命令按鈕Command1后彈出如圖所示的出錯(cuò)信息提示，引起該錯(cuò)誤的語句是（A）For i = 1 To 12（B）c = c + 1（C）Next i（D）Text1.Tex = Str(c)23.下圖所示是一個(gè)求和程序，程序界面上有標(biāo)簽Label1、標(biāo)簽Label2和一個(gè)命令按鈕Command1。程序運(yùn)行時(shí)，單擊命令按鈕Command1后彈出“編譯錯(cuò)誤”信息提示并指

19、向錯(cuò)誤語句所在代碼。請(qǐng)問下面修改方法可以讓程序正確運(yùn)行的是：（A）Command1.caption=s （B）Text1.text=s （C）Text1=s （D）Label2.caption=s 24.某Visual Basic程序如下，執(zhí)行該程序后，將會(huì)出現(xiàn)的錯(cuò)誤提示為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）下標(biāo)越界 （B）

20、子程序或函數(shù)未定義 （C）溢出 （D）類型不匹配25.小王同學(xué)在調(diào)試VB程序時(shí)，會(huì)出現(xiàn)下圖錯(cuò)誤提示信息的是：（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)在運(yùn)行時(shí)出現(xiàn)“類型不匹配”信息，則變量s的數(shù)據(jù)類型可能是：（A）Integer  （B）double  （C）single  （D）string 27. 某VB程序段代碼如下，它的作用是計(jì)算1*2*3*99*100的值：    Private Sub Command1_Click()  Dim s As Integer           -s = 1