vb上机04.docVIP

江苏省高等学校非计算机专业学生 计算机基础知识和应用能力登记考试上机试卷 二级Visual Basic语言（试卷代号VB04） 一．改错题（14分） [题目]下面程序的功能是，找出1~300之间的三个相临整数N ，N+1和N+2，且每个整数均为两个素数的乘积。本题程序界面如图1。 Option Explict Private Sub Command1-click() Dim p() as Integer ,I As Integer,N(3) As Integer Call Prime (P,150) For I=1 to 300 If Compare (P,I)Then List 1.Additem I ”,”I+1”,” I+2 End if Next I End sub Private Sub Prime (p () As Integer ,N As Integer ) Dim I As Integer ,K As Integer ,Idx As Integer For I =2 to N For K=2 to sqr(I) If I Mod K = 0 Then Exit For Next k If k sqr(I) Then Idx=Idx +1 ReDim p(Idx) P(Idx)=I End if Next I End sub Private Function Compare (p()As Integer)As Boolean Dim I As Integer ,J As Integer ,k As Integer ,Flg As Boolean For k = 1 to 3 I=1 Do While I =Ubound (p) For J=1 to Ubound (p) If A =P(I)*p(J) Then Exit Do Next J I=I+1 Loop If JUBound(p) Then Exit For A=A+1 Next k Compare =True End Function [要求] 1． 2． 3．F1和P1，并保存到考生目录下。 二．编程题（26分） [题目]编写程序求给定正整数的所有因子及所有因子的倒数之和。 [编程要求] 1．2所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2．1中输入测试数据，单击“运行”按纽，求出其所有因子及所有因子的倒数和，按图示格式输出到多行文本框2中（结果要进行约分）； 3．1上； 4． [要求] 将窗体文件和工程文件分别命名为F2和P2，并保存到考生目录下。 ??? 图 1???????图 2