全国计算机等级考试二级VB上机试题及答案(六)
全国计算机等级考试二级VB上机试题及答案(六)
基本操作（2小题，每题15分，共30分）
****************************************************************
请根据以下各小题的要求设计VB应用程序（包括界面和代码）。
西游记好词好句
难度系数 覃怎么读☆☆☆
请根据以下各个小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画一个文本框，名称为Text1；再画一个命令按钮，名称为C1，标题为"移动"（如图所示）。请编写适当的事件过程，使得在运行时，单击"移动"按钮，则文本框水平移动到窗体的最左端。程序中不得使用任何变量。
程序运行时的界面如图所示。


（2）在名称为Form1的窗体上画两个命令按钮（见图），其名称分别为Cmd1和Cmd2，
编写适当的事件过程。程序运行后，如果单击Cmd1，则可以使得该按钮移动到窗体的左上角（只允许通过修改属性的方式实现）；如果单击Cmd2，则可以使得该按钮在长度和宽度上各扩大到原来的2倍。要求：不得使用任何变量。
程序运行后的界面如图所示。
<IMG&NBSP;SRC="SOURCEPICTURE\2009122245230493.JPG"&NBSP; />
****************************************************************
参考答案与分析
（1）【解析】
单击命令按钮实现文本框的移动，故在命令按钮的Click事件中调用文本框的Move方法，其语法格式为：Object.Move left, top, width, height
其中只有left参数是必须的，必须指出出现在语法中的该参数前面的全部参数。如果不先指定left 和top 参数，则无法指定width参数。任何没有指定的尾部的参数则保持不变。
【答案】
第一步：启动VB，新建一个工程文件。
第二步：在窗体上画一个文本框，Name属性为Text，Text属性为空，再画一个命令按钮，Name属性为C1，Caption属性为"显示"。假面骑士w剧场版2
第三步：编写程序源代码：
1 Private Sub C1_Click()
2 Text1.Move 0
3 End Sub
第四步：调试并运行程序，运行正确后按要求保存。程序设计完成经调试无误后进行存盘。执行"文件"菜单中的"保存工程"命令，打开"文件另存为"对话框，窗体文件名为"Stj1.fo
名牌汽车rm"，单击保存按钮。然后在紧接着出现的"工程另存为"对话框中选择工程文件名为"Stj1.vbp"，单击保存按钮。
（2）【解析】
实现按钮的移动主要调用它的Move方法，其语法如下：
Object.Move left, top, width, height
其中只有left参数是必须的，必须指出出现在语法中的该参数前面的全部参数。例如不先指定left 和top 参数，则无法指定width参数。任何没有指定的尾部的参数则保持不变。
窗体的左上角的坐标为（0，0），故将Cmd1移动到窗体的左上角，只要将Cmd1移动到（0，0）即可；另外要使得Cmd2的长度和宽度均为原来的2倍，只要将其的Width和Height均设置为原来的2倍即可。
【答案】
第一步：启动VB，新建一个工程文件。
第二步：在窗体上画两个命令按钮，设置它们的Name 和Caption属性均改为Cmd1和Cmd2。
第三步：编写程序源代码：
1 Private Sub Cmd1_Click()
2 Cmd1.Move 0, 0
3 End Sub
4 Private Sub Cmd2_Click()
5 Cmd2.Width = Cmd2.Width * 2
6 Cmd2.Height = Cmd2.Height * 2
7 End Sub
第四步：调试并运行程序，程序设计完成经调试无误后进行存盘。以Stj2.vbp和sjt2.frm进行保存。
简单操作（2小题，每题20分，共40分）
****************************************************************
请根据以下各小题的要求设计VB应用程序（包括界面和代码）。
（1）（在考生文件夹下有一个工程文件stj3.vbp，相应的窗体文件名为stj3.frm。在窗体上有两个命令按钮，其名称分别为Command1、Command2，一个标签控件，其名称为小学同学聚会感言Lable1，一个计时器控件，其名称为Timer1。程序运行后，在命令按钮Command1中显示"开始"，在命令按钮Command2中显示"停止"，在标签中用字体大小为16的粗体显示"热烈欢迎"（标签的AutoSize属性为True），同时把计时器的Interval属性设置为50，Enabled属性设为True。此时如果单击"开始"命令按钮，则该按钮变为禁用，标题变为"继续"，同时标签会自左向右移动，每个时间间隔移动20，如图所示，移动出窗体右边界后，自动从左边界向右移动；如果单击"停止"命令按钮，则该按钮变为禁用，"继续"按钮变为有效，同时标签停止移动；再次单击"继续"命令按钮后，标签继续移动。
这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的？改为正
确的内容，使其实现上述功能，但不能修改程序的其他部分，最后以原文件名保存。


试题源程序：
1 Private Sub Form_Load()
2 Command1.Caption = "开始"
3 Command2.Caption = "停止"
4 Timer1.Interval = 50
5 Timer1.Enabled = False
6 Label1.Caption = "热烈欢迎"
7 Label1.AutoSize = True
8 Label1.FontSize = 16
9 Label1.FontBold = True
10 End Sub
11 Private Sub Command1_Click()
12 Command1.Caption = "继续"
13 'Timer1.Enabled =?
14 'Command1.Enabled =?
15 Command2.Enabled = True
16 End Sub
17 Private Sub Command2_Click()
18 ' Timer1.Enabled = ?
19 Command2.Enabled = False
20 Command1.Enabled = True
21 End Sub
22 Private Sub Timer1_Timer()
23 If Label1.Left < Width Then
24 ' Label1.Left = ?
25 Else
26 Label1.Left = 0
27 End If
28 End Sub
（2）在考生文件夹下有一个工程文件stj4.vbp，及其窗体文件stj4.frm，窗体上有一个滚动条、一个图像框和一个定时器，控件的属性均已设置完毕，程序运行时，窗体上的灯泡会闪烁，而且可以通过滚动条来调节灯泡的闪烁速度。程序运行时的界面如图1.32所示。
要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。
试题源程序：
1 Private Sub Form_Load()
2 Me.Image1.Picture = LoadPicture(App.Path & "\light.bmp")
3 End Sub
4 Private Sub HScroll1_Change()
5 'Me.Timer1.Interval = Me.HScroll1.?
6 End Sub
7 Private Sub Timer1_Timer()
8 'Me.Image1.Visible = ? Me.Image1.Visible
9 End Sub
怎么发消息给所有人

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。