【正文】 b / (2 * a)　　　　If ?。?3）　Then　　　　　　x1 = st + Sqr(col) / (2 * a)　　　　　　x2 = st Sqr(col) / (2 * a)　　　　　　 方程有兩個實根。 x1, x2　　　　ElseIf col = 0 Then　　　　　　 方程有兩個相等實根。 st　　　　Else　　　　　　x1 = Sqr(col) / (2 * a)　　　　　　 方程有兩個虛根。 st。 +i。 x1, st。 i。 x1,　　　　End If　　Else　　　　If ?。?4）　Then　　　　　　root1 = b / c　　　　　　 方程僅有一個根。 root1　　　　Else　　　　　　 方程無意義　　　　End If　　End IfEnd SubPrivate Sub Command2_Click()　　Text1(0).Text = 　　Text1(1).Text = 　　Text1(2).Text = 　　Pic1.?。?5）　End Sub12．下列程序運行后如圖5所示。給定的程序不完整，將程序補充完整。圖5Private Sub form_Click()　　k = 7　　For i = 5 To 1 Step 2　　　　Print Tab(k)。 ?。?6）　　　k = k + 1　　Next iEnd Sub13．運行下列程序：Private Sub Command1_Click()　　Dim s As Integer, i As Integer　　s = 0　　For i = To Step 　　　　s = s + 1　　Next i　　Print sEnd Sub單擊Command1命令按鈕后，則在窗體上顯示的結果是?。?7）　。14．下列程序中有一個按鈕Command1，一個文本框text1，其屬性MultiLine＝True。當單擊按鈕后，文本框顯示?。?8）　行數(shù)據(jù)，其中第二行和第三行的數(shù)據(jù)分別是?。?9）　和　（20）　。Option ExplicitPrivate Sub Command1_Click()　　　Dim a As Single, i As Integer　　　a = 　　　For i = 1 To 3　　　　　a = a * i　　　　　Print fun1(a)　　　Next iEnd SubPrivate Function fun1(t As Single) As Single　　Static y As Single　　y = y + t　　t = y + 1　　fun1 = tEnd Function15．要打印出50個在100～100之間不同的隨機整數(shù)，并找出第幾個是最大數(shù)。給定的程序不完整，將程序補充完整。Option Base 1Private Sub Command1_Click()　　Dim b()　　Randomize　　　（21）　　　Do　　　　x = Rnd　　　　If x Then y = 1 Else y = 1　　　　t = y * Int(Rnd * 100) + 1　　　　?。?2）　　　　　Do While k j　　　　　　If t b(k) Then　　　　　　　　k = k + 1　　　　　　Else　　　　　　　　Exit Do　　　　　　End If　　　　Loop　　　　If k = j Then　　　　　　ReDim Preserve b(k)　　　　　　b(k) = t　　　　　　Print b(k)?！　　　　　 = j + 1　　　　End If　　Loop Until j 50　　Print　　　（23）　　　Max = b(1)　　For n = 2 To 50　　　　If b(n) Max Then　　　　　　?。?4）　　　　　　　p = n　　　　End If　　Next n　　Print 最大數(shù)是：。 Max　　Print 位置在第。 p。 個End Sub16．有下列程序，運行后變量xy1和z1的結果分別是　（25）　、?。?6）　和?。?7）　。Private Sub fun1(s, m, n)　　s = m + 1　　m = n + 2　　n = s + 3End SubPrivate Sub form_Click()　　Dim x1, y1　　x1 = 1　　y1 = 1　　z1 = 1　　Call fun1(x1, y1 + 1, (z1))　　 x1。 y1。 z1End Sub17．，并在文本框中顯示出來。在窗體Form1上建立一個文本框Text1，將其MuhiLine屬性設置為True，ScrollBars屬性設置為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．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）開/關（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．下列關于“信息系統(tǒng)”的敘述中錯誤的是　　1　　。A．圖書館是一種以信息收藏和檢索為主的系統(tǒng)B．雷達是一種以感知與識別為主要目的的系統(tǒng) C．信息系統(tǒng)可以有人工的，也可以有自動的D．電視系統(tǒng)是一種雙向的、點到點的信息系統(tǒng)2．下列敘述中，錯誤的是　　2　　。A．微電子技術以集成電路為核心B．硅是微電子產(chǎn)業(yè)中常用的半導體材料C．現(xiàn)代微電子技術已經(jīng)用砷化鎵取代了硅D．制造集成電路都需要使用半導體材料3．下面對于多路復用技術的說法中，正確的是 3 。A．將同一信號沿多條線路傳輸，以提高可靠性B．將同一信號多次傳輸，以提高正確率C．將多路信號沿同一條線路傳輸，以提高利用率D．可分為時分和頻分多路復用兩種4．十進制算式3512+764+5的運算結果對應的二進制數(shù)是　4　　。A．11111101001 B．11111000101C．11111100101 D．110001111015．從邏輯功能上來講，計算機硬件主要包括　　5　　、內(nèi)存儲器、外存儲器、輸入設備和輸出設備等，它們通過總線互相連接。A．中央處理器 B．控制器 C．運算器 D．寄存器6．現(xiàn)在PC機上常用的總線是1991年開始使用的　　6　　局部總線。A．ISA B．EISA C．PCI D．AGP7．　　7　　文檔最重要的特性是它能支持超鏈。鏈源可以是文本中的任何一個字、詞或句子，甚至可以是一幅圖象。鏈宿可以是另一個Web服務器上的某個信息資源，也可以是文本內(nèi)部標記書簽的某個地方。A．TELNET B．HTML C．URL D．WWW 8．CPU中有一個程序計數(shù)器（又稱指令計數(shù)器），它用于存放　　8　　。A．下一條要執(zhí)行的指令的內(nèi)存地址 B．正在執(zhí)行的指令的內(nèi)容C．下一條要執(zhí)行的指令的內(nèi)容 D．正在執(zhí)行的指令的內(nèi)存地址9．關于PC機組成，下列說法錯誤的是　　9　　。A．CPU和存儲器芯片分別通過主板上的CPU插座和存儲器插座安裝在主板上B．PC機常用的外圍設備主要通過一些擴充卡（如聲音卡、視頻卡等）與主板相連C．CRT顯示器通過插入AGP插槽的圖形卡與主板相連D．擴充卡的功能不能集成在主板上10． 10 屬于繪圖軟件。A．Word和FrameMaker B．AutoCAD和FoxmailC．Photoshop和CoreDraw D．PageMaker和Dreamweaver11．下面對于操作系統(tǒng)的一些說法，正確的是 11 。A． 文件管理可以實現(xiàn)文件的共享、保密和保護B．“虛擬內(nèi)存”其實是外存C．用戶必須了解設備及接口的技術細節(jié)才能使設備和計算機協(xié)調(diào)工作D．作業(yè)管理的任務主要是管理內(nèi)存資源的合理使用12．下面關于Windows的說法中，錯誤的是 12 。A．Windows采用并發(fā)多任務方式支持系統(tǒng)中多個任務的執(zhí)行B．Windows可以在任何一臺計算機上運行C．Windows 2000 server不是目前Windows系列操作系統(tǒng)的最新版本D．Windows XP既適合家庭用戶，也適合商業(yè)用戶13．實現(xiàn)算法所需的存儲單元多少稱為算法的　　13　　。A．可實現(xiàn)性 B．困難度 C．空間復雜度 D．時間復雜度14．適用于DVD、高清晰度電視的視頻壓縮標準是　　14　　。A．MPEG4 B．MPEG1 C．MPEG3 D．MPEG2 15．目前我國家庭計算機用戶接入互聯(lián)網(wǎng)的下述幾種方法中，最快的是 15 。A．電話撥號 B．ADSL C．一線通 D．光纖入戶16．已知接入Internet網(wǎng)的計算機用戶為jkf，則他相應的Email地址為　　16　　。A．@jkf B．jkf@C．@ 　 D．@ 17．按照漢字的“輸入224。處理224。輸出打印”的處理流程，不同階段使用的漢字編碼分別對應為　　17　　。A．國標碼224。交換碼224。字形碼 B．輸入碼224。國標碼224。機內(nèi)碼C．輸入碼224。機內(nèi)碼224。字形碼 D．拼音碼224。交換碼224。字形碼18．下列關于圖像的說法，錯誤的是　　18 　。A．尺寸大的彩色圖片數(shù)字化后，其數(shù)據(jù)量必定大于尺寸小的圖片的數(shù)據(jù)量B．圖像的數(shù)字化過程大體可分為四步：掃描、取樣、分色、量化C．像素是構成圖像的基本單位D．黑白圖像或灰度圖像只有一個位平面19．計算機信息系統(tǒng)（簡稱“信息系統(tǒng)”）是一類以提供信息服務為主要目的的數(shù)據(jù)密集型、人機交互的計算機應用系統(tǒng)。在下列有關信息系統(tǒng)的敘述中，錯誤的是 19 。A．在信息系統(tǒng)中，絕大多數(shù)數(shù)據(jù)是持久的，不隨程序運行的結束而失效B．信息系統(tǒng)開發(fā)方法有多種，例如生命周期法、原型法等C．MRPⅡ的英文說法是Material Requirement Planning Ⅱ，制造業(yè)物料需求計劃ⅡD．電子商務，簡稱EC，是指對整個貿(mào)易活動實現(xiàn)電子化20．在使用Excel 97/2000/2003處理數(shù)據(jù)時，下列敘述中正確的是 20 。A．單元格的引用分為絕對引用和相對引用兩種B．一個工作表最多有65536行，256列C．一個工作簿中可以無工作表 D．在Excel中輸入公式后，該表達式的計算結果就被存儲在單元格中21．若需要在同一窗口內(nèi)安排兩組相互獨立的單選按鈕（OptionButton），適當?shù)目丶⑺鼈兎指糸_。下列不能將單選按鈕分組的控件是　　21　　。① TexBox　?、赑ictureBox　　③ Image　?、蹻rame　　⑤ListBoxA．①②③ B．①③⑤ C．②④⑤ D．③④⑤22．Visual Basic指定參數(shù)x的自然對數(shù)值，返回一個Double的函數(shù)是　　22　　。A．Log(x) B．Lg(x) C．Exp(x) D．Ln(x)23．運行程序時，顯示下圖1內(nèi)容的語句是　　23　　。A．b = InputBox(輸入一個整數(shù),2003,程序示例)B．b = InputBox(程序示例,輸入一個整數(shù),2003)C．b = MsgBox(輸入一個整數(shù),2003,程序示例)D．b = MsgBox(程序示例, 輸入一個整數(shù),2003)圖124．各種運算符間的優(yōu)先順序，從高到低是　　24　　。A．比較運算符→算術運算符→邏輯運算符B．比較運算符→邏輯運算符→算術運算符C．算術運算符→比較運算符→邏輯運算符D．算術運算符→邏輯運算符→比較運算符25．將表達式轉(zhuǎn)換為Double類型的函數(shù)是　　25　　。A．Cbool B．Cbyte C．Cdbl D．Cstr26．運行下列程序：Private Sub Form_Cl