VB上机分析试卷.doc

Visual Basic程序设计上机试卷（A）（本试卷完成时间70分钟）【考试须知】1. 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；2. 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3. 程序代码书写应呈现锯齿形。一改错题（14分）【题目】下面程序的功能是验证大于3的两个相邻素数的平方之间至少存在4个素数。本程序的验证范围是大于3、小于30范围内的素数。Option ExplicitOption Base 1Dim Pn() As IntegerPrivate Sub Prime(N As Integer, Flg As Boolean) Dim K As Integer For K = 1 To Sqr(N) If N Mod K = 0 Then Exit Sub Next K Flg = TrueEnd SubPrivate Sub Command1_Click() Dim I As Integer, K As Integer, F As Boolean K = 1 For I = 5 To 30 F = False Call Prime(I, False) ReDim Preserve Pn(K) If F Then Pn(K) = I: K = K + 1 List1.AddItem I End If Next IEnd SubPrivate Sub Command2_Click() Dim I As Integer, Js As Integer, K As Integer, Bool As Boolean Dim Ss As Integer, Se As Integer, T As String For I = 1 To UBound(Pn) - 1 Ss = Pn(I) * Pn(I) Se = Pn(I + 1) * Pn(I + 1) Js = 0 Bool = False For K = Ss To Se Call Prime(K, Bool) If Bool Then Js = Js + 1 Next K T = CStr(Pn(I) & 2- & CStr(Pn(I + 1) & 2 & CStr(Js) List2.AddItem T Next IEnd Sub【要求】1. 新建工程，输入上述代码，改正程序中的错误；2. 改错时，不得增加或删除语句，但可适当调整语句位置；3. 将窗体文件和工程文件分别命名为F1.frm和P1.vbp，并保存到软盘A的根目录下。二编程题（26分）【题目】设n是一个正整数，d是它的因子，若d和n/d互质（即d和n/d的最大公约数是1），则称d为n的酉（读音：you）因子。如果n等于它的酉因子和（不包括n自身），则称n为酉完全数。编程找出200以内的酉完全数。【编程要求】1. 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2. 单击“生成酉完全数”按钮，则找出酉完全数，并将找到的酉完全数及其因子按图示的格式显示在图片框中；3. 按“清除”按钮，则将图片框清空；按“退出”按钮，则退出