国家二级VB机试（上机操作）模拟试卷561
基本操作题
1.请根据以下各小题的要求设计Visual Basic 应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“程序设计”，BorderStyle属性为1，且可以根据标题自动调整大小，编写适当的事件过程。程序运行后，其界面如图1－298（a）所示，此时如果单击窗体，则标签消失，同时用标签的标题作为窗体的标题，如图1－298（b）所示。
注意：程序中不得使用变量。存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
（2）在名称为Form1的窗体上画一个文本框，其名称为Text1，初始内容为空白；然后再画三个单选按钮，其名称分别为Op1、Op2和Op3，标题分别为“单选按钮1”、“单选按钮2”和“单选按钮3”，编写适当的事件过程。程序运行后，如果单击“单选按钮1”则在文本框中显示“1”，单击“单选按钮2”则在文本框中显示“2”，以此类推。程序的运行情况如图1－299所示。
第1小题
【操作步骤】
步骤1：新建“标准EXE”工程，在窗体Form1中画一个标签，按表2－160设置文本框及窗体属性。
[*]
步骤2：在代码编辑窗口中，编写窗体的单击事件过程。
参考代码：
Private Sub Form_Click()
Label1.Visible = False
Me.Caption = Label1.Caption
End Sub
步骤3：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体 Form1上画一个文本框和三个单选按钮，其属性及值如表2－161所示。
[*]
步骤2：在代码编辑窗口中，编写3个单选按钮
的单击事件过程。
参考代码：
Private Sub Op1_Click()
Text1.Text = 1
End Sub
Private Sub Op2_Click()
Text1.Text = 2
End Sub
Private Sub Op3_Click()
Text1.Text = 3
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：
简单应用题
2.（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。在窗体上有一个名称为Text1的文本框，其MultiLine 属性为True。程序运行后，如果单击窗体，则用随机数函数产生16个0～99的整数，并按4行4列的矩阵形式在文本框中显示出来；然后在文本框中输出该矩阵对角线上的数。程序运行情况如图1－300所示。
这个程序不完整，请把它补充完整，并能正确运行。
提示：程序中的vbCrLf 是回车－换行符。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。
在窗体上有两个命令按钮，其名称分别为Command1和Command2，标题分别为“开始”和“停止”；有两个水平滚动条，其名称分别为HScroll1和 HScroll2，Min 属性均为0，Max属性均为100；此外还有一个计时器，其名称为Timer1，如图1－301（a）所示。程序的功能是，程序运后，如果单击“开始”命令按钮，则滚动条HScroll1中的滚动框从左向右移动（每次移动一个刻度），移到最右端后，自动回到最左端，再重新向右移动；同时滚动条HScroll2 中的滚动框从右向左移动（每次移动一个刻度），移到最左端后，自动回到最右端，再重新向左移动。如果单击“停止”按钮，则两个滚动条中的滚动框停止移动，如图1－301（b）所示。该程序不完整，请把它补充完整。
第1小题
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt3.vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
Mat(i, j) = Int(Rnd * 100)
S = S & Str(Mat(i, j)) & \\
解析：
综合应用题
3.考生文件夹下有一个工程文件sjt5.vbp，装入该工程文件。窗体上有一个名称为Text1 的文本框，三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读文件”、“删除”和“计算/保存”。程序运行后，单击“读文件”命令按钮，将in5.txt 文件中的内容显示在Text1 中，如图1－302（a）所示；单击“删除”命令按钮，删除Text1中的字母“A”、“D”、“R”和“S”（小写字母也删），并将删除后的文本显示在Text1中，如图1－302（b）所示；单击“计算/保存”命令按钮，则计算当前Text1中显示的所有字符（删除后）的ASCII 码之和，并把结果保存到考生文件夹下的out5.txt 文件中。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
ch = Mid(Form1.Text1.Text, i, 1)
tmpStr = tmpStr + ch
步骤2：按指定位置编写“计算/保存”按钮的单击事件过程。
参考代码：
Private Sub Command3_Click()
Dim i, j As Long
Dim s As String
s = Trim(Text1.Text)
j = 0
For i = 1 To Len(s)
j = j + Asc(Mid(s, i, 1))
Next
Open
本文档预览：3600字符，共3626字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
