Dim t&, s&, m!
t = Val(Text1) '從文本框1中得到通話時段
s = Val(Text2) '從文本框2中得到通話時長
m = 0.5 '最少消費是5毛
'如果時長超過3分鐘,則加上超過部分的每分鐘1毛5
If s > 3 Then m = m + (s - 3) * 0.15
'如果是在7點以前或19點以後,通話收費為半價
If t < 7 Or t > 19 Then m = m / 2
MsgBox "累計通話時間為:" & s & "分鐘,消費金額為:" & m
End Sub