【正文】 sic中 ， 下列表達式的值等于 3的是 （ A） Int() （ B） Abs() （ C） Sqr() （ D） Len() 11． 在 Visual Basic中 ， 語句 =2020中的 Soft是 （ A） 屬性名 （ B） 屬性值 （ C） 對象名 （ D） 窗體名 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． 某數(shù)列前三項分別為： a1 = a2 = a3 = 4，以后每項都滿足 : ai = ai3 + ai1 （ i3） 如果用數(shù)組 a存儲該數(shù)列的前 20項，下面程序段劃線處應(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． 十六進制數(shù) 4FH轉(zhuǎn)換成二進制數(shù)是 （ A） (1001111)2 （ B） (1011011)2 （ C） (1010111)2 （ D） (1011110)2 3． 標準 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天的帶葉蔬菜，收銀機自動將價格下降 50%。從算法角度看，小明的做法屬于 （ A）解析算法 （ B）選擇排序 （ C）冒泡排序 （ D） 順序查找 在 Visual Basic中，用數(shù)組 a存儲 50位同學(xué)一次數(shù)學(xué)考試分數(shù)，合適的數(shù)組定義語句是 （ A） Dim a(1 To 50) As Single （ B） Dim a(1 To 50) As Boolean （ C） Dim a(1 , 20) As Integer （ D） Dim a(1 , 10) As Long 在 Visual Basic中 ， 表達式 Int(sqr(10))的值是 （ A） 5 （ B） 4 （ C） 3 （ D） 10 1在 Visual Basic中 ， 如果要在標簽 Label1上顯示 Pass， 則應(yīng)改變的屬性是 （ A） BackColor （ B） Height （ C） Width （ D） Caption 1在 Visual Basic中 ， 將表達式 b+2的值賦給變量 a， 正確的賦值語句是 （ A） b+2=a （ B） 2+b=a （ C） a=b+2 （ D） a+b=2 1在 Visual Basic中 ， 如果 a=5， b=2， c=3， 那么下列表達式值為真的是 （ A） (ac) Or (ba) （ B） (ab) Or (bc) （ C） (ac) And (ba) （ D） (ab) And (bc) 1一個酵母細胞每 10分鐘分裂為 2個，在下一個 10分鐘，就有 4個細胞，然后， 8個、 16個、……。 56789是 （ A）字符串常量 （ B）數(shù)值常量 （ C）邏輯常量 （ D）實數(shù)常量 10． 長 方體側(cè)面積計算公式是 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的值為 ____________。 解決此問題的算法流程圖如圖 VB2所示，相應(yīng)程序如下，在程序 (1)和 (2)劃線處填入適當?shù)恼Z句和代碼，把程序補充完整。商品的代號和得票數(shù)分別保存在數(shù)組 a和 b中，第 i個商品的代號保存在 a(i)中，對應(yīng)的得票數(shù)保存在 b(i)中。在違章查詢系統(tǒng)中輸入車主的汽車車牌號，查詢系統(tǒng)就會按照車牌號查找所有的違章記錄。 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)這一目標，程序劃 線處的表達式應(yīng)更正為 __________。 （ 2）循環(huán)剛退出時，變量 i的值為 _________。n保存學(xué)生總?cè)藬?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)劃線處應(yīng)填入 ___________________ 程序中 (2)劃線處應(yīng)填入 ___________________ 圖 VB－ 1 圖 VB2 六、 1． 有如下 Visual Basic程序段 ： a = Test b = is c = easy c = a + b + c 該程序段運行后 ， 變量 c的值為 ____________。 解決此問題的算法流程圖如圖 VB2所示，相應(yīng)的程序如下，程序中變量 n表示總的運動員人數(shù)，在程序 (1)和 (2)劃線處，填入適當?shù)恼Z句或表達式，把程序補充完整。 程序界面如圖 VB1所示，在文本框 Text1中 輸入一個正整數(shù)，單擊 開始轉(zhuǎn)換 按鈕（ Command1）后，對應(yīng)的二進制數(shù)在標簽 Label3中顯示出來。 假定某出租車行程為 x千米，計費標準如下： 當 x≤ 3千米時，計費為 5元； 當 3x≤ 10千米時，計費為 5+（ x3） 當 x10千米時，計費為 5+（ 103） +(x10) 程序界面如圖 VB1所示，在文本框 Text1中輸入行駛里程數(shù)（單位：千米），單擊 開始計算 按鈕（ Command1）后，在標簽 Label3輸出計費結(jié)果。 3. 以下 Visual Basic程序的功能是 ： 計算表達式 1 3＋ 2 3＋ 3 3＋… 100 3的值 ， 并在文本框 Text1中輸出計算結(jié)果。 3． 以下 Visual Basic程序的功能是 ： 計算表達式 1＋ 3＋ 9＋ 27＋ 81＋… 2187的值 ，并在文本框 Text1中輸出計算結(jié)果。 4． 團體總分統(tǒng)計。 程序界面如圖 VB1所示，左邊列表框列出所有同學(xué)的卡號和姓名，在右邊文本框 Text1中輸入卡號，單擊 開始查詢 按鈕（ Command1），程序就按卡號進行查找，如果找到就在標簽 Label3中輸出卡號對應(yīng)同學(xué)的姓名，否則就輸出 查無此人 。 解決此問題的算法流程圖如圖 VB2所示，相應(yīng)的 Visual Basic程序如下，在程序 (1)和 (2)劃線處，填入適當?shù)恼Z句或表達式，把程序補充完整。 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． 有如下 Visual Basic程序段 ： x = 90 If x 90 Then = 聲音超標 Else = 合格 End If 該程序段運行后 ， 在標簽 Label1上顯示的是 ____________。 3． 有如下 Visual Basic程序 ： Private Sub Command1_Click() Dim s As Integer, i As Integer s = 1 For i = 1 To 10 s = s + 1 Next i = Str(s) End Sub 問： （ 1）程序運行后，變量 s的值為 ____________。 4． 交通違章查詢。信息可以同時被眾多接收者獲取是因為信息具有 （ A） 傳遞性、共享性 （ B）傳遞性、真?zhèn)涡? （ C）載體依附性、真?zhèn)涡? （ D）載體依附性、價值相對性 2． 十六進制數(shù) 7BH轉(zhuǎn)換成二進制數(shù)是 （ A） (1111111)2 （ B） (1111011)2 （ C） (1111101)2 （ D） (1111110)2 3． 用 UltraEdit軟件觀察字符內(nèi)碼，結(jié)果如下圖所示： 若被觀察的字符全部屬于 GB2312編碼漢字，則圖中內(nèi)碼表示的漢字共有 （ A） 1個 （ B） 2個 （ C） 5個 （ D） 10個 4． 用 OCR軟件識別文字的主要操作步驟有： ①對圖像進行傾斜校正 ②單擊識別按鈕 ③劃分識別區(qū)域 ④打開圖像文件 ⑤校對文字 正確的操作順序是 （ A）①②③④⑤ （ B）⑤①③②④ （ C）①④③⑤② （ D）④①③②⑤ 5． 在 RGB顏色模式下，表示白色的是 （ A） RGB(0,0,0) （ B） RGB(255,255,0) （ C） RGB(255,255,255) （ D） RGB(255,0,255) 6． 下圖是一個用 Access軟件創(chuàng)建的數(shù)據(jù)表，記錄了某班學(xué)生的體檢情況：