Question

VB做一个60秒内循环倒计时的程序

Answer 1

Dim fxing As Integer '设置一个全局变量
Private Sub Form_Load()
Timer1.Interval = 100 '设置时钟事件为1000毫秒,也就是1秒,设置值小一定会移动得快一些
Timer1.Enabled = True '时钟控件为触发状态
Shape1.Shape = 3 'shape控件为 圆形
fxing = 100
End Sub

Private Sub Timer1_Timer() '时钟事件
Cls '
Shape1.Top = Shape1.Top + fxing
If Shape1.Top + 500 + Shape1.Height >= Form1.Height Or Shape1.Top < 120 Then fxing = -fxing
End Sub ELyt 2008-07-05 08:01 检举

Answer 2

在窗体中画一个文本框，Text属性为60，再画一个计时器，Interval属性设置为1000（单位为毫秒，1000毫秒等于1秒)，Enabled属性为True.按后编写如下计时器事件：
Private Sub Timer1_Timer()
If Text1.Text = "0" Then
Text1.Text = "60"
Else
Text1.Text = Val(Text1.Text) - 1
End If
End Sub