全国计算机等级考试二级VisualBasic.docVIP

全国计算机等级考试二级Visual Basic 上机题库试卷四 1．基本操作 请根据以下各个小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个命令按钮，名称为Cmd1，其标题为“向右移动本按钮”。编写适当的事件过程，使得程序运行时，每单击命令按钮一次，按钮向右移动100。 程序运行时的窗体界面如下图所示。 (2)在名称为Form1的窗体上画一个命令按钮，名称为Cmd1，标题为“扩大两倍”。编写适当的事件过程，程序运行后，如果单击Cmd1命令按钮，则可以使命令按钮的长度和宽度各扩大到原来的2倍。 注意： 不得使用任何变量。 程序运行时的窗体界面如下图所示。 2．简单应用 (1)在考生文件夹下有一个工程文件sjr3.vbp，相应的窗体文件为sjt3.frm。在窗体上有一个名称为Text1的文本框，其Muhiline属性为True。程序运行后，如果单击窗体，则用随机函数产生16个0到99的整数，并按4行4列的矩阵形式在文本框中显示出来，然后在文本框中输出矩阵对角线上的数。程序运行的情况如下图所示。这个程序不完整，请把它补充完整，并能正确运行。 试题源程序如下： 1 Option Base 1 2 Private Sub Form Click( ) 3 Dim Mat(4，4)As Integer 4 Dim N As Integer, M As Integer 5 Dim S As String, T As String 6 N=4 7 M=4 8 Randomize 9 S=初始矩阵为： 10 For i=1 To N 11 S=S vbCrLf 12 For j=1 To M 13 Mat(?)=Int(Rnd*100) 14 S=S ? 15 Next J 16 Next i 17 S=S vbCrLf 矩阵对角线上的数为： vbCrLf 18 Print 19 T= 20 For i=1 To N 21 For j=1 To M 22 If ? Then 23 T=T ? 24 End If 25 Next j 26 Next i 27 Text1. Text=S + T 28 End Sub (2)在考生文件夹下有一个工程文件sjt4.vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在Text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放在Text2中(如下图所示)。 在给出的文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的部分改为正确的内容。 试题源程序： 1 Private Sub Command1 Click( ) 2 Dim n As Integer, k As Integer, ch As String, aAs String 3 n=Len(Text1.Text) 4 ch= 5 For k=1 To n 6 a=Mid $ (Text1.Text，?，1) 7 If Option1.Value=True Then 8 If a＞=a And a＜=z Then 9 ch=ch+UCase(a) 10 Else If a＞=A And a＜=Z Then 11 ch=ch+? 12 Else 13 ch=ch+a 14 End If 15 End If 16 If Option2.Value=True Then 17 ch=UCase(Text1) 18 End If 19 If Option3.Value=True Then 20 ch=LCase(Text1) 21 End If 22 Next k 23 Text2=? 24 End Sub 3．综合应用 在名称为Form1的窗体上建立一个文本框Text1和两个命令按钮Cmd1和Cmd2，标题分别为“读入数据”和“排序显示保存”(如图所示)。程序运行后，如果单击“读入数据”按钮，则读入in006.txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击“排序显示保存”按钮，则对这100个整数按从大到小进行排序，把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹的out006.txt中。要求考生调用考生文件夹下的标准模块保存数据。 注意： 文件必须存放在考生文件夹下，窗体文件名为sjt5.frm，工程文件名sjt5.vbp，排序结果存入out006.txt，否则没有成绩。 全国计算机等级考试二级Visual Basic上机题库试卷四答案解析 1．基础操作题 (1)[解析] Left属性用来确定控件在窗体的位置。坐标为距离窗体左