2011春vb上机试卷.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 【要求】 1．新建工程，输入上述代码，改正程序中的错误； 2．改错时，不得增加或删除语句，但可适当调整语句位置； 3．将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。 二、编程题（26分） 【题目】编写程序，对实验数据进行分组均化处理。处理的方法是：先将实验数据从小到大排序，然后按排序后的顺序每3个数作为一组，再用每组3个数的平均值作为这3个数的表现值。 【编程要求】 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 运行程序，按“处理”按钮，出现如图的InputBox函数窗口，输入数据个数（或使用缺省值）后按“确定”，则生成10～40之间的随机整数数组并显示在实验数据文本框中，然后对实验数据进行排序并显示在排序结果文本框中，再进行分组均化并在文本框中输出数据均化结果；按“清除”按钮，将三个文本框清空，焦点置于“处理”按钮上；按“结束”按钮，结束程序运行； 程序中应定义一个名为sort的通用过程，用于对一维数组按从小到大排序。 【要求】 将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷（2011春） 二级Visual Basic语言（试卷代号VB02） （本试卷完成时间 70分钟） 一、改错题（14分） 【题目】本程序的功能是，找出使用公式（m＝1～100）生成的一个数据序列中的所有非素数，分别输出这些非素数的全部真因子。所谓数n的真因子是指除1和n之外的因子。 Option Explicit Private Sub Command1_Click() Dim m As Integer, p As Long Dim st1 As String st1 = For m = 1 To 100 p = m * m - m + 41 If Not prime(p) Then Call fac(p, st1) List1.AddItem 第 m 项 p : st1 End If Next m End Sub Private Function prime(n As Long) As Boolean Dim k As Integer For k = 2 To Sqr(n