08春VB上机.docVIP

江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷(2008春) 二级Visual Basic语言(试卷代号VB01) (本试卷完成时间70分钟) 【考试须知】 1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 2．答题完成后，文件必须存放在指定位置(T：盘根目录)，否则适当扣分：考试盘(T：)中若无指定文件，则不得分： 3．程序代码应缩行书写(呈锯齿形)。 一、改错题(14分) 【题目】本程序功能是查找给定范围内满足以下条件的整数数对。条件1是每个整数的各位数字各不相同，且不得为数字0；条件2是第二个数等于第一个数的两倍。例如123和246就是符合条件的数对。 Option Explicit Private Sub Command1_Click() Dim i As Integer Dim n As Integer For i = 123 To 5678 n = i * 2 If fun(i) And fun(n) Then List1.AddItem ( i , n ) End If Next i End Sub Private Function fun(n As Integer) As Boolean Dim a() As Integer, i As Integer, j As Integer Do i = i + 1 ReDim Preserve a(i) a(i) = n Mod 10 If a(i) = 0 Then Exit Function n = n \ 10 Loop Until n 0 For i = 1 To UBound(a) - 1 For j = i + 1 To UBound(a) If a(i) = a(j) Then Exit For Next j Next i fun = True End Function 【要求】 1．新建工程，输入上述代码，改正程序中的错误； 2．改错时，不得增加或删除语句，但可适当调整语句位置； 3．将窗体文件和工程文件分别命名为F1和Pl，并保存到T：盘根目录下。 二、编程题(26分) 【题目】编写程序，生成一个4行5列的二维数组，其每个数组元素是随机产生的两位数，求该数组的最大元素及其所在的行号、列号。(若有多个相同的最大元素，则要一一标出其所在行号、列号) 【算法提示】首先找出最大元素，再将数组中的元素与最大元素一一比较，若有相等元素则输出其所在位置。 【编程要求】 1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界 面元素大小适中，且均可见； 2．运行程序，按“运行”按钮，生成一个4行5列的两位随机整数数组，按参考界面格式显示在多行文本框中，再调用求二维数组最大元素及其所在行号、列号的通用过程，最后将结果输出到一个图片框；按“清除”按钮，则将文本框与图片框清空； 3．程序中应定义一个名为maxele的通用Sub过程，用于求二维数组的最大元素。 【要求】 将窗体文件和工程文件分别命名为F2和P2，并保存到T：盘根目录下。 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷(2008春) 二级Visual Basic语言(试卷代号VB02) (本试卷完成时间70分钟) 【考试须知】 1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 2．答题完成后，文件必须存放在指定位置(T：盘根目录)．否则适当扣分；考试盘(T：)中若无指定文件，则不得分： 3．程序代码应缩行书写(呈锯齿形)。 一、改错题(14分) 【题目】本程序功能是：求二维随机生成的整数数组每一行元素中素数的个数。 Option Explicit Dim a() As Integer, m As Integer, n As Integer Private Sub Command1_Click() Dim i As Integer, j As Integer m = InputBox(行数, , 4) n = InputBox(列数, , 5) ReDim a(m, n) For i = 1 To m For j = 1 To n a(i, j) = Int(Rnd * 90) + 10