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

admin2009-03-26  31

问题 (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
0

最新回复(0)