VB調試歷年高考題

1、.算法及其實現（程序的調試）【知識要點】程序調試的幾種形式1.固定搭配，如：If 搭配 End if；For i 搭配 Next i；Do While 搭配 Loop2.對象名.屬性名 ，如：Text1.Text；Label1.Caption3.數據類型，如：數值類型： Integer整數型；Long長整型；Single實數型；Double雙精度實數型； 字符串型：String；邏輯型：Boolean；4.賦值，如：如果a是數值類型 ，那么輸入語句： a = Val(Text1.Text)輸出語句： Text1.Text = str(a) 或Label1.Caption = str(a)如果a

2、是字符串類型，那么輸入語句： a = Text1.Text輸出語句： Text1.Text = a 或Label1.Caption = a【同步練習】1、（10年3月高考）小金編寫了一個統(tǒng)計隨機數分布的VB程序，部分程序如下所示，在調試程序的時候出現如右圖所示的錯誤信息：n = 0m = 0For i = 1 To 100 If Rnd 05 Then n = n + 1 Else m = m + 1Next i小金仔細分析該程序段后，發(fā)現其中缺少了 ( )AForBEnd IfCNextDIf2、（10年9月高考）某VB程序的一個事件過程如下：Private Sub Command1_Cli

3、ck ( ) Dim a As Integer a = Val ( Text1Text )Text1Text = Str ( Sqr ( a ) ) End Sub程序運行時，單擊命令按鈕Command1后彈出如圖所示的錯誤信息提示。出現錯誤的原因是（ ）ASqr函數計算時出現錯誤BStr函數計算時出現錯誤C界面上缺少文本框Text1D變量a類型定義錯誤 3、（12年6月會考）某Visual Basic程序如下：Private Sub Command1_Click()Dim a As Stringa = da = Chr(Asc(a) - 32)Label1.Caption = aEnd Su

4、b運行程序，單擊命令按鈕Command1后彈出如圖所示的出錯信息提示，此時程序正執(zhí)行的語句是 （ ）（A）a = d（B）End Sub（C）a = Chr(Asc(a) - 32)（D）Label1.Caption = a4、(11年6月會考)下列Visual Basic程序用于計算1010的值：Private Sub Command1_Click() Dim n As Integer, s As Integer n = 10 s = 10 n Text1.Text = Str(s)End Sub運行程序時，單擊命令按鈕Command1后彈出如圖所示的出錯信息提示，引起該錯誤的原因是 （ ）

5、（A）變量s的數據類型說明不當（B）變量n的數據類型說明不當（C）文本框Text1的寬度不夠（D）s值太大，因此不能在文本框Text1中輸出5、(11年6月會考)某Visual Basic程序的一個事件過程如下：Private Sub Command1_Click() Dim x As Single Dim y As Single x = -10 y = Abc(x) Label1.Caption = Str(y) End Sub運行程序，單擊命令按鈕Command1后彈出如圖所示的出錯信息提示，引起該錯誤的語句是（ ）（A）Dim y As Single（B）x = -10（C）y = Ab

6、c(x)（D）Label1.Caption = Str(y)6、(11年6月會考)某Visual Basic程序的一個事件過程如下：Private Sub Command1_Click() Dim a As Integer Dim x As Double a = -4 x = Sqr(a) Label1.Caption = Str(x)End Sub運行程序，單擊命令按鈕Command1后彈出如圖所示的出錯信息提示，此時程序正執(zhí)行的語句是 （ ）（A）Dim a As Integer（B）Dim x As Double（C）x = Sqr(a)（D）Label1.Caption = Str(x

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

8、 Basic程序如下：Private Sub Command1_Click() Dim x As Integer, 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)9、（12年6月會考）某Visual Basic程序如下：Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = 2