VB上机考试模拟试卷9.docVIP

《Visual Basic程序设计》上机试卷 (本试卷考试时间70分钟) 改错题(17分) 【要求】 新建工程，输入以下代码，改正程序中的错误； 改错时，可调整个别语句的位置，但不得增加或删除语句； 以Myfrm1和Myprj1为文件名保存窗体和工程并提交。 【题目】 利用公式K×K+K+17生成一组三位整数，首先找出其中的素数，再从中选出所有升序数。所谓升序数是指其百位数小于十位数，十位数小于个位数的数（下图为程序正确执行时的画面）。 含有错误的源程序如下： Option Explicit Private Function prime(n As Integer) As Boolean Dim K As Integer prime = False For K = 1 To Sqr(n) If n Mod K = 0 Then Exit Function Next K prime = True End Function Private Sub Command1_Click() Dim K As Integer, P As Integer, T As String Dim Pn() As Integer K = 1 Do P = K * K - K + 17 T = CStr(P) If Len(T) = 3 And prime(P) Then ReDim Preserve Pn(K) Pn(K) = P List1.AddItem P ElseIf Len(T) 3 Then Exit Sub End If K = K + 1 Loop Call increase(Pn) End Sub Private Sub increase(Prm() As Integer) Dim T(3) As String * 1, i As Integer Dim j As Integer, P As String For j = 1 To UBound(Prm) For i = 1 To 3 T(i) = Mid(Str(Prm(j)), i, 1) Next i If T(1) T(2) And T(2) T(3) Then P = P Prm(j) Chr(13) Chr(10) End If Next j text1.Text = P End Sub 编程题(23分) 【题目】 A数组是由随机生成的且均为两位数的元素构成的6×6二维数组，在每一列中选出一个最小数，然后在所选的6个数中挑出最大的一个数，叫做“小数中的最大数”；在每一行中选出一个最大数，然后在所选的6个数中挑出最小的一个，叫做“大数中的最小数”。在文本框中分别显示这两个数。 【编程要求】 程序参考界面如下图所示，编程时不得增加或减少界面对象的种类，窗体及界面元素大小适中，且均可见。 按“开始”按钮，则生成数组，并将数组元素按行显示在图片框中，调用子程序进行“选数”处理（如图所示）；按“清除”按钮，，则将图片框和两个文本框清空；按“结束”按钮，则结束程序运行。 在程序中分别定义两个求矩阵每行中的最小数和最大数函数过程。 【要求】 以Myfrm2和Myprj2为文件名保存窗体和工程并提交。