国家二级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版点下载