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

1、.江蘇省高等學校非計算機專業(yè)學生計算機基礎知識和應用能力等級考試上機試卷（2011春）二級Visual Basic 語言 （試卷代號VB01）（本試卷完成時間 70分鐘）【考試須知】1改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅作參考；2考試結(jié)束后，文件必須存放在指定位置，否則適當扣分；考試盤中若無指定文件，則不予評分；3 程序代碼書寫應呈鋸齒形。一、 改錯題（14分） 【題目】本程序的功能是，找出100999之間的10進制數(shù)為升序數(shù)，且其對應的8進制數(shù)也是升序數(shù)的整數(shù)。所謂升序數(shù)是指該數(shù)的十位數(shù)字值大于個位數(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、新建工程，輸入上述代碼，改正程序中的錯誤；2. 改錯時，不得增加或刪除語句，但可適當調(diào)整語句位置；3. 將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、 編程題（26分） 【題目】編寫程序，對實驗數(shù)據(jù)進行分組均化處理。處理的方法是：先將試驗數(shù)據(jù)從小到大排序，然后按排序后的順序每3個數(shù)作為一組，再用每組3個數(shù)的平均值作為這3個數(shù)的表現(xiàn)值?！揪幊桃蟆? 程序參考界面如圖所示，編程時不得增加或減少界面或改變對象的種類，窗體及界面元素大小適中，且均可見：2 運行程序，按“處理”按鈕，出現(xiàn)如圖的InputBox函數(shù)窗口，輸入數(shù)據(jù)個數(shù)（或使用缺省值）后按“確定”，則生成1040之間的隨機整數(shù)數(shù)組并顯示在實驗數(shù)據(jù)文本框中，然后對實驗數(shù)據(jù)進行排序并顯示在排序結(jié)果文本框中，再進行分組均化并在文本框中輸出數(shù)據(jù)均化結(jié)果；按“清除”按鈕，將三個文本框清空，焦點置于“處理”按鈕上；按“結(jié)束”按鈕，結(jié)束程序運行；4. 程序中應定義一個名為sort的