瑞星卡卡安全论坛

比如做一个30秒倒计时程序，用一个label来显示，把timer的interval设置为1000
Option Explicit
Dim I As integer

Private Sub Form_Load()
I = 30
End Sub

Private Sub Timer1_Timer()
Label1.Caption = i
I = I - 1
End Sub

我想当运行至9秒~0秒时显示09~00，而不是单一的9~0，不知道怎么转换了，知道的说下谢谢

用户系统信息：Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; 360SE)

Private Sub Timer1_Timer()
I = I - 1
If I <= 9 Then
Label1.Caption = Format(I, "00")
Else
Label1.Caption = I
End If
End Sub

试一下吧，好久没有写程序了，不知道对否