2014春vb上机试卷(含编程答案).pdfVIP

江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷（2014 年春） 二级 Visual Basic 语言 （试卷代号VB01） （本试卷完成时间 70 分钟） 【考试须知】 1. 改错题的界面不作严格要求，主要用来调试程序； 2. 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则 不予评分； 3. 程序代码书写应呈锯齿形。 一、改错题 （14 分） 【题目】本程序的功能是任意输入一个整数n，找出与其最接近的升序平方数。所谓的升序 平方数是指既是平方数又是升序数的整数。所谓升序数是指从高位到低位数字值依次增加 的整数。 （本程序界面由2 个Label、2 个TextBox 和1 个CommandButton 组成，所有对象均采用缺 省名。） Option Explicit Private Sub Command1_Click() Dim n As Integer, k As Integer, m As Integer n = Val(Text1.Text) k = n + 1 m = n - 1 Do While Not judge(n) If judge(k) Then Text2.Text = CStr(k) Exit Do ElseIf judge(m) Then Text2.Text = CStr(m) Exit Do Else k = k + 1 m = m - 1 End If Loop If Text2.Text = Then Text2.Text = CStr(n) End If End Sub Private Function judge(n As Integer) As Boolean Dim a() As Integer, i As Integer If Int(Sqr(n)) Sqr(n) Then Exit Function Do i = i + 1 ReDim a(i) a(i) = n Mod 10 n = n \ 10 Loop Until n = 0 For i = 1 To UBound(a) - 1 If a(i) = a(i + 1) Then Exit For Next i judge = True End Function 【要求】 1． 新建工程，按参考界面形式创建窗体，再从 T 盘根目录下的 err.txt 文件中将有错误 的程序代码复制到代码编辑器窗口中或自行输入上述代码，改正程序中的错误； 2． 改错时，不得增加或删除语句，但可适当调整语句位置； 3． 将窗体文件和工程文件分别命名为F1 和P1，并保存到T 盘的根目录下。 二、编程题 （26 分） 【题目】编写程序，从首尾相连的20 个两位随机整数中，找出相邻且互质（最大公约数为 1）的数对。 【编程要求】 1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界 面元素大小适中，且均可见； 2．运行程序，按 “运行”按钮，则生成20 个两位的随机整数，存入数组，并按每行10 个 的形式输出到多行文本框1 中，再找出相邻并互质的数对，按参考界面所示格式输出到 带垂直滚动条的多行文本框2 中；按 “清除”按钮，将两个文本框清空，焦点置于 “运 行”按钮上； 3．程序中应至少定义一个通用过程，用于求最大公约数或判断两个整数是否互质。 【要求】 将窗体文件和工程文件分别命名为F2 和P2，并保存到T 盘的根目录下。 VB01 编程答案： Option Explicit Option Base 1 Private Sub Command1_Click() Dim a(20) As Integer, i As Integer, k As Integer For i = 1