【正文】 e　　　　　　　　Exit Do　　　　　　End If　　　　Loop　　　　If k = j Then　　　　　　ReDim Preserve b(k)　　　　　　b(k) = t　　　　　　Print b(k)。 Max　　Print 位置在第。 個End Sub16．有下列程序，運行后變量xy1和z1的結(jié)果分別是?。?5）　、　（26）　和?。?7）　。 y1。在窗體Form1上建立一個文本框Text1，將其MuhiLine屬性設(shè)置為True，ScrollBars屬性設(shè)置為3Both。Option ExplicitPrivate Sub Form_Click()　　Dim ch1 As String, fn As Integer　　Dim Str As String　　fn = 　（28）　　　Open C:\ For Input As fn　　Do While Not EOF(?。?9）　)　　　　Line Input fn, ch1　　　　Str = Str + ch1 + vbCrLf　　Loop　　 = 　（30）　End Sub 二級Visual Basic全真模擬試卷一參考答案一、選擇題：1．B2．D3．B4．C5．A6．A7．B8．D9．A10．A11．D12．C13．B14．D15．C16．C17．D18．B19．B20．C21．C22．D23．A24．B25．B26．B27．C28．D29．A30．D二、填空題：（1）文件號（2）3（3）開/關(guān)（4）Index（5）字符串（6）12（7）33（8）Val(Text1(i).Text)（9）x(i)x(j)（10）Len(s1) To 1 Step1（11）n(k) Mod 20（12）b^24*a*c（13）col0（14）b0（15）Cls（16）String(i,*)（17）7（18）（19）（20）（21）j=1（22）k=1（23）p=1（24）Max=b(n)（25）3（26）1（27）1（28）FreeFile（29）fn（30）Str二級Visual Basic全真模擬試卷二1．下列關(guān)于“信息系統(tǒng)”的敘述中錯誤的是　　1　　。A．微電子技術(shù)以集成電路為核心B．硅是微電子產(chǎn)業(yè)中常用的半導(dǎo)體材料C．現(xiàn)代微電子技術(shù)已經(jīng)用砷化鎵取代了硅D．制造集成電路都需要使用半導(dǎo)體材料3．下面對于多路復(fù)用技術(shù)的說法中，正確的是 3 。A．11111101001 B．11111000101C．11111100101 D．110001111015．從邏輯功能上來講，計算機硬件主要包括　　5　　、內(nèi)存儲器、外存儲器、輸入設(shè)備和輸出設(shè)備等，它們通過總線互相連接。A．ISA B．EISA C．PCI D．AGP7．　　7　　文檔最重要的特性是它能支持超鏈。鏈宿可以是另一個Web服務(wù)器上的某個信息資源，也可以是文本內(nèi)部標(biāo)記書簽的某個地方。A．下一條要執(zhí)行的指令的內(nèi)存地址 B．正在執(zhí)行的指令的內(nèi)容C．下一條要執(zhí)行的指令的內(nèi)容 D．正在執(zhí)行的指令的內(nèi)存地址9．關(guān)于PC機組成，下列說法錯誤的是　　9　　。A．Word和FrameMaker B．AutoCAD和FoxmailC．Photoshop和CoreDraw D．PageMaker和Dreamweaver11．下面對于操作系統(tǒng)的一些說法，正確的是 11 。A．Windows采用并發(fā)多任務(wù)方式支持系統(tǒng)中多個任務(wù)的執(zhí)行B．Windows可以在任何一臺計算機上運行C．Windows 2000 server不是目前Windows系列操作系統(tǒng)的最新版本D．Windows XP既適合家庭用戶，也適合商業(yè)用戶13．實現(xiàn)算法所需的存儲單元多少稱為算法的　　13　　。A．MPEG4 B．MPEG1 C．MPEG3 D．MPEG2 15．目前我國家庭計算機用戶接入互聯(lián)網(wǎng)的下述幾種方法中，最快的是 15 。A．jkf B．jkfC． 　 D． 17．按照漢字的“輸入224。輸出打印”的處理流程，不同階段使用的漢字編碼分別對應(yīng)為　　17　　。交換碼224。國標(biāo)碼224。機內(nèi)碼224。交換碼224。A．尺寸大的彩色圖片數(shù)字化后，其數(shù)據(jù)量必定大于尺寸小的圖片的數(shù)據(jù)量B．圖像的數(shù)字化過程大體可分為四步：掃描、取樣、分色、量化C．像素是構(gòu)成圖像的基本單位D．黑白圖像或灰度圖像只有一個位平面19．計算機信息系統(tǒng)（簡稱“信息系統(tǒng)”）是一類以提供信息服務(wù)為主要目的的數(shù)據(jù)密集型、人機交互的計算機應(yīng)用系統(tǒng)。 19 A．在信息系統(tǒng)中，絕大多數(shù)數(shù)據(jù)是持久的，不隨程序運行的結(jié)束而失效B．信息系統(tǒng)開發(fā)方法有多種，例如生命周期法、原型法等C．MRPⅡ的英文說法是Material Requirement Planning Ⅱ，制造業(yè)物料需求計劃ⅡD．電子商務(wù)，簡稱EC，是指對整個貿(mào)易活動實現(xiàn)電子化20．在使用Excel 97/2000/2003處理數(shù)據(jù)時，下列敘述中正確的是 20 。下列不能將單選按鈕分組的控件是　　21　　。A．Log(x) B．Lg(x) C．Exp(x) D．Ln(x)23．運行程序時，顯示下圖1內(nèi)容的語句是　　23　　。A．比較運算符→算術(shù)運算符→邏輯運算符B．比較運算符→邏輯運算符→算術(shù)運算符C．算術(shù)運算符→比較運算符→邏輯運算符D．算術(shù)運算符→邏輯運算符→比較運算符25．將表達式轉(zhuǎn)換為Double類型的函數(shù)是　　25　　。A．50 B．100 C．4 D．505027．如果在立即窗口中執(zhí)行以下操作：x=1 CR　　39。A． 1 B．1 C．False D．True28．運行下列程序：Private Sub Form_Click()　　a = 32: b = 5　　Do　　　　a = a / 2　　　　b = b + 1　　Loop While b 10　　Print aEnd Sub單擊窗體后，則在窗體上顯示的結(jié)果是　　28　　。A．43 B．21 C．37 D．4430．運行下列程序：Private Sub form_Click()　　t = Val(InputBox(請輸入一個數(shù)：))　　x = t 1　　Select Case t　　Case 1 To 10　　　　y = 4 * t　　Case Is 10　　　　y = 3 * t　　Case Else　　　　y = 2 * t　　End Select　　Print x。A．3　　16 B．4　　4 C．3　　4 D．4　　10二、填空題（請將答案填寫在答題紙的相應(yīng)答題號內(nèi)，每個答案只占一行）（每空1分，共30分）1．在創(chuàng)建菜單時，如果命令在完成之前還需要附加信息，則在其名稱后面應(yīng)當(dāng)有一個?。?）　。3．，通過在變量名后加一個用于規(guī)定變量類型的說明字符，來規(guī)定變量的類型。4．將表達式的結(jié)果為非零的值返回True；否則返回False的函數(shù)是?。?）　。6．運行下列程序，單擊窗體后，則在窗體上顯示的第四行和最后一行的結(jié)果分別是?。?）　和　（7）　。Private Sub form_Click()　　For i = 1 To 3　　　　a = 1　　　　For j = 1 To 3　　　　　　a = a + 4　　　　Next j　　Next i　　 = Str(a)End Sub8．下列程序運行后，在窗體上打印的結(jié)果是?。?）　。 x。 zEnd Sub9．下列程序的執(zhí)行結(jié)果是?。?0）　。11．下列程序的功能是計算兩個自然數(shù)的最大公約數(shù)，如圖2所示。圖2Private Sub Command1_Click()　　Dim x As Long, y As Long, i As Long　　x = Val()　　y = Val()　　 = Str(　（12）　)End SubFunction fun1(a As Long, b As Long) As Long　　Dim r As Long　　Dim t As Long　　If ?。?3）　Then　　　　t = a　　　　a = b　　　　b = t　　End If　　r = a Mod b　　Do While r 0　　　　a = b　　　　b = r　　　　r = a Mod b　　Loop　　　（14）　End Function12．試求出所有滿足下述條件的二位數(shù)：當(dāng)它們乘以數(shù)字2，3，4，5，6，7，8，9時，其數(shù)字之和不變。Private Sub Command1_Click()　　Dim m As Integer, sum As Integer　　Dim a As Integer, b As Integer, c As Integer　　For a = 1 To 9　　　　For b =?。?5）　　　　　　　?。?6）　　　　　　　For c = 2 To 9　　　　　　　　m = c * (a * 10 + b)　　　　　　　　sum = 0　　　　　　　　Do　　　　　　　　　　sum = sum + m Mod 10　　　　　　　　　　m = m \ 10　　　　　　　　Loop While m 0　　　　　　　　If?。?7）　Then flg = 0: Exit For　　　　　　Next c　　　　　　If?。?8）　Then　　　　　　　　Print a。請完善下列程序。 yEnd Sub14．統(tǒng)計[1,1000]中包含數(shù)字1自然數(shù)，并將統(tǒng)計結(jié)果值，以及每相間100內(nèi)具有該特征的數(shù)顯示在文本框中，如圖3所示。窗體上打印出的是?。?7）　。在窗體Form1上建立一個文本框Text1，將其MuhiLine屬性設(shè)置為True，ScrollBars屬性設(shè)置為3Both。Option ExplicitPrivate Sub Form_Click()　　Dim ch1 As String, fn As Integer　　Dim Str As String　　fn = ?。?8）　　　Open C:\ For Input As fn　　Do While Not EOF(?。?9）　)　　　　Line Input fn, ch1　　　　Str = Str + ch1 + vbCrLf　　Loop　　 = ?。?0）　End Sub二級Visual Basic全真模擬試卷二參考答案一、選擇題：1．D2．C3．C4．B5．A6．C7．B8．B9．D10．C11．A12．B13．C14．D15．D16．B17．C18．A19．C20．B21．B22．A23．B24．C25．C26．A27．C28．A29．C30．A二、填空題：（1）…（2）工程執(zhí)行全編譯（3）雙精度浮點數(shù)（4）Cbool（5）MultiLine（6）13（7）14（8）13（9）Main:2 2 3（10）15（11）78（12）fun1(x,y)（13）ab（14）fun1=b（15）0 To 9 （16）flg=1（17）a+bsum（18）flg=1（19）a=2/t（20）Exit Do（21）s=CStr(i)（22）Exit For（23）sum1=0（24）2001（25）87（26）2002（27）True（28）ReDim s(t)（29）String(2*i+1,*)（30）Print s(i)二級Visual Basic全真模擬試卷三1．?dāng)?shù)據(jù)通信中的數(shù)據(jù)傳輸速率是最重要的性能指標(biāo)之一，它指單位時間傳送的二進位數(shù)目，下面是一些計量單位（1）Kb/s （2）MB/s （3）Mb/s （4）Gb/s其中常用的是　　1　　。 A．集成電路將永遠遵循Moore定律B．IC卡是“集成電路卡”的縮寫C．現(xiàn)代PC機所使用的電子元件都是超大規(guī)模和極大規(guī)模集成電路D．現(xiàn)代集成電路使用的半導(dǎo)體材料通常是硅（Si） 3．下列關(guān)于PC機主板的敘述中，錯誤的是　　3　　。A．11101000 B．11100111 C．10011000 D．111001105．　　5　　是一種新型的非易失性存儲器，但又像RAM一樣能快速方便地寫入信息。A． B． C． 　　D．7．一幅12801024的24位真彩色圖像，如果未經(jīng)壓縮，則它的數(shù)據(jù)量為　　7　　。下面關(guān)于USB的敘述中，錯誤的是　　8　　。A．硬盤安裝在機箱內(nèi)，屬于主機的組成部分B．硬盤驅(qū)動器和盤片是密封在一起的，不能隨意更換盤片的C．硬盤是多張盤片組成的盤片組D．硬盤的技術(shù)指標(biāo)除容量外，另一個是轉(zhuǎn)速10． 下列屬于應(yīng)用軟件的是　 10　。A．它們都支持即插即用（ＰnＰ）功能B．它們都支持支持FAT32文件系統(tǒng)C．優(yōu)盤中被刪除的文件可從“回收站”中回復(fù)出來D．它們都是32位操作系統(tǒng)12．下列各條中，對計算機操作系統(tǒng)的作用完整描述的是　　12　　。A．程序中的指令和算法中的運算語句都必須用高級語言表示B．算法和程序都必須滿足有窮性C．算法可采用“偽代碼”或流程圖等方式來描述D．算法就是程序14．　　14　　由兩部分組成，第一