vb函数运用

显示全部楼层 · 2008-6-17 14:46:45

Private Sub Cmd1_Click()
'? = Str(Time())
Text1(1).Text = "": Text1(2).Text = ""
Cmd1.Enabled = False
Cmd2.Enabled = True
End Sub
Private Sub Cmd2_Click()
Text1(1).Text = Str(Time())
t_start = Hour(Text1(0).Text) * 3600 + Minute(Text1(0).Text) * 60 + Second(Text1(0).Text)
t_end = Hour(Text1(1).Text) * 3600 + Minute(Text1(1).Text) * 60 + Second(Text1(1).Text)
t = t_end - t_start
m = t \ 60
If m0 Then

's = ? + (m - 3) * 0.15
End If
Text1(2).Text = Str(s) + "元"

'?= True
'?= False
End Sub
该程序的功能是计算公用电话计时收费。计时收费标准是：通话时间在3分钟之内时，收费0.5元；3分钟以上时。每超过1分钟加收0.15元，不足1分钟按1分钟计算。

千问 · 2008-6-17 14:46:45

Private Sub Cmd1_Click()Text1(0) = Str(Time())Text1(1).Text = "": Text1(2).Text = ""Cmd1.Enabled = FalseCmd2.Enabled = TrueEnd SubPrivate Sub Cmd2_Click()Text1(1).Text = Str(Time())t_start = Hour(Text1(0).Text) * 3600 + Minute(Text1(0).Text) * 60 + Second(Text1(0).Text)t_end = Hour(Text1(1).Text) * 3600 + Min