20xx年06月浙江省信息技術會考考試題算法選擇題和填空題-wenkub

　

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