江苏省2011年二级计算机考试VB上机试题(1)

1、.江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷（2011春）二级Visual Basic 语言 （试卷代号VB01）（本试卷完成时间 70分钟）【考试须知】1改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3 程序代码书写应呈锯齿形。一、 改错题（14分） 【题目】本程序的功能是，找出100999之间的10进制数为升序数，且其对应的8进制数也是升序数的整数。所谓升序数是指该数的十位数字值大于个位数字值，百位数字值大于十位数字值。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. 改错时，不得增加或删除语句，但可适当调整语句位置；3. 将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。二、 编程题（26分） 【题目】编写程序，对实验数据进行分组均化处理。处理的方法是：先将试验数据从小到大排序，然后按排序后的顺序每3个数作为一组，再用每组3个数的平均值作为这3个数的表现值。【编程要求】1 程序参考界面如图所示，编程时不得增加或减少界面或改变对象的种类，窗体及界面元素大小适中，且均可见：2 运行程序，按“处理”按钮，出现如图的InputBox函数窗口，输入数据个数（或使用缺省值）后按“确定”，则生成1040之间的随机整数数组并显示在实验数据文本框中，然后对实验数据进行排序并显示在排序结果文本框中，再进行分组均化并在文本框中输出数据均化结果；按“清除”按钮，将三个文本框清空，焦点置于“处理”按钮上；按“结束”按钮，结束程序运行；4. 程序中应定义一个名为sort的