2. 计算机
  3. (1)在名称为Form1的窗体中绘制一个名称为Labell的标签，其标题为空，BorderStyle属性为1；再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得运行时，标签中的数字每隔1秒钟加2。程序运行效果如图1-1所

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

admin2009-03-26  35
问题 (1)在名称为Form1的窗体中绘制一个名称为Labell的标签，其标题为空，BorderStyle属性为1；再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得运行时，标签中的数字每隔1秒钟加2。程序运行效果如图1-1所示。
    注意：存盘时必须存放在考生文件夹下，工程文件名为sj1．vbp，窗体文件名为sj1．frm。
(2)在窗体上设置一个文本框，名称为Text1，再添加一个命令按钮，名称为Commandl，标题为“当前时间／日期切换“；每次单击按钮时，Text1就显示出当前时间，再单击一次，Text1就显示当前日期。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图1-2所示。

    注意：要求考生在编写完程序后，把工程文件与窗体文件保存到考生文件夹下，文件名分别为sj2．vbp与sj2．frm。
选项
答案 (1)计时器的Interval属性用于设置每次触发计时器的Timer事件的时间间隔，单位为毫秒。Enabled属性控制计时器是否开始启用，True表示启用，False表示不启用。 根据题意，新建“标准EXE”工程，将一个标签和一个计时器控件添加到窗体中，标签的名称为Labell、Caption属性为“0”，Timer的名称为Timerl、Interval属性为“1000”。设置完成后双击Commandl进入代码窗口，编写如下代码： Private Sub Timer1_Timer() Labell．Caption=Val(Labell．Caption)+2 ’每过一个间隔计数加2 End Sub 单击[*]按钮运行程序，并按要求保存。 (2)根据题意，新建“标准EXE”工程，将一个文本框控件和一个命令按钮添加到窗体中．文本框的名称为Text1、Text属性为空，命令按钮的名称为Command1、Caption属性为“当前时间/日期切换”。双击Commandl进入代码窗口，编写如下代码： Dim i As Integer Private Sub Commandl_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 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/ZV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)