2011春VB01上机.docVIP

江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷（2011春） 二级 Visual Basic语言 （试卷代号VB01） （本试卷完成时间 70分钟） 【考试须知】 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分； 程序代码书写应呈锯齿形。 一、改错题（14分） 【题目】本程序的功能是，找出100～999之间的10进制数为升序数，且其对应的8进制数也是升序数的整数。 Option Explicit Private 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 n End Sub Private Function d2Q(n As Integer) As String Dim p As Integer Do p = n Mod 8 d2Q = d2Q CStr(p) n = n \ 8 Loop Until n = 0 End 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 【要求】 新建工程，输入上述代码，改正程序中的错误； 改错时，不得增加或删除语句，但可适当调整语句位置； 将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。 二、编程题（26分） 【题目】编写程序，对验数据进行分组均化处理。处理的方法是：将实验数据从小到大排序，排序结果每3个作为一组，再用3个数的平均值作为这3个数的表现值。 运行程序，按处理按钮，出现如图的InputBox函数窗口，输入数据个数（或使用缺省值）后按确定，则生成10～40之间的随机整数数组并显示在验数据文本框中，分组均化文本框中输出数据均化结果；按清除按钮，将个文本框清空，焦点置于处理按钮上；按结束按钮，结束程序运行； 程序中应定义一个名为sort的通用过程，用于对一维数组按从小到大排序。 2011年春VB01-1