2022年VB調(diào)試歷年高考題

1、學(xué)習(xí)資料收集于網(wǎng)絡(luò),僅供參考算法及其實(shí)現(xiàn)（程序的調(diào)試）【學(xué)問要點(diǎn)】程序調(diào)試的幾種形式1. 固定搭配,如：If 搭配 End if； For i 搭配 Next i； Do While 搭配 Loop 2. 對(duì)象名 . 屬性名,如：Text1.Text； Label1.Caption 3. 數(shù)據(jù)類型,如：數(shù)值類型： Integer整數(shù)型； Long長(zhǎng)整型；Single 實(shí)數(shù)型； Double 雙精度實(shí)數(shù)型；字符串型： String；規(guī)律型： Boolean ；4. 賦值,如：假如 a 是數(shù)值類型,那么輸入語句：a = ValText1.Text 輸出語句：Text1.Text = stra 或

2、Label1.Caption = stra 假如 a 是字符串類型,那么輸入語句：a = Text1.Text 輸出語句：Text1.Text = a 或 Label1.Caption = a 【同步練習(xí)】1、（10 年 3 月高考）小金編寫了一個(gè)統(tǒng)計(jì)隨機(jī)數(shù)分布的 試程序的時(shí)候顯現(xiàn)如右圖所示的錯(cuò)誤信息：n = 0 m = 0 For i = 1 To 100 If Rnd 05 Then n = n + 1 Else m = m + 1 Next i VB程序,部分程序如下所示,在調(diào)小金認(rèn)真分析該程序段后,發(fā)覺其中缺少了 DIf AFor BEnd If C Next 2、（ 10 年 9 月

3、高考）某VB程序的一個(gè)大事過程如下：Private Sub Command1_Click Dim a As Integer a = Val Text1Text Text1 Text = Str Sqr a End Sub 程序運(yùn)行時(shí),單擊命令按鈕Command1后彈出如下列圖的錯(cuò)誤信息提示；顯現(xiàn)錯(cuò)誤的緣由是）（ASqr 函數(shù)運(yùn)算時(shí)顯現(xiàn)錯(cuò)誤BStr 函數(shù)運(yùn)算時(shí)顯現(xiàn)錯(cuò)誤C界面上缺少文本框Text1 D變量 a 類型定義錯(cuò)誤學(xué)習(xí)資料學(xué)習(xí)資料收集于網(wǎng)絡(luò),僅供參考 3、（ 12 年 6 月會(huì)考）某 Visual Basic 程序如下：Private Sub Command1_Click Dim a As

4、 String a = d a = ChrAsca - 32 Label1.Caption = a End Sub 運(yùn)行程序,單擊命令按鈕Command1后彈出如下列圖的出錯(cuò)信息提示,此時(shí)程序正執(zhí)行的語）句是（A）a = d （B）End Sub （C）a = ChrAsca - 32 （D）Label1.Caption = a 4、11 年 6 月會(huì)考 以下 Visual Basic 程序 用于運(yùn)算 10 10 的值：Private Sub Command1_Click Dim n As Integer, s As Integer n = 10 s = 10 n Text1.Text = S

5、trs End Sub 運(yùn)行程序時(shí),單擊命令按鈕Command1后彈出如下列圖的出錯(cuò)信息提示,引起該錯(cuò)誤的緣由）是（A）變量 s 的數(shù)據(jù)類型說明不當(dāng)（B）變量 n 的數(shù)據(jù)類型說明不當(dāng)（C）文本框 Text1 的寬度不夠（D）s 值太大,因此不能在文本框 Text1 中輸出5、11 年 6 月會(huì)考 某 Visual Basic Private Sub Command1_Click Dim x As Single Dim y As Single x = -10 y = Abcx Label1.Caption = Stry End Sub 程序的一個(gè)大事過程如下：運(yùn)行程序,單擊命令按鈕Command

6、1后彈出如下列圖的出錯(cuò)信息提示,引起該錯(cuò)誤的語句是）（A）Dim y As Single （B）x = -10 （C）y = Abcx 6、11 年 6 月會(huì)考 某 Visual Basic Private Sub Command1_Click Dim a As Integer Dim x As Double a = -4 x = Sqra 學(xué)習(xí)資料（D）Label1.Caption = Stry 程序的一個(gè)大事過程如下：學(xué)習(xí)資料收集于網(wǎng)絡(luò),僅供參考 Label1.Caption = Strx End Sub 運(yùn)行程序,單擊命令按鈕Command1后彈出如下列圖的出錯(cuò)信息提示,此時(shí)程序正執(zhí)行的

7、語）句是（A）Dim a As Integer （B）Dim x As Double （D）Label1.Caption = Strx （C）x = Sqra 7、（ 12 年 6 月會(huì)考）某Visual Basic程序如下：Private Sub Command1_Click Dim a1 To 10 As Integer Dim i As Integer For i = 1 To 10 ai = i * i Next i List1.AddItem Strai End Sub 運(yùn)行程序,單擊命令按鈕Command1后彈出如下列圖的出錯(cuò)信息提示,此時(shí)程序正執(zhí)行的語）句是（A）For i =

8、1 To 10 （B）ai = i * i （C）Next i （D）List1.AddItem Strai 8、（ 12 年 6 月會(huì)考）某Visual 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 = Strc End Sub 運(yùn)行程序,單擊命令按鈕Command1后彈出如下列圖的出錯(cuò)信息提示,引起該錯(cuò)誤的語句是）（A）For i = 1 To 12 （B）c = c + 1 （C）Next i （D）Text1.Tex = Strc 9、（ 12 年 6 月會(huì)考）某Visual Basic程序如下：Private Sub Command1_Click 學(xué)習(xí)資料學(xué)習(xí)資料收集于網(wǎng)絡(luò),僅供參考 Dim a1 To 10 As Integer Dim i As Integer a1 = 1 F