【正文】 體名 12． 在 Visual Basic中 ， 如果給變量 a、 b都賦值為 3， 則下列語句正確的是 （ 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存儲該數(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 二 、 李斌發(fā)現(xiàn)按照車上的 GPS導(dǎo)航儀規(guī)劃的路線駕駛經(jīng)常出錯，他更新了導(dǎo)航軟件的地圖文件后，出現(xiàn)錯誤的概率大大降低，該事例反映出信息具有 （ A）載體依附性 （ B）時效性 （ 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碼最多能表示的字符個數(shù)是 （ A） 8 （ B） 64 （ C） 128 （ D） 512 4． 下圖是一個用 Access軟件創(chuàng)建的數(shù)據(jù)表，該數(shù)據(jù)表中共有記錄數(shù) （ A） 3 （ B） 5 （ C） 11 （ D） 31 5． 某音頻文件屬性如下圖所示： 下列對該音頻文件的描述正確的是 （ A）文件名為 （ B）只有一個聲道 （ C）量化位數(shù)為 2 （ D） 采樣頻率為 22kHz 6． 有流程圖如下所示： 開始 結(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期間，對于在貨架 上已超過 2天的帶葉蔬菜，收銀機(jī)自動將價格下降 50%。一個酵母細(xì)胞，經(jīng)過多少分鐘后數(shù)目超過 100個。 正整數(shù) a、 b、c滿足等式 a2+b2=c2， a、 b、 c 稱為 勾股數(shù) ，求出 100以內(nèi)所有 勾股數(shù) 可采用的算法是 （ A） 枚舉算法 （ B）解析算法 （ C）冒泡排序 （ D）選擇排序 9． 在 Visual Basic中 ， 用變量 ye存儲 Good Luck， 變量 ye的數(shù)據(jù)類型應(yīng)定義為 （ A） Integer （ B） Single （ C） Boolean （ D） String 10． 在 Visual Basic中 ， 表達(dá)式 345 Mod 100的值是 （ A） 3 （ B） 34 （ C） 45 （ D） 5 11． 在 Visual Basic中 ， 如果要在命令按鈕 Cmd1上顯示文字 開始 ， 下列語句正確的是 （ A） =開始 （ B） =開始 （ C） =開始 （ D） =開始 12． 以下程序段是一個完整的 Visual Basic的 For語句 ， 則劃線處的語句應(yīng)該是 For k=1 To 3 s=s+k （ A） Loop （ B） End If （ C） Next k （ D） Step k 13． 在 Visual Basic中 ， 若 x、 y都是整數(shù) ， 且 x≠ y， 則下列邏輯表達(dá)式值一定為真的是 （ A） xy （ B） Not(xy) （ C） x=y （ D） Not(x=y) 14． 實(shí)現(xiàn)計算器上 xy運(yùn)算處理的算法部分流程圖如下圖所示： N j ← 1 , f ← 1 j= y ？ j ← j + 1 輸出 f 輸入 y , x Y 空白矩形框中應(yīng)該填入的是 （ A） f← f*x （ B） f← x*j （ C） f← f+x （ D） f← f*j 十、 下列有關(guān)信息的說法正確的是 （ A）信息一旦共享就會消失 （ B）所依附的載體損壞時，信息還能保持完整 （ C）所有的信息都是真實(shí)可信的 （ D）同一個信息可以依附于不同的載體 2．二進(jìn)制數(shù) (111010)2轉(zhuǎn)換成十六進(jìn)制數(shù)是 （ A） E2H （ B） F2H （ C） 3AH （ D） 75H 3．用 UltraEdit軟件觀察字符 PC樂園 的內(nèi)碼，結(jié)果如下圖所示： 圖中字母 P的內(nèi)碼是 （ A） 50 （ B） 50 43 （ C） C0 （ D） C0 D6 4． 小史寫了一部網(wǎng)絡(luò)小說，剛想發(fā)布卻發(fā)現(xiàn)其中的主人公姓名已在他人作品中出現(xiàn)，他想把小說中幾千處的主人公姓名改成其他名字，可采用字處理軟件中的 （ A）自動更正功能 （ B）修訂功能 （ C）查找和替換功能 （ D）批注功能 5． 如下圖所示，編輯圖 A得到圖 B，采用的操作是 （ A）縮放 （ B）旋轉(zhuǎn) （ C）裁剪 （ D）調(diào)節(jié)亮度 /對比度 6． 某地規(guī)定 70歲及以上老年人可以辦理老年卡，辦理過程的部分流程圖如下圖所示： Y N 年齡≥ 70 ？ 不予辦理 可以辦理 該 部分流程圖的算法結(jié)構(gòu)屬于 （ A）順序結(jié)構(gòu) （ B）選擇結(jié)構(gòu) （ C）循環(huán)結(jié)構(gòu) （ D）重復(fù)結(jié)構(gòu) 7． 計算溶質(zhì)質(zhì)量的公式是：溶質(zhì)質(zhì)量 =質(zhì)量分?jǐn)?shù)溶液質(zhì)量。 2． 有如下 Visual Basic程序段 ： x = 90 If x 90 Then = 聲音超標(biāo) Else = 合格 End If 該程序段運(yùn)行后 ， 在標(biāo)簽 Label1上顯示的是 ____________。在違章查詢系統(tǒng)中輸入車主的汽車車牌號，查詢系統(tǒng)就會按照車牌號查找所有的違章記錄。 Private Sub Command1_Click() Dim x As String, i As Integer, s As Integer s = 0 x = (1) For i = 1 To n 39。 （ 2）程序運(yùn)行后，語句 s=s+1被執(zhí)行的次數(shù)為 ____________。 程序界面如圖 VB1所示，左邊列表框 List1中顯示的是所有商品的代號和得票數(shù)（按代號從小到大排列），單擊 開始統(tǒng)計 按鈕（ Command1）后，在右邊的列表框List2中顯示得票數(shù)最高的 10個商品的代號和得票數(shù)（按照得票數(shù)從高到低的順序顯示）。 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）程序運(yùn)行后，變量 s 的值為 ____________。下列程序的功能是根據(jù)車牌號查找該車的違章信息，數(shù)組 a和 b分別保存所有違章汽車的車牌號和違章原因，第 i條信息的車牌號保存在 a(i)中，對應(yīng)的違章原因保存在 b(i)中。n 保存違章記錄總數(shù) If x = a(i) Then s = s + 1 b(i) End If Next i = Str(s) If (2) Then 沒有任何違章記錄 End Sub 程序中 (1)劃線處應(yīng)填入 _______________ 程序中 (2)劃線處應(yīng) 填入 _______________ 圖 VB1 圖 VB2 四、 1． 有如下 Visual Basic程序段 ： a = 12 b = 32 c = a c = c + b 該程序段運(yùn)行后 ， 變量 c的值為 __________。 （ 2）運(yùn)行更正后的程序，循環(huán)剛退出時變量 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 開始 輸入十進(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 五、 1． 有如下 Visual Basic程序段 ： m = 8 n = 5 t = m + n t = t n 該程序段運(yùn)行后，變量 t的值為 _________。 4． 在某學(xué)校里，每位同學(xué)都會得到一張一卡通卡，一卡通的卡號是唯一的，卡內(nèi)會記錄每位同學(xué)的姓名、住址、班級、金額等信息。 解決此問題的算法流程圖如圖 VB2所示，相應(yīng)的程序如下，在程序 (1)和 (2)劃線處，填入適當(dāng)?shù)恼Z句或表達(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ù)輸入的班級編號，統(tǒng)計該班的團(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。 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）為了實(shí)現(xiàn)這一目標(biāo)，程序劃線處的表達(dá)式應(yīng)更正為 __________。 解決此問題的算法流程圖如圖 VB2所示，相應(yīng)的 Visual Basic程序如下，在程序 (1)和 (2)劃線處，填入適當(dāng)?shù)恼Z句或表達(dá)式，把程序補(bǔ)充完整。 Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0 i = 1 Do While i = 100 s = i * 3 i = i + 1 Loop = Str(s) End Sub 問： （ 1）剛退出循環(huán)時，變量 i的值是 ___________。 解決此問題的算法流程圖如圖 VB2所示，相應(yīng)的 Visual Basic程序如下，在程序 (1)和 (2)劃線處，填入適當(dāng)?shù)恼Z句或表達(dá)式，把程序補(bǔ)充完整。 4. 某市出 租車計費(fèi)標(biāo)準(zhǔn)規(guī)定：出租車啟動后行程不超過 3千米（包含 3千米）計費(fèi) 5元；如果行程超過 3千米且不超過