2012春VB.docVIP

江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷（2012春） 二级 Visual Basic语言 （试卷代号VB01） （本试卷完成时间 70分钟） 【考试须知】 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分； 程序代码书写应呈锯齿形。 一、改错题（14分） 【题目】本程序的功能是在六位正整数中查找超级自恋数。如果把一个六位正整数从高位到低位，每两位分为一组，共分为三组，三组数据的立方的和正好等于其本身，则称该六位正整数为超级自恋数。 Option Explicit Private Sub CmdFind_Click Dim k As Long, num As Integer, fg As Boolean Dim i As Integer, st As String st For k 100000 To 999999 fg False Call judge k, num, fg If fg Then For i UBound num To 1 Step -1 st st num i ^3+ Next i List1.AddItem Left st, Len st - 1 k End If Next k End Sub Private Sub judge n As Long, a As Integer, fg As Boolean Dim k As Integer, nt As Long, sum As Long nt n Do k k + 1 ReDim a k a k n Mod 100 n n \ 100 Loop Until n 0 For k 1 To UBound a sum sum + a k ^ 3 Next k If sum nt Then fg True End Sub 【要求】 新建工程，按参考界面形式创建窗体，再从T盘根目录下的err.txt文件中将有错误的程序代码复制到代码编辑器窗口中或自行输入上述代码，改正程序中的错误； 改错时，不得增加或删除语句，但可适当调整语句位置； 将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。 二、编程题（26分） 【题目】 【编程要求】 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 运行程序，按按钮，则；按清除按钮，将个文本框清空，焦点置于上； 程序中应定义一个通用过程，用于一。 2012年春VB01-2