【正文】 　　　　　For j = 1 To Len(s)　　　　　　If Mid(s, j, 1) = 1 Then　　　　　　　　Sum = Sum + 1　　　　　　　　sum1 = sum1 + 1　　　　　　　　?。?2）　　　　　　　End If　　　　Next j　　　　If i Mod 100 = 0 Then　　　　　　 = + Str(sum1)　　　　　　?。?3）　　　　　End If　　Next i　　Print　　 = SumEnd Sub15．窗體上有一個(gè)命令按鈕，：宿舍2001,87商店2002,35教室2003,92球場(chǎng)2004,16又有運(yùn)行下列程序：Type bs　　aa As String * 2　　bb As String * 4　　cc As IntegerEnd TypePrivate Sub Command1_Click()　　Dim xs As bs　　Dim f1 As Integer　　f1 = FreeFile　　Open d:\ For Input As f1　　Do While Not EOF(f1)　　　　Input f1, , , 　　　　 　　　　 　　　　 　　Loop　　　　Print EOF（f1）　　CloseEnd Sub問(wèn)：在列表框中第一行、第三行、第四行的內(nèi)容是?。?4）　、?。?5）　、?。?6）　。……Option ExplicitPrivate Sub Form_Click()　　Dim y As Single, t As Single, a As Single　　y = 2: t = 0　　Do　　　　t = Sqr(2 + t)　　　　?。?9）　　　　　If Abs(a 1) 1E5 Then ?。?0）　　　　　y = y * a　　Loop　　Print pi=。 b　　　　　　End If　　　　Next b　　Next aEnd Sub13．下列程序的功能是計(jì)算圓周率π（計(jì)算精度到第n項(xiàng)減1的絕對(duì)值小于105為止）。給定的程序不完整，將程序補(bǔ)充完整。給定的程序不完整，將程序補(bǔ)充完整。Private Sub Form_Click()　　s = 50: n = 2　　Do　　　　s = s n　　　　n = n + 1　　Loop Until n 8　　Print sEnd Sub10．運(yùn)行下列程序：Private Sub Form_Click()　　Do　　　　For I = 1 To 100　　　　　　m = Int(Rnd * 100) + 1　　　　　　Select Case m　　　　　　　　Case 13: Exit For　　　　　　　　Case 78: Exit Do　　　　　　End Select　　　　　　n = n + 1　　　　Next I　　Loop　　Print mEnd Sub單擊窗體后，則在窗體上顯示的結(jié)果是?。?1）　。 y。Private Sub test(a, b, c)　　a = a + 1: b = b + 2: c = c + 3End SubPrivate Sub Command1_Click()　　x = 1: y = 2: z = 3　　Call test(x, y + 3, (z))　　Print Main:。Private Sub Form_Click()　　n = 0　　a = 1: b = 2: c = 3　　For i = 1 To 4　　　　For j = 0 To i　　　　　　a = b + 1: b = c + 2: c = a + 2　　　　　　n = n + 1　　　　　　Print c　　　　Next j　　Next i　　Print nEnd Sub7．在窗體有有一文本框，名為text1，則執(zhí)行如下事件過(guò)程后，文本框中的輸出為?。?）　。5．為了在TextBox控件中顯示多行文本，要將　（5）　屬性設(shè)置為True。當(dāng)變量名后加“”時(shí)，則表明該變量為?。?）　。2．，功能鍵Ctrl+F5的功能是對(duì)?。?）　。 yEnd Sub運(yùn)行時(shí)，從鍵盤輸入4，輸出的結(jié)果是　　30　　。A．1 B．2 C．5 D．1129．運(yùn)行下列程序：Option Base 1Private Sub Form_Click()　　y = 43　　x = Array(21, 4, 50, 18, 23, 44, 87, 32, 67, 70)　　For i = 1 To 10　　　　If x(i) y Then　　　　　　z = x(i) + 1　　　　　　y = x(i)　　　　Else　　　　　　z = z + y　　　　End If　　Next i　　Print zEnd Sub單擊窗體后，則在窗體上顯示的結(jié)果是　　29　　。CR表示回車，下同y=2 CRPrint x y　　CR則輸出結(jié)果是　　27　　。A．Cbool B．Cbyte C．Cdbl D．Cstr26．運(yùn)行下列程序：Private Sub Form_Click()　　Dim sum As Double, i As Integer　　For i = 1 To 20　　　　If i Mod 5 = 0 Then　　　　　　sum = sum + i　　　　End If　　Next i　　Print sumEnd Sub單擊窗體后，則在窗體上顯示的結(jié)果是　　26　　。A．b = InputBox(輸入一個(gè)整數(shù),2003,程序示例)B．b = InputBox(程序示例,輸入一個(gè)整數(shù),2003)C．b = MsgBox(輸入一個(gè)整數(shù),2003,程序示例)D．b = MsgBox(程序示例, 輸入一個(gè)整數(shù),2003)圖124．各種運(yùn)算符間的優(yōu)先順序，從高到低是　　24　　。① TexBox　　②PictureBox　?、?Image　?、蹻rame　　⑤ListBoxA．①②③ B．①③⑤ C．②④⑤ D．③④⑤22．Visual Basic指定參數(shù)x的自然對(duì)數(shù)值，返回一個(gè)Double的函數(shù)是　　22　　。A．單元格的引用分為絕對(duì)引用和相對(duì)引用兩種B．一個(gè)工作表最多有65536行，256列C．一個(gè)工作簿中可以無(wú)工作表 D．在Excel中輸入公式后，該表達(dá)式的計(jì)算結(jié)果就被存儲(chǔ)在單元格中21．若需要在同一窗口內(nèi)安排兩組相互獨(dú)立的單選按鈕（OptionButton），適當(dāng)?shù)目丶⑺鼈兎指糸_。 。在下列有關(guān)信息系統(tǒng)的敘述中，錯(cuò)誤的是字形碼18．下列關(guān)于圖像的說(shuō)法，錯(cuò)誤的是　　18 　。字形碼 D．拼音碼224。機(jī)內(nèi)碼C．輸入碼224。字形碼 B．輸入碼224。A．國(guó)標(biāo)碼224。處理224。A．電話撥號(hào) B．ADSL C．一線通 D．光纖入戶16．已知接入Internet網(wǎng)的計(jì)算機(jī)用戶為jkf，則他相應(yīng)的Email地址為　　16　　。A．可實(shí)現(xiàn)性 B．困難度 C．空間復(fù)雜度 D．時(shí)間復(fù)雜度14．適用于DVD、高清晰度電視的視頻壓縮標(biāo)準(zhǔn)是　　14　　。A． 文件管理可以實(shí)現(xiàn)文件的共享、保密和保護(hù)B．“虛擬內(nèi)存”其實(shí)是外存C．用戶必須了解設(shè)備及接口的技術(shù)細(xì)節(jié)才能使設(shè)備和計(jì)算機(jī)協(xié)調(diào)工作D．作業(yè)管理的任務(wù)主要是管理內(nèi)存資源的合理使用12．下面關(guān)于Windows的說(shuō)法中，錯(cuò)誤的是 12 。A．CPU和存儲(chǔ)器芯片分別通過(guò)主板上的CPU插座和存儲(chǔ)器插座安裝在主板上B．PC機(jī)常用的外圍設(shè)備主要通過(guò)一些擴(kuò)充卡（如聲音卡、視頻卡等）與主板相連C．CRT顯示器通過(guò)插入AGP插槽的圖形卡與主板相連D．?dāng)U充卡的功能不能集成在主板上10． 10 屬于繪圖軟件。A．TELNET B．HTML C．URL D．WWW 8．CPU中有一個(gè)程序計(jì)數(shù)器（又稱指令計(jì)數(shù)器），它用于存放　　8　　。鏈源可以是文本中的任何一個(gè)字、詞或句子，甚至可以是一幅圖象。A．中央處理器 B．控制器 C．運(yùn)算器 D．寄存器6．現(xiàn)在PC機(jī)上常用的總線是1991年開始使用的　　6　　局部總線。A．將同一信號(hào)沿多條線路傳輸，以提高可靠性B．將同一信號(hào)多次傳輸，以提高正確率C．將多路信號(hào)沿同一條線路傳輸，以提高利用率D．可分為時(shí)分和頻分多路復(fù)用兩種4．十進(jìn)制算式3512+764+5的運(yùn)算結(jié)果對(duì)應(yīng)的二進(jìn)制數(shù)是　4　　。A．圖書館是一種以信息收藏和檢索為主的系統(tǒng)B．雷達(dá)是一種以感知與識(shí)別為主要目的的系統(tǒng) C．信息系統(tǒng)可以有人工的，也可以有自動(dòng)的D．電視系統(tǒng)是一種雙向的、點(diǎn)到點(diǎn)的信息系統(tǒng)2．下列敘述中，錯(cuò)誤的是　　2　　。給定的程序不完整，將程序補(bǔ)充完整。 z1End Sub17．，并在文本框中顯示出來(lái)。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。 p?！　　　　　 = j + 1　　　　End If　　Loop Until j 50　　Print　　?。?3）　　　Max = b(1)　　For n = 2 To 50　　　　If b(n) Max Then　　　　　　?。?4）　　　　　　　p = n　　　　End If　　Next n　　Print 最大數(shù)是：。給定的程序不完整，將程序補(bǔ)充完整。當(dāng)單擊按鈕后，文本框顯示　（18）　行數(shù)據(jù)，其中第二行和第三行的數(shù)據(jù)分別是　（19）　和?。?0）　。 ?。?6）　　　k = k + 1　　Next iEnd Sub13．運(yùn)行下列程序：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命令按鈕后，則在窗體上顯示的結(jié)果是?。?7）　。給定的程序不完整，將程序補(bǔ)充完整。 x1,　　　　End If　　Else　　　　If ?。?4）　Then　　　　　　root1 = b / c　　　　　　 方程僅有一個(gè)根。 x1, st。 st。 x1, x2　　　　ElseIf col = 0 Then　　　　　　 方程有兩個(gè)相等實(shí)根。給定的程序不完整，將程序補(bǔ)充完整。程序功能是解一個(gè)一元二次方程()。給定的程序不完整，將程序補(bǔ)充完整。給定的程序不完整，將程序補(bǔ)充完整。給定的程序不完整，將程序補(bǔ)充完整。7．運(yùn)行下列程序：Private Sub Command1_Click()　　b = 1　　Do While b 20　　　　b = b * b + 1　　　　a = a + b　　Loop　　MsgBox aEnd Sub單擊Command1命令按鈕后，則彈出的消息對(duì)話框中顯示　（7）　。5．InputBox函數(shù)來(lái)返回值的類型是?。?）　。3．菜單控件的Checked屬性用于將復(fù)選標(biāo)記放到菜單項(xiàng)的左側(cè)，以便表示菜單項(xiàng)的?。?）　。Private Sub Command1_Click()　　Dim s1 As String　　Dim s2 As Integer　　s1 = HelloWorld,2004　　s2 = Len(s1) + InStr(1, s1, 2)　　MsgBox s2End SubA．HelloWorld B．2003 C．16 D．29二、填空題（請(qǐng)將答案填寫在答題紙的相應(yīng)答題號(hào)內(nèi)，每個(gè)答案只占一行）（每空1分，共30分）1．freefile函數(shù)的作用是返回一個(gè)可供Open語(yǔ)句使用的，整型數(shù)據(jù)的?。?）　。A．2 B．10 C．12 D．3029．運(yùn)行下列程序：Private Sub Command1_Click()　　a = 100　　b = 24　　a = a Mod b　　b = b \ a　　a = b a　　 aEnd Sub單擊Command1命令按鈕后，則在立即窗口上輸出結(jié)果是　　29　　。A．Datetime=5/8/03 B．Datetime=September l,2003C．Datetime=10:21:00AM D．Datetime=5/6/0327．運(yùn)行下列程序：Private Sub Form_Click()　　Dim sum As Integer　　Dim i As Integer　　sum = 0　　For i = To Step 　　　　sum = sum + i　　Next i　　 sumEnd Sub單擊窗體后，則在立即窗口上輸出結(jié)果是　　27　　。A．開放式容器 B．結(jié)構(gòu)查詢語(yǔ)