国家二级VB机试（上机操作）模拟试卷334
基本操作题
1.(1)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求：
①Text2可以显示多行文本，并且有垂直和水平两个滚动条；
②程序运行时在Text1中显示输入的字符为“*”.
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Imagel的图像框，其高、宽分别为1900、1700，通过属性窗口把考生文件夹下的图像文件picl．bmp载入图像框；再画两个命令按钮控件，名称分别为C1、C2，标题分别为“放大”、“缩小”，如图所示。
要求：
①请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则将图像框的高度、宽度均增加100；单击“缩小”按钮，则将图像框的高度、宽度均减少100，要求程序中不得使用任何变量。
②通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
(1)
【操作步骤】
步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3．8和表3．9。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)
【操作步骤】
步骤1：新建一个窗体，按照题目要求建立控件并设置图像框相应属性，如图3．17所示。
[*]
步骤2：按照步骤1设置其他控件相关属性，程序中涉及的控件及属性见表3．10。
[*]
步骤3：打开代码编辑窗口，在指定位置编写如下代码。
Private Sub C1 C1ick()’当单击”放大”按钮时，依次将Image1的高与宽分别加100
Image1．Height=Image1．Height+i00
Image1．Width=Image1．Width+100
End Sub
Private Sub C2 Click()’当单击”缩小”按钮，则依次将Image1的高与宽分别减100
Image1．Height=Image1．Height—100
Image1．Width=Image1．Width一100
End Sub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
解析：
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp。程序运行后，单击“读人数据”按钮，可将考生文件夹下in3．txt文件中的所有英文单词读入，并在Textl文本框中显示；单击“插入列表框”按钮，则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。
在in3．txt文件中，每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
(2)在考生文件夹下有一个工程文件sjt4．vbp，窗体上已经添加所有控件，如图所示。在程序运行时，如果单击“开始”按钮，则每隔0．1秒窗体上的汽车图标向右移动一次(初始状态下不移动)；如果单击“停止”按钮，则停止移动。
请完成以下工作：
(1)
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
Private Sub Commandl_Click()
Dim St$．ch$
Open App．Path&”＼in3．txt”For In
put As #1’打开文件
Do While Not EOF(1)’文件指针是否到达文件末尾
Input #1，ch’达到文件末尾返回true．否则返回false
st=at＆ch’将读出的数据加到原有数据末尾
Loop
Close #1’关闭文件
Text1=st’将内容显示在文本框中
End Sub
Private Sub Command2_Click()
Dim st$，word$，C$
St=Text1
n=Len(St)
For k=1 To n
c=Mid(st，k，1)’从st中依次取出1个字符进行比较
If C＜＞””Then
word=WOrd＆C
Else
List1．AddItem word
word=“”’将word清空，为下一次作准备
End If
Next
List1．AddItem Word
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)
【操作步骤】
步骤1：打开本题工程文件，设置计时器Interval的属性为100，将Enabled属性设置为False。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
Private Sub Timerl_Timer()
P1．Left=P1．Left+20
End Sub
’需要考生编写的内容
Private Sub C1_Click()
Timer1．Enabled=True
End Sub
Private Sub C2_Click()
Timer1．Enabled=False
End Sub
步骤3
本文档预览：3600字符，共4673字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
