【正文】 c = c + b 該程序段運(yùn)行后 ， 變量 c的值為 __________。 （ 2）運(yùn)行更正后的程序，循環(huán)剛退出時(shí)變量 i的值為 __________。 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)劃線處應(yīng)填入 ___________________ 程序中 (2)劃線處應(yīng)填入 ___________________ 圖 VB－ 1 題號(hào) 1 2 3 4 （ 1） （ 2） （ 1） （ 2） 答案 44 12 i=i*3 6561 x=Val() x\2 開(kāi)始 輸入十進(jìn)制數(shù) x x ≠ 0 ? 輸出 s 的值 將當(dāng)前 x 被 2 除的余數(shù)保存到變量 r Y 圖 VB 2 結(jié)束 s 賦初值（空字符串） N s ← S t r （ r ） +s 將當(dāng)前 x 被 2 除所得商的整數(shù)部分保存到變量 x 第五套 （程序設(shè)計(jì)） ： 1． 有如下 Visual Basic程序段 ： m = 8 n = 5 t = m + n t = t n 該程序段運(yùn)行后 ， 變量 t的值為 _________。 4． 在某學(xué)校里，每位同學(xué)都會(huì)得到一張一卡通卡，一卡通的卡號(hào)是唯一的，卡內(nèi)會(huì)記錄每位同學(xué)的姓名、住址、班級(jí)、金額等信息。 解決此問(wèn)題的算法流程圖如圖 VB2所示，相應(yīng)的程序如下，在程序 (1)和 (2)劃線處，填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式，把程序補(bǔ)充完整。 2． 有如下 Visual Basic程序段 ： x = 36: y = 27 If x / 3 y / 3 Then = xy Else = x=y End If 該程序段運(yùn)行后 ， 在標(biāo)簽 Label1上顯示的是 ____________。下列程序的功能是根據(jù)輸入的班級(jí)編號(hào)，統(tǒng)計(jì)該班的團(tuán)體總分。 Private Sub Command1_Click() Dim x As String, i As Integer, s As Integer x = s = 0 For i = 1 To n 39。 程序界面如圖 VB1所示，在文本框 Text1中輸入班級(jí)編號(hào)，單擊 開(kāi)始統(tǒng)計(jì) 按鈕（ Command1），程序統(tǒng)計(jì)該班的團(tuán)體總分并在文本框 Text2中顯示。 （ 2）該程序段運(yùn)行后，變量 m的值為 ____________。f為找到標(biāo)志變量 ， 值為 True表示找到 ， 否則表示沒(méi)找到 Do While (i n) And (f = False) 39。下列程序的功能是根據(jù)卡號(hào)查找對(duì)應(yīng)的姓名，程序中數(shù)組 a保存所 有已發(fā)放一卡通的卡號(hào)，數(shù)組b保存卡號(hào)對(duì)應(yīng)的姓名，第 i位同學(xué)的卡號(hào)保存在 a(i)中，姓名保存在 b(i)中。 3． 有如下 Visual Basic程序 ： Private Sub Command1_Click() Dim a(1 To 100) As Integer, i As Integer, s As Integer s = 0 For i = 2 To 100 Step 2 a(i) = i * 2 s = s + a(i) Next i = Str(s) End Sub 問(wèn)： （ 1）程序運(yùn)行后，下標(biāo)變量 a(4)的值為 _________。 程序界面如圖 VB1所示，在文本框 Text1中輸入一個(gè)正整數(shù)，單擊 開(kāi)始轉(zhuǎn)換 按鈕（ Command1）后，對(duì)應(yīng)的二進(jìn)制數(shù)在標(biāo)簽 Label3中顯示出來(lái)。 3． 以下 Visual Basic程序的功能是 ： 計(jì)算表達(dá)式 1＋ 3＋ 9＋ 27＋ 81＋… 2187的值 ，并在文本框 Text1中輸出計(jì)算結(jié)果。 解決此問(wèn)題的算法流程圖如圖 VB2所示，相應(yīng)的程序如 下，在程序 (1)和 (2)劃線處填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式，將程序補(bǔ)充完整。 （ 2）循環(huán)剛退出時(shí)，變量 i的值為 ____________。 解決此問(wèn)題的算法流程圖如圖 VB2所示，相應(yīng)的程序如下，在程序 (1)和 (2)劃線處填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式，將程序補(bǔ)充完整。 4． 某網(wǎng)站組織了 100個(gè)商品進(jìn)行網(wǎng)絡(luò)人氣調(diào)查，投票結(jié)束后，要選出得票數(shù)最高的前 10個(gè)商品。n 保存違章記錄總數(shù) If x = a(i) Then s = s + 1 b(i) End If Next i = Str(s) If________(2)__________ Then 沒(méi)有任何違章記錄 End Sub 程序中 (1)劃線處應(yīng)填入 _______________ 程序中 (2)劃線處應(yīng)填入 _______________ 圖 VB1 圖 VB2 題號(hào) 1 2 3 4 （ 1） （ 2） （ 1） （ 2） 答案 18 合格 33 5 S=0 第二套 （程序設(shè)計(jì)） ： 1． 有如下 Visual Basic程序段 ： a = 1024: i = 2 b = a / i c = b / i 該程序段運(yùn)行后 ， 變量 c的值為 ____________。下列程序的功能是根據(jù)車牌 號(hào)查找該車的違章信息，數(shù)組 a和 b分別保存所有違章汽車的車牌號(hào)和違章原因，第 i條信息的車牌號(hào)保存在 a(i)中，對(duì)應(yīng)的違章原因保存在 b(i)中。 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 問(wèn)： （ 1）程序運(yùn)行后，變量 s 的值為 ____________。已知質(zhì)量分?jǐn)?shù)為 16%的食鹽溶液質(zhì)量為 m，計(jì)算溶質(zhì)質(zhì)量 y的步驟有： ①輸出溶質(zhì)質(zhì)量 y ② p= ③計(jì)算溶質(zhì)質(zhì)量 y=m*p ④輸入食鹽溶液質(zhì)量 m 其正確的順序是 （ A）④②③① （ B）①②③④ （ C）④③①② （ D）④③②① 8． 某校田徑運(yùn)動(dòng)會(huì)中，八名 100米短跑運(yùn)動(dòng)員的成績(jī)分別為 ， ， ， ， ， ， ， 采用對(duì)分查找算法查找成績(jī) 4次，這 4次查找中依次比較的成績(jī)是 （ A） （ B） （ C） （ D） 9． 在 Visual Basic中，賦值語(yǔ)句 carno=浙 Z一 個(gè)酵母細(xì)胞，經(jīng)過(guò)多少分鐘后數(shù)目超過(guò) 100個(gè)。已知?dú)怏w的體積 v，計(jì)算溫度 t的步驟有： ①計(jì)算溫度 t=(v100)/k ② k= ③輸出溫度 t ④輸入氣體體積 v 其正確的順序是 （ A）④②①③ （ B）④①②③ （ C）③①②④ （ D）④①③② 8． 有 23個(gè)蘋(píng)果分給甲、乙、丙、丁四個(gè)孩子，每個(gè)孩子最多可得到的蘋(píng)果數(shù)依次為 6個(gè)，找出所有不同分法的算法是：采用列舉方式，列舉每個(gè)孩子所有可能得到的蘋(píng)果數(shù)，對(duì)四人所得蘋(píng)果數(shù)總和是否為 23進(jìn)行判斷，找出符合要求的各種分法，此算法屬于 （ A）解析算 法 （ B）枚舉算法 （ C）遞歸算法 （ D）排序算法 9． 在 Visual Basic中，用變量 p存儲(chǔ)數(shù)值 ，變量 p的數(shù)據(jù)類型應(yīng)定義為 （ A） Boolean （ B） Integer （ C） Single （ D） Date 10． 在 Visual Basic中 ， 下列表達(dá)式的值等于 3的是 （ A） Int() （ B） Abs() （ C） Sqr() （ D） Len() 11． 在 Visual Basic中 ， 語(yǔ)句 =2020中的 Soft是 （ A） 屬性名 （ B） 屬性值 （ C） 對(duì)象名 （ D） 窗體名 12． 在 Visual Basic中 ， 如果給變量 a、 b都賦值為 3， 則下列語(yǔ)句正確的是 （ A） a=3:b=3 （ B） a=b=3 （ C） a=3,b=3 （ D） b=a=3 13． 在 Visual Basic中 ， 如果 a=3， b=4， c=5， 那么下列表達(dá)式值為假的是 （ A） (ab) And (bc) （ B） (ac) And (ba) （ C） (ab) Or (bc) （ D） (ac) Or (ba) 14． 某數(shù)列前三項(xiàng)分別為： a1 = a2 = a3 = 4，以后每項(xiàng)都滿足 : ai = ai3 + ai1 （ i3） 如果用數(shù)組 a存儲(chǔ)該數(shù)列的前 20項(xiàng)，下面程序段劃線處應(yīng)填入 a(1)=2 : a(2)=3 : a(3)=4 For i=______ To 20 a(i) = a(i 3) + a(i 1) Next i （ A） 6 （ B） 9 （ C） 13 （ D） 4 題號(hào) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 答案 A C A B C D A B C A C A A D 第二套 （選擇題） ： 1． 李斌發(fā)現(xiàn)按照車上的 GPS導(dǎo)航儀規(guī)劃的路線駕駛經(jīng)常出錯(cuò)，他更新了導(dǎo)航軟件的地圖文件后，出現(xiàn)錯(cuò)誤的概率大大降低，該事例反映出信息具有 （ A）載體依附性 （ B）時(shí)效性 （ C）共享性 （ D）傳遞性 2． 十六進(jìn)制數(shù) 4FH轉(zhuǎn)換成二進(jìn)制數(shù)是 （ A） (1001111)2 （ B） (1011011)2 （ C） (1010111)2 （ D） (1011110)2 3． 標(biāo)準(zhǔn) ASCII碼最多能表示的字符個(gè)數(shù)是 （ A） 8 （ B） 64 （ C） 128 （ D） 512 4． 下圖是一個(gè)用 Access軟件創(chuàng)建的數(shù)據(jù)表，該數(shù)據(jù)表中共有記錄數(shù) （ A） 3 （ B） 5 （ C） 11 （ D） 31 5． 某音頻文件屬性如下圖所示： 下列對(duì)該音頻文件的描述正確的是 （ A）文件名為 （ B）只有一個(gè)聲道 （ C）量化位數(shù)為 2 （ D）采樣頻率為 22kHz 6． 有流程圖如下所示： 開(kāi)始 結(jié)束 輸出 a 輸出 b b=9 ？ N Y a ← 3 b ← a+5 該算法的輸出結(jié)果為 （ A） 3 （ B） 5 （ C） 8 （ D） 9 7． 某超市在晚上 7： 30－ 8： 30期間，對(duì)于在貨架上已超過(guò) 2天的帶葉蔬菜，收銀機(jī)自動(dòng)將價(jià)格下降 50%。他通過(guò)網(wǎng)絡(luò)獲取了一些捐款賬號(hào)，可信度較高的是 （ A）中國(guó)紅十字會(huì)總會(huì)網(wǎng)站發(fā)布的賬號(hào) （ B）在網(wǎng)絡(luò)上通過(guò)搜索引擎搜索到的賬號(hào) （ C）網(wǎng)友通過(guò) 發(fā)布的賬號(hào) （ D）來(lái)歷不明的電子郵件中的賬號(hào) 2． 十進(jìn)制數(shù) 23轉(zhuǎn)換成二進(jìn)制數(shù)是 （ A） (10011)2 （ B） (10101)2 （ C） (10111)2 （ D） (11011)2 3． 全文檢索是一種從全文中檢索所需信息的檢索技術(shù)，其檢索的對(duì)象為 （ A）文本 （ B）圖像 （ C）聲音 （ D）視頻 4． 購(gòu)買車票可到不同的售票點(diǎn)辦理，而各售票點(diǎn)賣出的車票互不重號(hào)，通常是因?yàn)楦魇燮秉c(diǎn)售票系統(tǒng)檢索的是相同的