点击查看：2015年9月计算机二级《VB》考前冲刺试卷汇总

　　一、基本操作题

　　1(1)在名称为Form1的窗体中画一个名称为Label1的标签，其标题为"0"，BorderStyle属性为1：再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得运行时，标签中的数字每隔1秒钟加2。程序运行效果如图8-1所示。

　　图8-1

　　注意：存盘时必须存放在考生文件夹下，工程文件名为sj1.vbp，窗体文件名为sj1.frm。

　　(2)在窗体上设置一个文本框，名称为Text1，再添加一个命令按钮，名称为Command1，标题为"当前时间/日期切换";每次单击按钮时，Text1就显示出当前时间，再单击一次，Text1就显示当前日期。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图8-2所示。

　　图8-2

　　注意：要求考生在编写完程序后，把工程文件与窗体文件保存到考生文件夹下，文件名分别为sj2.vbp与sj2.frm。

　　参考解析：

　　(1)计时器的Interval属性用于设置每次触发计时器的Timer事件的时间间隔，单位为毫秒。Enabled属性控制计时器是否开始启用，True表示启用，False表示不启用。

　　根据题意，新建“标准EXE”工程，将一个标签和一个计时器控件添加到窗体中，标签的名称为Label1、Caption属性为“0”，Timer的名称为Timer1、Interval属性为1000。设置完成后双击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 Command1_Click()

　　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

　　单击按钮运行程序，并按要求保存。

　　相关推荐：

　　2015年计算机二级考试《VB》考前练习题汇总

　　2015年计算机二级考试《VB》考前预测试卷汇总

　　2015计算机二级考试《VB》模拟练习题及解析汇总