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

《Visual Basic程序设计》上机试卷 (本试卷考试时间70分钟) 改错题(17分) 【要求】 新建工程，输入以下代码，改正程序中的错误； 改错时，可调整个别语句的位置，但不得增加或删除语句； 以Myfrm1和Myprj1为文件名保存窗体和工程并提交。 【题目】 本程序的功能是：在一个英文句子中找出含不同字母最多的单词（单词间以空格分隔），若结果有多个，则只需输出第一个单词（下图为程序正确执行时的画面）。 含有错误的源程序如下： Option Explicit Private Sub Command1_Click() Dim St As String, P As Integer, i As Integer Dim W As String, WO As String, L As Integer, LO As Integer St = My hometown is Peoples Republic of China Do P = InStr(1, St, ) If P = 0 Then L = WordLen(St) If L LO Then LO = L: WO = W Else W = Mid(St, 1, P - 1) L = WordLen(W) If L LO Then LO = L: WO = W St = Mid(St, P, Len(St) - P) End If Loop Until P = 0 Form1.Cls Print 含不同字母最多的单词是: ; WO Print 含有; LO; 个字母 End Sub Private Function WordLen(s As String) As Integer Dim i As Integer, j As Integer, tem As String tem = s For i = 1 To Len(s) tem = Right(tem, Len(tem) - 1) If InStr(1, tem, Mid(tem, i, 1)) = 0 Then WordLen = WordLen + 1 End If Next i End Function 编程题(23分) 【题目】 编写程序，生成一个由两位随机整数组成的5×5的数组，并显示在图片框中；再找出该数组的最小元素，并将最小元素所在列删除（将最小元素所在列之后的各列依次前移）；将5×5的数组重定义为一个5×4的数组，显示在另一个图片框中。 【编程要求】 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见。 按“生成数组”按钮，则将生成的数组显示在图片框中；按“删除列”按钮，则将最小元素所在的列删除后的新数组显示在图片框中。 在程序中定义一个实现查找最小元素及删除列的通用子过程。 【要求】 以Myfrm2和Myprj2为文件名保存窗体和工程并提交。