Question

简单vb秒表

计机器interval 为`10 也就是``1000 = 1秒`所以要除一百`但是`label1的`有问题``我想让它``text1.text小于``100的时候是 "您用了0." & text1.text & "秒" 大于 100的时候 "您用了" & text1.text & "秒"
我用 if 语句也不可以```什么错误的``
Private Sub Command1_Click()
Command2.Enabled = True
Timer1.Enabled = True
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
Command1.Enabled = True
Timer1.Enabled = False
Command2.Enabled = False
Dim a As String, b As String, c As String
a = Val(Text1.Text)
b = a / 100
If a < 100 Then Label1.Caption = "您用了0." & b & "秒" Else
Label1.Caption = "您用了" & b & "秒"

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()

Text1.Text = 0
Label1.Caption = ""
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Command2.Enabled = False
End Sub

Private Sub Timer1_Timer()
Text1.Text = Text1.Text + 1
End Sub

Answer 1

理论上interval是Timer执行的间隔时间，但是VB做不到那么精确，好像最小反应时间是 50 ，小于50都一样。
从你的程序看，应该设置好了interval=10？(达不到实际效果)只是要设置输出的label.caption ？

以下程序替换 你的程序
Private Sub Command2_Click()
Command1.Enabled = True
Timer1.Enabled = False
Command2.Enabled = False
Dim a As long
a = Val(Text1.Text)
Label1.Caption = "您用了" & a \ 100 & "." & (a mod 100) \ 10 "秒"
End Sub
'其中 a \ 100 是 求 商，也就是整百次，也就是你说的秒（其实是不对的），
(a mod 100) \ 10 求零点 几 秒

Answer 2

interval 为 10 并不代表一秒钟执行100次的。