2014年计算机等级二级考试(Visual Basic)考前仿真试题九
为了帮助大家复习好2014年计算机等级考试，本次我们考吧网特为广大考生整理了计算机等级考试模拟试题，希望广大考生能够喜欢。本次主要汇编了计算机等级二级考试(Visual Basic)精选试题：
二、基本操作题(共18分)
(1)在名称为Form1的窗体中绘制一个名称为Label1的标签，其标题为空，BorderStyle属
性为1;再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得运行时，标签中的数字每隔1秒钟加2。程序运行效果如图1—1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为Sj1.vbp，窗体文件名为Sj1.frm。
参考答案：
(1)计时器的Interval属性用于设置每次触发计时器的Timer事件的时间间隔，单位为毫秒。Enabled 属性控制计时器是否开始启用，True表示启用，False表示不启用。
根据题意，新建“标准EXE”工程，将一个标签和一个计时器控件添加到窗体中，标签的名称为Label1、Caption属性为“0”，Timer的名称为Timer1、Interval属性为“1 000”。设置完成后双击Command1进入代码窗口，编写如下代码：
Private Sub Timer1_Timer()
Label1.Caption=Val(Label1.Caption)+2 ’每过一个间隔计数加2
End Sub
单击 按钮运行程序.并按要求保存。
(2)根据题意，新建“标准EXE”工程，将一个文本框控件和一个命令按钮添加到窗体中，文本框的名称为Text1、Text属性为空，命令按钮的名称为Command1、Caption属性为“当前时间/日期切换”。双击Command1进入代码窗口，编写如下代码：
Dim i As Integer
Private Sub Command1Click()
If i=0 Then
Text1.Text=Date
i=1 ’显示标识，1表示显示的是日期
Else
Text1.Text=Time
i=0 ’0表示显示的是时间
End If
End Sub
Private Sub Form_Load()
Text1 Text=Time
i=0
End Sub
单击 按钮运行程序，并按要求保存。
编辑推荐：