VB程序设计阶段试题（练习题） 题目：10秒定时器

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米。