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

【導讀】取了一些捐款賬號，可信度較高的是。在網絡上通過搜索引擎搜索到的賬號。網友通過QQ發布的賬號。來歷不明的電子郵件中的賬號。2．十進制數23轉換成二進制數是。3．全文檢索是一種從全文中檢索所需信息的檢索技術，其檢索的對象為。文本圖像聲音視頻。4．購買車票可到不同的售票點辦理，而各售票點賣出的車票互不重號，通常是因為。各售票點售票系統檢索的是相同的。6．有流程圖結構如下，其算法結構屬于。7．某種氣體在0℃時的體積為100L，溫度t每升高1℃，其體積v就增加。能得到的蘋果數，對四人所得蘋果數總和是否為23進行判斷，找出符合要求的各種。9．在VisualBasic中，用變量p存儲數值，變量p的數據類型應定義為。10．在VisualBasic中，下列表達式的值等于3的是。件的地圖文件后，出現錯誤的概率大大降低，該事例反映出信息具有。自動將價格下降50%。下列說法正確的是

　　

【正文】 isual Basic程序如下，在程序 (1)和 (2)劃線處，填入適當的語句或表達式，把程序補充完整。 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的值為 _________。 2． 有如下 Visual Basic程序段 ： x = 5001 s = 1 If x 5000 Then s = s + 1 = Str(s) 該程序段運行后 ， 在標簽 Label1上顯示的是 _________。 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 問： （ 1）程序運行后，下標變量 a(4)的值為 _________。 （ 2）循環剛退出時，變量 i的值為 _________。 4． 在某學校里，每位同學都會得到一張一卡通卡，一卡通的卡號是唯一的，卡內會記錄每位同學的姓名、住址、班級、金額等信息。每當同學刷卡時，卡號就被輸入電腦，然后進行查找，如果找到就顯示姓名，否則顯示 查無此人 。下列程序的功能是根據卡號查找對應的姓名，程序中數組 a保存所有已發放一卡通的卡號，數組b保存卡號對 應的姓名，第 i位同學的卡號保存在 a(i)中，姓名保存在 b(i)中。 程序界面如圖 VB1所示，左邊列表框列出所有同學的卡號和姓名，在右邊文本框 Text1中輸入卡號，單擊 開始查詢 按鈕（ Command1），程序就按卡號進行查找，如果找到就在標簽 Label3中輸出卡號對應同學的姓名，否則就輸出 查無此人 。 解決此問題的算法流程圖如圖 VB2所示，相應的程序如下，在程序 (1)和 (2)劃線處，填入適當的語句或表達式，把程序補充完整。 Private Sub Command1_Click() Dim x As String, i As Integer, s As String, f As Boolean x = _____(1)_____ i = 0: f = False 39。f為找到標志變量 ， 值為 True表示找到 ， 否則表示沒找到 Do While (i n) And (f = False) 39。n保存學生總人數 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的值為 ____________。 2． 有如下 Visual Basic程序段 ： x = 36: y = 27 If x / 3 y / 3 Then = xy Else = x=y End If 該程序段運行后 ， 在標簽 Label1上顯示的是 ____________。 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 已知數組 a中 a(1)、 a(2)、 … 、 a(10)保存的數值分別為 ： 5 3 1 2 78 90、 11， 問： （ 1）循環剛退出時，變量 i的值為 ____________。 （ 2）該程序段運行后，變量 m的值為 ____________。 4． 團體總分統計。下列程序的功能是根據輸入的班級編號，統計該班的團體總分。每個運動員的編號、所屬班級編號、得分情況分別保存在數組 a、 b、 c中， a(i)保存第 i位運動員的編號， b(i)保存第 i位運動員所屬班級編號， c(i)保存第 i位運動員得分。 程序界面如圖 VB1所示，在文本框 Text1中輸入班級編號，單擊 開始統計 按鈕（ Command1），程序統計該班的團體總分并在文本框 Text2中顯示。 解決此問題的算法流程圖如圖 VB2所示，相應的程序如下，程序中變量 n表示總的運動員人數，在程序 (1)和 (2)劃線處，填入適當的語句或表達式，把程序補充完整。 Private Sub Command1_Click() Dim x As String, i As Integer, s As Integer x = s = 0 For i = 1 To n 39。n 保存運動員總人數 If (1) Then s = s + c(i) (2) Next i = Str(s) End Sub 程序中 (1)劃線處應填入 _______________ 程序中 (2)劃線處應填入 _______________ 圖 VB1 圖 VB2 七、 1． 有如下 Visual Basic程序段 ： a = 12 b = 32 c = a c = c + b 該程序段運行后 ， 變量 c的值為 __________。 2． 有如下 Visual Basic程序段 ： x = 12 If x = 10 Then s = 8 Else s = x End If 該程序段運行后 ， 變量 s的值為 __________。 3． 以下 Visual Basic程序的功能是 ： 計算表達式 1＋ 3＋ 9＋ 27＋ 81＋… 2187的值 ，并在文本框 Text1中輸出計算結果。 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）為了實現這一目標，程序劃線處的表達式應更正為 __________。 （ 2）運行更正后的程序，循環剛退出時變量 i的值為 __________。 4． 將一個十進制正整數轉化為二進制數可以采用 除二取余法 ，主要方法就是將十進制數用 2除，保存所得余數，然后將商的整數部分作為下次運算的被除數，重復上述 除二取余 操作，直到商的整數部分為零停止。 程序界面如圖 VB1所示，在文本框 Text1中 輸入一個正整數，單擊 開始轉換 按鈕（ Command1）后，對應的二進制數在標簽 Label3中顯示出來。 解決此問題的算法流程圖如圖 VB2所示，相應的 Visual Basic程序如下，在程序 (1)和 (2)劃線處，填入適當的語句或表達式，把程序補充完整。 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 = VB n = is t = easy t = m + n + t 該程序段運行后，變量 t的值為 。 2. 有如下 Visual Basic程序段 ： a = 23 b = 34 If a b Then = ab Else = a=b End If 該程序段運行后 ， 在標簽 Label1上顯示的是 。 3. 以下 Visual Basic程序的功能是 ： 計算表達式 1 3＋ 2 3＋ 3 3＋… 100 3的值 ， 并在文本框 Text1中輸出計算結果。 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的值是 ___________。 （ 2）為了實現上述表達式的計算，程序中劃線處的表達式應更正為 ___________。 4. 某市出 租車計費標準規定：出租車啟動后行程不超過 3千米（包含 3千米）計費 5元；如果行程超過 3千米且不超過 10千米（包含 10千米），則超過 3千米部分按 元 /千米計費（ 3千米及以內部分計費仍為 5元）；若行程超過 10千米，則在前面計費基礎上，超出 10千米部分按 /千米計費。 假定某出租車行程為 x千米，計費標準如下： 當 x≤ 3千米時，計費為 5元； 當 3x≤ 10千米時，計費為 5+（ x3） 當 x10千米時，計費為 5+（ 103） +(x10) 程序界面如圖 VB1所示，在文本框 Text1中輸入行駛里程數（單位：千米），單擊 開始計算 按鈕（ Command1）后，在標簽 Label3輸出計費結果。 解決此問題的算法流程圖如圖 VB2所示，相應的 Visual Basic程序如下，在程序 (1)和 (2)劃線處，填入適當的語句或表達式，把程序補充完整。 Private Sub Command1_Click() Dim x As Single, s As Single x = Val() If