【正文】 Str(c) 該程序段運行后，在標(biāo)簽 Label1 上顯示的是 ____________。 3. 已知某數(shù)列前二項分別為： a1 = a2 = 2，以后每項都滿足 : ai = ai1 + ai2 （ i2） 有如下 Visual Basic程序段 ： Dim a(1 To 20) As Integer a(1) = 1: a(2) = 2 For i = 3 To a(i) = a(i 2) + a(i 1) Next i 問： （ 1）數(shù)組 a存儲該數(shù)列的前 20項，上面程序段劃線處應(yīng)填入 _________。 （ 2）該程序段運行后， a(6)的值為 ____________。 4. 王敏的 EMail郵箱密碼忘記了，但她需要收一封很重要的來信，請你幫她盡可能找出密碼。她零星記得自己密碼信息： ①密碼是六位數(shù)字，前面兩位為 31； ②最后兩位數(shù)字相同； ③能被 16和 46整除。 程序界面如圖所示，單擊 幫助找回密碼 按鈕 （ Command1）后，可能的密碼顯示在列表框 List1中。 解決此問題的相應(yīng)程序如下： Private Sub Command1_Click() Dim a As Integer, s As long, b As Integer, i As Integer For i = 0 To 9999 ① s = 310000 + i If s Mod 46 = 0 Then ② b = (s Mod 100) \ 10 If a = b Then Str(s) End If End If Next i End Sub （ 1）解決此問題的算法是 ________________。（選填：枚舉算法 或 排序算法） 在程序 ① 和 ② 劃線處，填入適當(dāng)?shù)恼Z句或表達式，把程序補充完整： （ 2）程序中 ① 劃線處應(yīng)填入 __________________。 （ 3）程序中 ② 劃線處應(yīng)填入 __________________。 第六套 1. 有如 下 Visual Basic程序段 ： a = 15 b = Val(256) a = a * 2 + b 該程序段運行后，變量 a的值為 ____________。 2. 有如下 Visual Basic程序段 ： a = Mid(Please input, 4, 2) b = Please If Len(a) Len(b) Then = 標(biāo)準(zhǔn) Else = 不合格 End If 該程序段運行后，在標(biāo)簽 Label1 上顯示的是 ____________。 3. 已知某數(shù)列前二項分別為： a1 = 1， a2 = 2，以后每項都滿足： ai = ai1 + ai2 （ i2） 有如下 Visual Basic程序段 ： Dim a(1 To 20) As Integer a(1) = 1: a(2) = 2 For i = 3 To 20 a(i) = + a(i 2) Next i 問： （ 1）如果用數(shù)組 a存儲該數(shù)列的前 20項，程序段劃線處應(yīng)填入 _________。 （ 2）該程序段運行后， a(4)的值為 ____________。 4. 小明設(shè)計了某單位的公積金查詢系統(tǒng)，輸入職工的公積金賬號，可以查出該賬號對應(yīng)的余額。所有職工的公積金賬號和相應(yīng)的余額已分別保存在數(shù)組 a（按從小到大排序）和數(shù)組 b中，第 i個職工的賬號保存在 a(i)中，對應(yīng)的賬號余額保存在 b(i)中。 程序界面如圖所示，左邊列表框 List1中顯示的是部分職工的賬號和余額，在文本框 Text1中輸入職工的公積金賬號，單擊 查詢余額 按鈕（ Command1）后，如果找到此賬號，則在標(biāo)簽 Label2中顯示 此賬號余額為 和賬號對應(yīng)的余額值，如果未找到則顯示 找不到此賬號，請重新輸入 。 解決此問題的算法流程圖如圖所示，相應(yīng)的查找部分程序段如下： Dim a(1 To n) As Long Dim b(1 To n) As Single Private Sub Command1_Click() Dim x As Long, i As Long, j As Long, m As Long, f As Boolean x = Val() i = 1: j = n: f = False 39。 設(shè)賬號總數(shù)為 n Do While (i = j) And Not f ① If x = a(m) Then f = True ElseIf x a(m) Then j = m 1 Else ② End If Loop If f Then = 此賬號余額為 + Str(b(m)) + 元 Else = 找 不到此賬號，請重新輸入 End If End Sub Private Sub Form_Load() 39。 此過程用于對數(shù)組 a和數(shù)組 b進行初始賦值，代碼略 End Sub （ 1）解決此問題的算法是 _____________。（選填：對分查找 或 順序查找） 在程序 ① 和 ② 劃線處填入適當(dāng)?shù)恼Z句或表達式，將程序補充完整： （ 2）程序中 ① 劃線處應(yīng)填入 ________________。 （ 3）程序中 ② 劃線處應(yīng)填入 ________________。 第七套 1. 有如下 Visual Basic程序段 ： a = 210 b = 19 b = a + a \ 5 該程序段運行后，變量 b的值為 ____________。 2. 有如下 Visual Basic程序段 ： a = 11 b = Len(Visual Basic) If a b Then = 計算機基礎(chǔ) Else = 課外活動 End If 該程序段運行后，在標(biāo)簽 Label1 上顯示的是 ____________。 3. 有如下 Visual Basic程序段 ： s = 150: i = 1 Do While s 100 s = s i + 1 i = i + 20 Loop 問 ： 該程序段運行后 ， （ 1） 變量 i的值是 ___________。 （ 2）變量 s的值為 ___________。 4. 陳曉峰和同學(xué)們?nèi)マr(nóng)科院開展研究性學(xué)習(xí)，大家都收獲很大，曉峰設(shè)計了一個 Visual Basic程序，他把同學(xué)們收集到的水稻畝產(chǎn)量和同學(xué)姓名已分別保存在數(shù)組 a和數(shù)組 b中，第 i個同學(xué)收集的畝產(chǎn)量保存在 a(i)中，對應(yīng)的同學(xué)姓名保存在 b(i)中，最后按畝產(chǎn)量從高到低進行排序。 程序界面如圖所示，左邊列表框 List1中顯示的是所有同學(xué)收集到的原始數(shù)據(jù)，單擊 排序 按鈕（ Command1）后，在右邊的列表框 List2中顯示排序完成后的結(jié)果（按畝產(chǎn)量從高到低排列）。 解決此問題的算法流程圖如圖所示，相應(yīng)的排序部分程序如下： Dim a(1 To n) As Single Dim b(1 To n) As String Private Sub Command1_Click() Dim i As Integer, j As Integer, c As Single, t As String For i = 1 To n 39。 設(shè)共有 n名同學(xué) For j = n To i + 1 ① If ② Then c = a(j 1) a(j 1) = a(j) a(j) = c t = b(j 1) b(j 1) = b(j) b(j) = t End If Next j Next i For i = 1 To n Str(a(i)) + + b(i) Next i End Sub Private Sub Form_Load() 39。 此過程用于對數(shù)組 a和數(shù)組 b進行初始賦值，代碼略 End Sub （ 1）解決此問題的算 法是 ________________。（選填：選擇排序 或 冒泡排序） 在程序 ① 和 ② 劃線處填入適當(dāng)?shù)恼Z句或表達式，將程序補充完整： （ 2）程序中 ① 劃線處應(yīng)填入 ___________________。 （ 3）程序中 ② 劃線處應(yīng)填入 ___________________。 第八套 1. 有如下 Visual Basic程序段 ： a = 29:b = 6 a = a Mod b b = a + Len(Input) 該程序段運行后，變量 b的值為 ____________。 2. 有如下 Visual Basic程 序段 ： x = 2020 s =10 If x 2020 Then s = s + x = Str(s) 該程序段運行后，在標(biāo)簽 Label1 上顯示的是 ____________。 3. 有如下 Visual Basic程序段 ： Dim i As Integer, s As Integer i = 5 s = 0 Do While i = 50 s = s + i: i = i * 2 Loop 問 ： 該程序段運行后 ， （ 1） 語句 “s = s + i”執(zhí)行的次數(shù)為 ____________。 （ 2）變量 s的值為 ____________。 4. 數(shù)制轉(zhuǎn)換。將一個 K進制 (k=10)數(shù) x轉(zhuǎn)換成十進制數(shù)可采用如下方法：主要方法是從右向左，依次取數(shù) x的各位數(shù)字，分別計算出該數(shù)從右邊數(shù)起的第 i位數(shù)字與 k(i1)的積，再將其累加，直到所有的數(shù)字取完為止。例如，將五進制數(shù) 1231轉(zhuǎn)換成十進制數(shù)的方法如下： 下列 Visual Basic程序的功能是將 K進制 (k=10)數(shù) x轉(zhuǎn)換成十進制數(shù)。界面如圖所示，在文本框 Text1中輸入數(shù)制 k，在文本框 Text2中輸入數(shù) x，單擊 轉(zhuǎn)換 按鈕（ Command1）后，在標(biāo)簽 Label4中輸出轉(zhuǎn)換的結(jié)果。 解決此問題的算法流程圖如圖所示，相應(yīng)的 Visual Basic程序如下： Private Sub Command1_Click() Dim b As Long, i As Integer, k As Integer, x As Long, t As Integer b = 0: i = 1 k = Val() x = Val() t = x Mod 10 Do While ① b = ② x = x \ 10 t = x Mod 10 i = i + 1 Loop = Str(k) + 進制數(shù) + + 轉(zhuǎn)換成十制數(shù)為 + Str(b) End Sub （ 1） 解決此問題所用的算法是 ________________。 （選填：解析法 或 枚舉法） 在程序 ① 和 ② 劃線處，填入適當(dāng)?shù)恼Z句或表達式，把程序補充完整： （ 2）程序中 ① 劃線處應(yīng)填入 ___________________。 （ 3）程序中 ② 劃線處應(yīng)填入 ___________________。 第九套 1. 有如下 Visual Basic程序段 ： b = Len() s = Mid(picture, 2, b) 該程序段運行后，變量 s的值為 ____________。 2. 有如下 Visual Basic程序段 ： x = 100 s = 10 If x s Then s = s + x = Str(s) 該程序段運行后，在文本框 Text1 中 顯示的是 ____________。 3. 有如下 Visual Basic程序段 ： Dim a As Integer, b As Integer, c As Integer a = 20 b = 0 c = 2 Do While a b And a c b = b + 1