VisualBasic上机模拟试卷一.doc

Visual Basic上机模拟试卷 (本试卷上机时间为70分钟) 一、改错题(14分) 【题目】 下列程序的功能是：按设定的数据位数N(N=2,3,4,5,6)，随机生成20个互不相等的正整数，按5个一行的形式输出到文本框中，并从中找出所有的偶数输出到列表框中(下图为参考界面)。 1 Option Explicit 2 Option Base 1 3 Private Sub Command1_Click() 4 　　Dim I As Integer, a() As Integer, N As Integer 5 　　Dim d(20) As Long, J As Integer, Sd As Long 6 　　N = Val(Text1) 7 　　Randomize 8 　　ReDim a(N) 9 　　For I = 1 To 20 10 　　　　Do 11 　　　　　　Do 12 　　　　　　　　a(1) = Int(9 * Rnd) 13 　　　　　　Loop While a(1) 0 14 　　　　　　For J = 2 To N 15 　　　　　　　　A(J) = Int(9 * Rnd) 16 　　　　　　Next J 17 　　　　　　Sd = Str1(a) 18 　　　　　　For J = 1 To I 19 　　　　　　　　If Val(Sd) = d(J) Then Exit For 20 　　　　　　Next J 21 　　　　Loop While J I 22 　　　　If J Mod 5 = 0 Then 23 　　　　　　Text2.Text = Text2.Text Str(Sd) vbCrLf 24 　　　　Else 25 　　　　　　Text2.Text = Text2.Text Str(Sd) 26 　　　　End If 27 　　　　d(I) = Sd 28 　　　　If Sd Mod 2 = 0 Then List1.AddItem Sd 29 　　Next I 30 End Sub 31 Public Function Str1(b() As Integer, M As Integer) As String 32 　　Dim I As Integer 33 　　For I = 1 To M 34 　　　　Str1 = Str1 CStr(b(I)) 35 　　Next I 36 End Function 【要求】 1. 新建工程，输入上述代码，改正程序中的错误 2. 改错时，不得增加或删除语句，但可适当调整语句位置。 3. 将窗体文件和工程文件分别命名为F1.frm和P1.vbp，并保存到软盘A的根目录下。 用递推法求裴波拉契数列数的项，并求出其中为非素数的项。裴波拉契数列的递推公式中F(1)=1和F(2)=1为递推的初始条件，用下列公式来推导其余项。 编程参考界面如下图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见。 2. 按“”按钮，则运行程序裴波拉契数列；按“”按钮，则将；按“”按钮，则停止程序运行。 3. 【要求】 将窗体文件和工程文件分别命名为F2.frm和P2.vbp，并保存到软盘A的根目录下。 Visual Basic上机模拟试卷 (本试卷上机时间为70分钟) 一、改错题(14分) 【题目】 一个正整数被称为奇妙平方数，如果此数的平方与它的逆序数的平方互为逆序数。例如，12^2=144，21^2=441，12与21互逆，144与441互逆，12就是奇妙平方数。找出1300以内所有的奇妙平方数。 Option Explicit 2 Private Sub Command1_Click() 3 　　Dim I As Long, Sq As Integer, J As Long 4 　　J = 0 5 　　For I = 10 To 300 6 　　　　If square(I, J) And I J Then 7 　　　　　　List1.AddItem I ^2= Str(I ^ 2) 8 　　　　　　List2.AddItem J ^2= Str(J ^ 2) 9 　　　　End If 10 　　Next I 11 End Sub 12 Private Function square(N As Long, K As Long) As Boolean 13 　　Dim L As Integer, I As Integer, S As String 14 　　Dim Sq1 As Long, Sq2 As Long