【正文】 b1(x, n)　　If n 1 Then　　　　t = x(1)　　　　x(1) = x(n 1)　　　　x(n 1) = t　　　　Call sub1(x, n 1)　　End IfEnd Sub12．下列程序的窗口上有一個(gè)列表框List1，程序運(yùn)行單擊窗體后列表框最后一行的值為?。?5）　，?。?6）　。Option Base 1Private Sub form_Click()　　For i = 1 To 10　　　　 i　　Next i　　Sum = 0　　For i = 0 To 1　　　　Sum = Sum + (i)　　Next i　　 SumEnd Sub13．下列程序運(yùn)行后，在對(duì)話框內(nèi)輸入4后，結(jié)果如圖2所示。給定的程序不完整，將程序補(bǔ)充完整。圖2Private Sub form_Click()　　Dim s()　　t = Val(InputBox(請(qǐng)輸入整數(shù)4))　　k = 2 * t　　?。?7）　　　For i = 0 To 2 * t　　　　Select Case i　　　　　　Case Is = 0, 2 * t　　　　　　　　s(i) = String(2 * t, ) +　（18）　　　　　　　Case Is t　　　　　　　　s(i) = String(k, ) amp。 * amp。 String(2 * i 1, ) amp。 *　　　　　　Case Else　　　　　　　　s(i) = String(i, ) amp。 * amp。 String(2 * k 1, ) amp。 *　　　　End Select　　　　?。?9）　　　Next i　　For i = 0 To 2 * t　　　　Print s(i)　　Next iEnd Sub14．有下列程序，利用下列公式，即級(jí)數(shù)求和的方法，求cos(x)值。計(jì)算精度為110－6。程序運(yùn)行后的結(jié)果如圖3所示。給定的程序不完整，將程序補(bǔ)充完整。Option Base 1Private Sub Command1_Click()　　Dim x As Single, n As Long, sum As Single　　x = Val()　　sum = 1　　k = 1　　n = 2　　?。?0）　　　Do　　　　s = s * x * x　　　　t = s / fun1(n)　　　　sum = sum + k * t　　　　n = n + 2　　　　k =　（21）　　　Loop Until t 　　 = sumEnd SubPrivate Function fun1(n As Long) As Long　　Dim i As Long　　If n = 0 Or n = 1 Then　　　　?。?2）　　　Else　　　　fun1 = n * fun1(n 1)　　End IfEnd Function15．將1～20的自然數(shù)圍成一圈，使其相鄰的兩數(shù)之和均為素?cái)?shù)。程序中數(shù)組a存放1～20中的奇數(shù)，數(shù)組b存放1～20中的偶數(shù)，c數(shù)組存放最后結(jié)果(即有上述性質(zhì)的圈)。程序?qū)崿F(xiàn)將1(奇數(shù))放入c，從b中選一偶數(shù)放入c，使該兩數(shù)之和為素?cái)?shù)，然后再從a中選一奇數(shù)放入c，使相鄰兩數(shù)之和為素?cái)?shù)，重復(fù)此過程直至c中放到20個(gè)為止。程序運(yùn)行后的結(jié)果如圖4所示。給定的程序不完整，將程序補(bǔ)充完整。圖4Option Base 1Private Sub Command1_Click()　　Dim a(10) As Integer, b(10) As Integer, c(21) As Integer　　Dim i, j, k, m, n　　For i = 1 To 10　　　　a(i) = 2 * i 1　　　　b(i) = 2 * i　　Next i　　c(1) = a(1)　　m = c(1)　　a(1) = 0　　?。?3）　　　Do While k = 20　　　　If m Mod 2 0 Then　　　　　　n = fun1(b, m)　　　　Else　　　　　　n = fun1(a, m)　　　　End If　　　　If n 0 Then　　　　　　?。?4）　　　　　　　k = k + 1　　　　　　m = n　　　　Else　　　　　　Print fail　　　　End If　　　（25）　　　If fun2(c(1) + n) Then　　　　t = 0　　　　For i = 1 To 20　　　　　　 c(i)。　　　　　　t = t + 1　　　　　　If t Mod 10 = 0 Then 　　　　Next i　　End IfEnd SubPublic Function fun2(n) As Boolean　　fun2 = True　　For i = 2 To Sqr(n)　　　　If n Mod i = 0 Then　　　　　　?。?6）　　　　　　　Exit Function　　　　End If　　Next iEnd FunctionPublic Function fun1(x, m) As Integer　　f = 1　　n = 0　　i = 10　　Do While f * i 0　　　　If x(i) = 0 Then　　　　　　i = i 1　　　　Else　　　　　　n = x(i)　　　　　　If fun2(m + n) Then　　　　　　　　x(i) = 0　　　　　　　　f = 0　　　　　　Else　　　　　　　　i = i 1　　　　　　End If　　　　End If　　　　Loop　　If i 0 Then fun1 = n Else fun1 = 0End Function16．本程序的功能是從給定的純英文字符串（Text1中的內(nèi)容）中找出最長的一個(gè)按字母順序排列的子串，并在Text2中顯示出來。程序界面參見圖5。請(qǐng)完善下列程序。Option ExplicitPrivate Sub Command1_Click()　　Dim st1 As String　　st1 = Text1　　Text2 = ?。?7）　End SubPrivate Function max_s(st As String) As String　　Dim i As Integer, sta As String, s1 As String, s2 As String　　Dim tem As String　　s1 = Mid(st, 1, 1)　　For i = 2 To Len(st) 1　　　　s2 = ?。?8）　　　　　If Asc(s2) Asc(s1) = 1 Then　　　　　　tem = tem amp。 s1　　　　Else　　　　　　If Len(tem) 1 And Len(tem) Len(sta) Then　　　　　　　　sta = tem　　　　　　　　　（29）　　　　　　　End If　　　　End If　　　　?。?0）　　　Next i　　If Len(tem) 1 And Len(tem) Len(sta) Then　　　　max_s = tem　　Else　　　　max_s = sta　　End IfEnd Function二級(jí)Visual Basic全真模擬試卷三參考答案一、選擇題：1．D2．A3．C4．D5．B6．B7．A8．B9．A10．C11．C12．C13．C14．C15．C16．C17．D18．D19．B20．C21．A22．B23．B24．A25．B26．C27．A28．B29．D30．A二、填空題：（1）事件源（2）3（3）Image（4）Binary（5）Value（6）2（7）十字形圖形（8）4（9）2（10）24（11）39 13 5（12）273 91 5（13）1（14）3（15）55（16）11（17）ReDim s(k)（18）*（19）k=k1（20）s=1（21）(1)*k（22）fun1=1（23）k=2（24）c(k)=n（25）Loop（26）fun2=False（27）max_s(st) （28）Mid(st,i,1)（29）tem=（30）s1=s2二級(jí)Visual Basic全真模擬試卷四1．計(jì)算機(jī)最具代表性的應(yīng)用領(lǐng)域是科學(xué)計(jì)算，數(shù)據(jù)處理，　　1　　，計(jì)算機(jī)輔助設(shè)計(jì)和人工智能。A．辦公室自動(dòng)化　 B．銀行電子化　 C．算術(shù)運(yùn)算　 D．實(shí)時(shí)控制2．下列關(guān)于集成電路的敘述中，錯(cuò)誤的是　　2　　。A．集成電路使用的都是半導(dǎo)體硅（Si）材料B．集成電路根據(jù)它所包含的晶體管數(shù)目可分為小規(guī)模、中規(guī)模、大規(guī)模、超大規(guī)模和極大規(guī)模集成電路C．集成電路的工作速度與組成邏輯門電路的晶體管尺寸有密切關(guān)系D．集成電路是將大量晶體管、電阻及互連線等制作在尺寸很小的半導(dǎo)體單晶片上3．在CPU中，　　3　　是指揮中心，它有一個(gè)指令計(jì)數(shù)器，用來存放CPU正在執(zhí)行的指令的地址，CPU將按照該地址從內(nèi)存讀取所要執(zhí)行的指令。A．寄存器 B．指揮器 C．運(yùn)算器 D．控制器4．二進(jìn)制帶符號(hào)整數(shù)（補(bǔ)碼）10000000的表示的十進(jìn)制數(shù)為　　4　　。A．0 B．128 C．0 D．1285．下列關(guān)于RAM的說法中，錯(cuò)誤的是　　5　　。A．DRAM芯片電路簡單，集成度高，工耗小，成本低B．DRAM工作速度快，適合用作CacheC．SRAM芯片電路復(fù)雜，集成度低，工耗大，成本高D．無論是DRAM還是SRAM，當(dāng)關(guān)機(jī)或斷電時(shí)，其中的信息都將隨之丟失6．下面有關(guān)PCI總線的敘述中，錯(cuò)誤的是　　6　　。A．PCI總線的數(shù)據(jù)寬度僅為32位B．PCI總線的時(shí)鐘與CPU時(shí)鐘無關(guān)C．PCI總線數(shù)據(jù)線寬度比ISA總線寬D．PCI總線可同時(shí)支持多組外圍設(shè)備，與CPU的型號(hào)無關(guān)7．成像芯片的像素?cái)?shù)目是數(shù)碼相機(jī)的重要性能指標(biāo)，它與可拍攝的圖象分辨率直接相關(guān)。索尼(SONY)DSCT7的像素約為500萬，它所拍攝的圖象的最高分辨率為 7 。A．1280960 B．16001200C．20481536 D．259219448．　　8　　音樂與高保真的波形聲音相比，雖然在音質(zhì)方面還有一些差距，也無法合成出所有各種不同的聲音，但它的數(shù)據(jù)量很少，又易于編輯修改，還可以與波形音樂同時(shí)播放。A．MIDI B．Rel C．MPEG D．JPEG 9．如果一個(gè)圖像的顏色深度為24，這該圖像能表示的最大顏色數(shù)目為　　9　　。A．24種 B．256種C．1千6百多萬種 D．10億種以上 10．下列應(yīng)用軟件中___10___屬于網(wǎng)絡(luò)通信軟件。 A．FrameMaker B．Flash C．Outlook Express D．Frontpage 11．虛擬存儲(chǔ)系統(tǒng)能夠?yàn)橛脩舫绦蛱峁┮粋€(gè)容量很大的虛擬地址空間，但其大小有一定的范圍，它受到___11__的限制。A．內(nèi)存容量大小B．外存空間及CPU地址表示范圍C．交換信息量大小D．CPU時(shí)鐘頻率12．下列關(guān)于PC機(jī)的敘述中，下面說法中正確的是　　12　　。A．CMOS中存放著基本輸入/輸出系統(tǒng)（BIOS）B．PC機(jī)只能安裝MSDOS或Windows操作系統(tǒng)C．PC機(jī)主板型號(hào)與CPU型號(hào)是一一對(duì)應(yīng)的，不同的主板對(duì)應(yīng)不同的CPUD．CMOS芯片需要一個(gè)電池給它供電，否則其中數(shù)據(jù)會(huì)因主機(jī)斷電而丟失13．算法是問題求解規(guī)則的一種描述，下面哪些選項(xiàng)屬于其基本性質(zhì)　　13　　。A．確定性、有窮性、能行性、輸入、輸出B．確定性、無窮性、能行性、輸入、輸出C．不確定性、無窮性、能行性、輸入、輸出D．不確定性、有窮性、能行性、輸入、輸出14．計(jì)算機(jī)網(wǎng)絡(luò)是利用通信設(shè)備和網(wǎng)絡(luò)軟件，把地理位置分散而　　14　　的計(jì)算機(jī)（及智能設(shè)備）以相互共享資源和進(jìn)行信息傳遞為目的連接起來的一個(gè)系統(tǒng)。A．相互連接 B．功能齊全 C．功能獨(dú)立 D．價(jià)格便宜15．關(guān)于有線電視電纜調(diào)制解調(diào)技術(shù)的描述中，正確的是　　15　　。A．使用電纜調(diào)制解調(diào)技術(shù)，上網(wǎng)速度很快，但在上網(wǎng)的同時(shí)不能看電視B．電纜調(diào)制解調(diào)技術(shù)是多用戶共享帶寬，用的人多了，單個(gè)用戶的速度會(huì)下降C．使用電纜調(diào)制解調(diào)技術(shù)非常的方便，只要有有線電視的地方就能上網(wǎng)D．電纜調(diào)制解調(diào)器的下載速度快，上傳速度慢16．通過Internet發(fā)送或接收電子郵件(Email)的首要條件是應(yīng)該有一個(gè)電子郵件(Email)地址，它的正確形式是　　16　　。A．用戶名域名 B．用戶名@域名 C．用戶名/域名 D．17．微軟公司自Windows 95簡體中文版始，系統(tǒng)采用　　17　　代碼，該代碼共收錄漢字21003個(gè)、符號(hào)883個(gè)，并提供1894個(gè)造字碼位，