简单的VB秒表`
答案:2 悬赏:20 手机版
解决时间 2021-01-21 12:49
- 提问者网友:心如荒岛囚我终老
- 2021-01-20 18:41
简单的VB秒表`
最佳答案
- 五星知识达人网友:忘川信使
- 2021-01-20 18:56
控件:一个text文本控件、二个命令按纽、一个label和一个Timer.
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Dim fen As Integer, miao As Integer
fen = Val(Text1.Text) \ 60
miao = (Val(Text1.Text) - 60 * fen)
Label1.Visible = True
Label1.Caption = "共使用了" & fen & "分" & miao & "秒"
End Sub
Private Sub Form_Load()
Label1.Visible = False
End Sub
Private Sub Timer1_Timer()
Text1.Text = Text1.Text + 1
End Sub
正在做着的时候,一刷新网页,就已经有网友做好了。
===============================汗!汗!====================================================
所以我只有做好只拿两分的心理准备.
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Dim fen As Integer, miao As Integer
fen = Val(Text1.Text) \ 60
miao = (Val(Text1.Text) - 60 * fen)
Label1.Visible = True
Label1.Caption = "共使用了" & fen & "分" & miao & "秒"
End Sub
Private Sub Form_Load()
Label1.Visible = False
End Sub
Private Sub Timer1_Timer()
Text1.Text = Text1.Text + 1
End Sub
正在做着的时候,一刷新网页,就已经有网友做好了。
===============================汗!汗!====================================================
所以我只有做好只拿两分的心理准备.
全部回答
- 1楼网友:思契十里
- 2021-01-20 19:18
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
'显示多少秒
Label1.Caption = "您用了" & Text1.Text & "秒"
'显示多少分多少秒
Label2.Caption = "您用了" & CStr(CLng(Text1.Text) \ 60) & "分" & CStr(CLng(Text1.Text) Mod 60) & "秒"
End Sub
Private Sub Form_Load()
Text1.Text = "0"
End Sub
Private Sub Label1_Click()
Label1.Caption = "
Dim t1, t2, t As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
t1 = t
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
t2 = t
Label1.Caption = "您用了" & t2 - t1 & "秒"
End Sub
Private Sub Timer1_Timer()
Cls
t = t + 1
Text1.Text = Str(Val(Text1.Text) + 1)
End Sub
你的text1.text相加要是为了记录时间增加的话,他的类型是不正确的。必须修改成为数值型的。
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
'显示多少秒
Label1.Caption = "您用了" & Text1.Text & "秒"
'显示多少分多少秒
Label2.Caption = "您用了" & CStr(CLng(Text1.Text) \ 60) & "分" & CStr(CLng(Text1.Text) Mod 60) & "秒"
End Sub
Private Sub Form_Load()
Text1.Text = "0"
End Sub
Private Sub Label1_Click()
Label1.Caption = "
Dim t1, t2, t As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
t1 = t
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
t2 = t
Label1.Caption = "您用了" & t2 - t1 & "秒"
End Sub
Private Sub Timer1_Timer()
Cls
t = t + 1
Text1.Text = Str(Val(Text1.Text) + 1)
End Sub
你的text1.text相加要是为了记录时间增加的话,他的类型是不正确的。必须修改成为数值型的。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯