国家二级VB机试（上机操作）模拟试卷454
基本操作题
1.(1)在名称为Form1的窗体上画1个名称为Framel、标题为“学位”的框架；框架内有1个名称为Optionl的控件数组，该控件数组含有4个标题分别为“学士”、“硕士”、“博士”和“其他”的单选按钮，它们的Index属性分别为0、1、2、3，且标题为“硕士”的单选按钮为选中状态。运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1、标题为“练习”的窗体上，画1个名称为Imagel的图像框，该图像框能自动调整其中图片内容的大小，并装入考生文件夹下名称为“风景”的图片文件。再画2个名称分别为Commandl和Command2，标题分别为“加宽”和“加高”的命令按钮。如图所示。
要求：编写两个按钮适当的事件过程，使得单击“加宽”按钮时，Imagel的宽度增加15；单击“加高”按钮时，Imagel的高度增加15。在程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
(1)步骤1：新建一个窗体，在窗体上添加一个框架控件，并按照表4．1设置控件的属性，结果如图4．1所示。
[*]
步骤2：在建立好的框架控件上依次添加4个单选按钮，并按照表4．2设置控件属性，结果如图4．2所示。为了使“硕士”单选按钮处于选中状态，需要将其的value属性值设置为True。
[*]
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤l：新建一个窗体，并设置窗体的相关属性，如表4．3所示。
[*]
步骤2：在建立好的窗体上添加一个Image控件，并按照表4．4设置控件属性，结果如图4．3所示。
[*]
步骤3：向窗体上添加两个按钮控件，按钮名称分别为Command1和Command2，并按照表4．5设置两个按钮控件的相关属性，运行结果如图4．4所示。
[*]
步骤4：双击“加宽”按钮，打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
编写程序代码如下：
参考答案
Private Sub Command1_Click()
Image1．Width=Imagel．Width+15
End Sub
步骤5：双击“加高”按钮，打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
编写程序代码如下：
参考答案
Private Sub Command2_Click()
Image1．Height=Image1．Height+15
End Sub
步骤5：调试并运行程序，关闭程序后按题目要求存盘。
解析：(1)新建窗体，添加框架控件，在框架控件中依次添加四个单选按钮，并将四个单选按钮设置为控件数组，然后修改相关控件的属性，以完成题目所需要求。
(2)新建窗体，在窗体中添加一个Image控件和两个Command按钮控件，向Image控件中添加图片，并设置stretch属性为True，当单击“加宽”按钮时，将Image控件的width属性加15，当单击“加高”按钮时，将Image控件的}teigth属性加15。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp。程序运行后，单击“读入数据”按钮，可将考生文件夹下in3．txt文件中的所有英文单词读入，并在Text1文本框中显示；单击“插入列表框”按钮，则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。
在in3．txt文件中，每个单词之间用一个空格字符隔开，最后一个单词的后而没有空格。已经给出了所有控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存上程文件和窗体文件。
(2)在考生文件夹下有一个工程文件sjt4．vbp，窗体上已经添加所有控件，如图所示。在程序运行时，如果单击“开始”按钮，则每隔0．1秒窗体上的汽车图标向右移动一次(初始状态下不移动)；如果单击“停止”按钮，则停止移动。
请完成以下工作：
(1)步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Private Sub Command1_Click()
Dim st $．ch $
Open App．Path & \\
解析：(1)本题首先要从文件中读入数据，再逐一检查文本框中每一个字符，如果发现空格则将其之前或两个空格之间的字符串作为一个单词用Addltem方法添加到列表框中。循环语句的上限为Len(st)，赋值给变量n，判断语句的判断条件应为Mid(st，k，1)\\
综合应用题
3.在考生文件夹下有一个工程文件Sjt5．vbp，窗体如图所示。运行程序时，从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，同时统计不及格、60～69、70～79、80～89及90～100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。
注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按“保存”按钮，否则将没有成绩，最后将修改后的文件按原文件名进行存盘。
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
参考答案
For i=1 To n ’环判断分数的范围，当满足某个条件时则分别统计
If arr(i)<60 Then
Text2=Val(Text2)+1
ElseIf arr(i)>=60 And arr(i)<70 Then
Text3=Val(Text3)+1
ElseIf arr(1) >=70 And arr(1)<80 Then
Text4 =Val(Text4) +1
ElseIf arr(i)>=80 And arr(i)<90 Then
Text5 =Val(
本文档预览：3600字符，共4083字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
