江蘇省2011年二級(jí)計(jì)算機(jī)考試VB上機(jī)試題(1)

1、.江蘇省高等學(xué)校非計(jì)算機(jī)專(zhuān)業(yè)學(xué)生計(jì)算機(jī)基礎(chǔ)知識(shí)和應(yīng)用能力等級(jí)考試上機(jī)試卷（2011春）二級(jí)Visual Basic 語(yǔ)言 （試卷代號(hào)VB01）（本試卷完成時(shí)間 70分鐘）【考試須知】1改錯(cuò)題的界面不作要求，主要用來(lái)調(diào)試程序，若題目中有參考界面，則僅作參考；2考試結(jié)束后，文件必須存放在指定位置，否則適當(dāng)扣分；考試盤(pán)中若無(wú)指定文件，則不予評(píng)分；3 程序代碼書(shū)寫(xiě)應(yīng)呈鋸齒形。一、 改錯(cuò)題（14分） 【題目】本程序的功能是，找出100999之間的10進(jìn)制數(shù)為升序數(shù)，且其對(duì)應(yīng)的8進(jìn)制數(shù)也是升序數(shù)的整數(shù)。所謂升序數(shù)是指該數(shù)的十位數(shù)字值大于個(gè)位數(shù)字值，百位數(shù)字值大于十位數(shù)字值。Option ExplicitP

2、rivate Sub CmdFind_Click () Dim n As Integer,s8 As String For n=100 To 999 s8=d2Q(n) If sx(n) And sx(Val(s8) Then List1.AddItem n & “D=>”& s8 &”Q” End If Next nEnd SubPrivate Function d2Q(n As Integer) As String Dim p As Integer Do p=n Mod 8 d2Q=d2Q & CStr(p) n=n8 Loop Until n=0 E

3、nd Function Private Function sx(ByVal n As Integer) As Boolean Dim num() As Integer, k As Integer, t As Integer Dim i As Integer t=Len(CStr(n) ReDim num(t) For k=1 To t num(k)=Val(Mid(CStr(n),k,1) Next k For i=1 To UBound(num)-1 If num(i)>=num(i+1) Then Exit For Next i sx=True End Function【要求】1.

4、新建工程，輸入上述代碼，改正程序中的錯(cuò)誤；2. 改錯(cuò)時(shí)，不得增加或刪除語(yǔ)句，但可適當(dāng)調(diào)整語(yǔ)句位置；3. 將窗體文件和工程文件分別命名為F1和P1，并保存到T盤(pán)的根目錄下。二、 編程題（26分） 【題目】編寫(xiě)程序，對(duì)實(shí)驗(yàn)數(shù)據(jù)進(jìn)行分組均化處理。處理的方法是：先將試驗(yàn)數(shù)據(jù)從小到大排序，然后按排序后的順序每3個(gè)數(shù)作為一組，再用每組3個(gè)數(shù)的平均值作為這3個(gè)數(shù)的表現(xiàn)值?！揪幊桃蟆? 程序參考界面如圖所示，編程時(shí)不得增加或減少界面或改變對(duì)象的種類(lèi)，窗體及界面元素大小適中，且均可見(jiàn)：2 運(yùn)行程序，按“處理”按鈕，出現(xiàn)如圖的InputBox函數(shù)窗口，輸入數(shù)據(jù)個(gè)數(shù)（或使用缺省值）后按“確定”，則生成1040之間的隨機(jī)整數(shù)數(shù)組并顯示在實(shí)驗(yàn)數(shù)據(jù)文本框中，然后對(duì)實(shí)驗(yàn)數(shù)據(jù)進(jìn)行排序并顯示在排序結(jié)果文本框中，再進(jìn)行分組均化并在文本框中輸出數(shù)據(jù)均化結(jié)果；按“清除”按鈕，將三個(gè)文本框清空，焦點(diǎn)置于“處理”按鈕上；按“結(jié)束”按鈕，結(jié)束程序運(yùn)行；4. 程序中應(yīng)定義一個(gè)名為sort的