【正文】 Private Sub Command1_Click() Dim x As Integer, s As String, r As Integer, t As Integer _____(1)_____ s = Do While x 0 r = x Mod 2 s = Str(r) + s x = _____(2)_____ Loop = s End Sub 程序中 (1)劃線處應填入 ___________________ 程序中 (2)劃線處應填入 ___________________ 圖 VB－ 1 開始 輸入十進制數(shù) x x ≠ 0 ? 輸出 s 的值 將當前 x 被 2 除的余數(shù)保存到變量 r Y 圖 VB 2 結束 s 賦初值（空字符串） N s ← S t r （ r ） +s 將當前 x 被 2 除所得商的整數(shù)部分保存到變量 x 八、 1. 有如下 Visual Basic程序段 ： m = VB n = is t = easy t = m + n + t 該程序段運行后，變量 t的值為 。 3． 有如下 Visual Basic程序段 ： Dim a(1 To 10) As Integer, i As Integer, m As Integer m = a(1) i = 2 Do While i = 10 If m a(i) Then m = a(i) i = i + 1 Loop 已知數(shù)組 a中 a(1)、 a(2)、 … 、 a(10)保存的數(shù)值分別為 ： 5 3 1 2 78 90、 11， 問： （ 1）循環(huán)剛退出時，變量 i的值為 ____________。 4． 將一個十進制正整數(shù)轉化為二進制數(shù)可以采用 除二取余法 ，主要方法就是將十進制數(shù)用 2除，保存所得余數(shù)，然后將商的整數(shù)部分作為下次運算的被除數(shù)，重復上述 除二取余 操作，直到商的整數(shù)部分為零停止。 解決此問題的算法流程圖如圖 VB2所示，相應的程序如下，在程序 (1)和 (2)劃線處填入適當?shù)恼Z句或表達式，將程序補充完整。 3． 有如下 Visual Basic程序 ： Private Sub Command1_Click() Dim s As Integer, t As Integer t = 1: s = 0 For i = 1 To 10 Step 2 t = t * 2 s = t + 1 Next i = Str(s) End Sub 問： （ 1）程序運行后，變量 s 的值為 ____________。一、 某地發(fā)生了自然災害，小秦想通過捐款奉獻自己的一片愛心。 （ 2）程序運行后，語句 t = t * 2被執(zhí)行的次數(shù)為 ____________。 Private Sub Command1_Click() Dim i As Integer, j As Integer, t As Integer For i = 1 To 10 For j = 100 To i + 1 Step (1) If b(j) b(j 1) Then t = a(j 1): (2) : a(j) = t t = b(j 1): b(j 1) = b(j): b(j) = t End If Next j Next i For i = 1 To 10 Str(a(i)) + + Str(b(i)) Next i End Sub 程序中 (1)劃線處應填入 ___________________ 程序中 (2)劃線處應填入 ___________________ 圖 VB1 圖 VB2 三、 1． 有如下 Visual Basic程序段 ： i = 7: j = 3 k = i * j j 該程序段運行后 ， 變量 k的值為 ____________。 程序界面如圖 VB1所示，在文本框 Text1中輸入一個正整數(shù)，單擊 開始轉換 按鈕（ Command1）后，對應的二進制數(shù)在標簽 Label3中顯示出來。 （ 2）該程序段運行后，變量 m的值為 ____________。 2. 有如下 Visual Basic程序段 ： a = 23 b = 34 If a b Then = ab Else = a=b End If 該程序段運行后 ， 在標簽 Label1上顯示的是 。 解決此問題的算法流程圖如圖 VB2所示，相應的 Visual Basic程序如下，在程序 (1)和 (2)劃線處，填入適當?shù)恼Z句或表達式，把程序補充完整。 2． 有如下 Visual Basic程序段 ： x = 36: y = 27 If x / 3 y / 3 Then = xy Else = x=y End If 該程序段運行后 ， 在標簽 Label1上顯示的是 ____________。 （ 2）運行更正后的程序，循環(huán)剛退出時變量 i的值為 __________。 程序界面如圖 VB1所示，左邊列表框 List1中顯示的是所有商品的代號和得票數(shù)（按代號從小到大排列），單擊 開始統(tǒng)計 按鈕（ Command1）后，在右邊的列表框List2中顯示得票數(shù)最高的 10個商品的代號和得票數(shù)（按照得票數(shù)從高到低的順序顯示）。 2． 有如下 Visual Basic程序段 ： x = 90 If x 90 Then = 聲音超標 Else = 合格 End If 該程序段運行后 ， 在標簽 Label1上顯示的是 ____________。他通過網(wǎng)絡獲取了一些捐款賬號，可信度較高的是 （ A）中國紅十字會總會網(wǎng)站發(fā)布的賬號 （ B）在網(wǎng)絡上通過搜索引擎搜索到的賬號 （ C）網(wǎng)友通過 發(fā)布的賬號 （ D）來歷不明的電子郵件中的賬號 2． 十進制數(shù) 23轉換成二進制數(shù)是 （ A） (10011)2 （ B） (10101)2 （ C） (10111)2 （ D） (11011)2 3． 全文檢索是一種從全文中檢索所需信息的檢索技術，其檢索的對象為 （ A）文本 （ B）圖像 （ C）聲音 （ D）視頻 4． 購買車票可到不同的售票點辦理，而各售票點賣出的車票互不重號，通常是因為各售票點售票系統(tǒng)檢索的是相同的 （ A） Word文檔 （ B）數(shù)據(jù)庫 （ C） Excel文檔 （ D）文本文檔 5． 如下圖所示，編輯圖 A得到圖 B，采用的操作是 （ A）縮放 （ B）旋轉 （ C）裁剪 （ D）調(diào)節(jié)亮度 /對比度 6． 有流程圖結構如下，其算法結構屬于 N ＞ 10 ？ 輸出 S Y N N ← N+ 1 S ← S + N （ A）順序結構 （ B）選擇結構 （ C）分支結構 （ D）循環(huán)結構 7． 某種氣體在 0℃時的體積為 100L，溫度 t每升高 1℃，其體積 v就增加 。 4． 交通違章查詢。 2． 有如下 Visual Basic程序段 ： x = 90 If x 90 Then = 聲音超標 Else = 合格 End If 該程序段運行后 ， 在標簽 Label1上顯示的是 ____________。 解決此問題的算法流程圖如圖 VB2所示，相應的 Visual Basic程序如下，在程序 (1)和 (2)劃線處，填入適當?shù)恼Z句或表達式，把程序補充完整。 4． 團體總分統(tǒng)計。 3. 以下 Visual Basic程序的功能是 ： 計算表達式 1 3＋ 2 3＋ 3 3＋… 100 3的值 ， 并在文本框 Text1中輸出計算結果。 程序界面如圖 VB1所示，在文本框 Text1中 輸入一個正整數(shù)，單擊 開始轉換 按鈕（ Command1）后，對應的二進制數(shù)在標簽 Label3中顯示出來。n保存學生總人數(shù) i = i + 1 If x = a(i) Then f = True End If Loop If f = True Then _____(2)____ Else s = 查無此人！ End If = s End Sub 程序中 (1)劃線處應填入 ___________________ 程序中 (2)劃線處應填入 ___________________ 圖 VB－ 1 圖 VB2 六、 1． 有如下 Visual Basic程序段 ： a = Test b = is c = easy c = a + b + c 該程序段運行后 ， 變量 c的值為 ____________。 Private Sub Command1_Click() Dim i As Integer, t As Long t = 0 i = 1 Do While i = 2187 t = t + i i = i + 3 Loop = Str(t) End Sub 問： （ 1）為了實現(xiàn)這一目標，程序劃 線處的表達式應更正為 __________。商品的代號和得票數(shù)分別保存在數(shù)組 a和 b中，第 i個商品的代號保存在 a(i)中，對應的得票數(shù)保存在 b(i)中。 56789是 （ A）字符串常量 （ B）數(shù)值常量 （ C）邏輯常量 （ D）實數(shù)常量 10． 長 方體側面積計算公式是 s=2h(a+b)， a、 b為長和寬， h為高，計算 s的 Visual Basic表達式是 （ A） 2h(a+b) （ B） 2h*(a+b) （ C） 2*h(a+b) （ D） 2*h*(a+b) 11． 在 Visual Basic中 ， 表示窗體裝載的事件是 （ A） Click （ B） KeyPress （ C） Load （ D） DblClick 12． 下面程序段是利用 For語句給數(shù)組 a賦值 For i= 1 To 5 a(i)=2*i1 Next i 該程序段運 行后數(shù)組元素 a(4)的值為 （ A） 4 （ B） 5 （ C） 7 （ D） 9 13． 在 Visual Basic中，若 x、 y都是正整數(shù)，且 x能被 y整除，則下列表達式值一定為真的是 （ A） x/y=0 （ B） Sqr(x\y)=x\y （ C） Int(x\y)=0 （ D） Int(x/y)=x/y 14． 把星期一記為 1，星期二記為 2，……，星期日記為 0，已知某月 1日（即第 1天）是星期一，下列語句中，用于正確計算該月第 n日星期數(shù) w的是 （ A） w=n Mod 7 （ B） w=(n+1) Mod 7 （ C） w=(n+1)\7 （ D） w=n\7 程序填空題： 一、 1． 有如下 Visual Basic程序段 ： i = 7: j = 3 k = i * j j 該程序段運行后 ， 變量 k的值為 ____________。已知氣體的體積 v，計算溫度 t的步驟有： ①計算溫度 t=(v100)/k ② k= ③輸出溫度 t ④輸入氣體體積 v 其正確的順序是 （ A）④②①③ （ B）④①②③ （ C）③①②④ （ D）④①③② 8． 有 23個蘋果分給甲、乙、丙、丁四個孩子，每個孩子最多可得到的蘋果數(shù)依次為 6個，找出所有不同分法的算法是：采用列舉方式，列舉每個孩子所有可能得到的蘋果數(shù)，對四人所得蘋果數(shù)總和是否為 23進行判斷，找出符合要求的各種分法，此算法屬 于 （ A）解析算法 （ B）枚舉算法 （ C）遞歸算法 （ D）排序算法