19VB上机考试.docVIP

Visual Basic上机考试试卷（第一套） 一、调试程序（程序存盘文件名为：Test11.vbp,Test11.frm）（40分） 在磁盘上有一名为Test11.vbp的文件，该工程只有1个Form窗体（如下图） 程序的主要功能是：单击“开始”按钮后，要求用户输入一个大写英文字母，然后以此英文字母为首字母，输出一个6*6的字符矩阵，例如，输入字符“S“，输出如图所示。程序中有若干错误，请调试通过（在不删除整条语句的前提下，可修改或补充语句，添加的语句不超过2条，调试后仍按原文件名存盘）。 Private Sub Command1_Click() Dim n As Integer Dim k As Integer Dim i As Integer Dim j As Integer Do n = InputBox(请输入一个大写英文字母:) Loop ① k = ② For i = 1 To 6 Print Tab(25) For j = 1 To 6 k = k + 1 If ③ Print Chr(Asc(A) + k - 1); Space(1) Next i ④ Next i End Sub Private Sub Form_Load() ⑤ End Sub 二、编制程序：（程序存盘文件名为：Test12.vbp）(60分) 程序运行界面如下： 程序实现的功能： 1、当程序运行时，首先随机产生30个100~3000之间的任意年份，并显示在List1中 2、当单击“判断”按钮时，选出闰年的年份并显示在List2中 3、当单击“判断”按钮时，将选出的是闰年的年份按从小到大的顺序排序，并重新显示在List2中 说明：判断闰年的条件如下： 能被4整除但不能被100整除 或能被4整除，又能被400整除 Visual Basic上机考试试卷（第二套） 一、调试程序：（程序存盘文件名为：Test21.vbp ,Test21.frm） 在磁盘上存有Test21.vbp的文件，该工程只有1个窗体，（如图所示），程序的主要功能是：用户在第一个文本框中输入目标字符串，在第二个文本框输入要删除的字符。单击“删除”按钮后，目标字符串中要删除的字符被删除掉，并在第三个文本框中显示删除后的结果。程序中存在若干个错误，请调试通过（在不删除整条语句的前提下，可修改或补充语句，添加的语句不能超过2条），调试通过后的文件名仍按原来的文件名存盘。 Option Explicit Private Sub Command1_Click() Dim objstr As String ① Dim resstr As String Dim objlen As Integer Dim dellen As Integer Dim temp As String Dim i As Integer objstr = Text1.Text delstr = Text2.Text objlen = Len(objstr) dellen = Len(delstr) i = 1 Do While i dellen ② temp = Mid(objstr, i, dellen) If temp delstr Then resstr = resstr + Mid(objstr, i, 1) i = i + 1 Else i = i – 1 ③ End ④ Loop Text3.Text = resstr End Sub Private Sub Form_Load() ⑤ End Sub 二、编制程序（程序存盘文件名为：Test22.vbp ,Test22.frm） 在磁盘上已存在顺序文件test22.txt，要求程序实现如下功能： 1、单击“读入串”按钮，从文件中读出一个字符串并显示在Text1中 2、单击“排序”按钮，将字符串按字母的ASCII码值从小到大的顺序排列，并显示在Text2中。 3、单击“追加”按钮，将排序后的字符串添加到文件末尾（要求采用冒泡排序） Visual Basic上机考试试卷（第三套） 一、调试程序