第 1 页:单选题 |
第 5 页:操作题 |
第 7 页:参考答案 |
二、基本操作题
(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
单击 按钮运行程序,并按要求保存。
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |