VB程序设计阶段试题(练习题) 题目:10秒定时器
1. 在输入框入输入需要延时的秒数后,按下“开始”按钮后,程序将会在延时设定的秒数后,将绿色的圆变为红色; 2. 按下“复原”按钮后,重新进入新的预备状态,圆变为绿色。
1. 在输入框入输入需要延时的秒数后,按下“开始”按钮后,程序将会在延时设定的秒数后,将绿色的圆变为红色; 2. 按下“复原”按钮后,重新进入新的预备状态,圆变为绿色。
答案:Option Explicit
Private Sub Command1_Click() '复原
Text1.Text = ""
Shape1.BackColor = vbRed
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) '在文本框中输入时间(单位秒,不能超过65秒),回车确认
If KeyAscii = 13 Then
Timer1.Interval = Val(Text1.Text) * 1000
Timer1.Enabled = True
End If
End Sub
Private Sub Timer1_Timer()
Shape1.BackColor = vbBlue '变为红色
End Sub
上一个:在VB中如何将数值型转成货币型样式?
下一个:VB程序设计,编写代码求随机产生20名同学的身高,求最高、最低、平均身高,身高范围是1.55~1.80米。