《vb上机考试模拟试卷3》由会员分享，可在线阅读，更多相关《vb上机考试模拟试卷3（2页珍藏版）》请在金锄头文库上搜索。
1、Visual Basic 程序设计 上机试卷(本试卷考试时间 70 分钟)一、改错题【要求】1 新建工程，输入以下代码，改正程序中的错误；2 改错时，可调整个别语句的位置，但不得增加或删除语句；3 以 Myfrm1 和 Myprj1 为文件名保存窗体和工程。【题目】利用公式 KK+K+17 生成一组三位整数，首先找出其中的素数，再从中选出所有升序数。所谓升序数是指其百位数小于十位数，十位数小于个位数的数（下图为程序正确执行时的画面） 。含有错误的源程序如下：Option ExplicitPrivate Function prime(n As Integer) As BooleanDim K A
2、s Integerprime = FalseFor K = 1 To Sqr(n)If n Mod K = 0 Then Exit FunctionNext Kprime = TrueEnd FunctionPrivate Sub Command1_Click()Dim K As Integer, P As Integer, T As StringDim Pn() As IntegerK = 1DoP = K * K - K + 17T = CStr(P)If Len(T) = 3 And prime(P) ThenReDim Preserve Pn(K)Pn(K) = PList1.AddI
3、tem PElseIf Len(T) 3 ThenExit Sub End IfK = K + 1LoopCall increase(Pn)End SubPrivate Sub increase(Prm() As Integer)Dim T(3) As String * 1, i As IntegerDim j As Integer, P As StringFor j = 1 To UBound(Prm)For i = 1 To 3T(i) = Mid(Str(Prm(j), i, 1)Next iIf T(1) T(2) And T(2) T(3) ThenP = P & Prm(j) &
4、Chr(13) & Chr(10)End IfNext jtext1.Text = PEnd Sub二、编程题【题目】A 数组是由随机生成的且均为两位数的元素构成的 66 二维数组，在每一列中选出一个最小数，然后在所选的 6 个数中挑出最大的一个数，叫做“小数中的最大数” ；在每一行中选出一个最大数，然后在所选的 6 个数中挑出最小的一个，叫做“大数中的最小数” 。在文本框中分别显示这两个数。【编程要求】1 程序参考界面如下图所示，编程时不得增加或减少界面对象的种类，窗体及界面元素大小适中，且均可见。2 按“开始”按钮，则生成数组，并将数组元素按行显示在图片框中，调用子程序进行“选数”处理（如图所示） ；按“清除”按钮， ，则将图片框和两个文本框清空；按“结束”按钮，则结束程序运行。3 在程序中分别定义两个求矩阵每行中的最小数和最大数函数过程。【要求】以 Myfrm2 和 Myprj2 为文件名保存窗体和工程。
