vb程序设计的源码

来源：百度知道 编辑：UC知道 时间：2024/06/24 07:36:48
设计一个简宜的电话收费系统。收费标准如下：通话时间在3min以内，收费0.5元，不足3min按3min计算；3min以上，则每超过1min加收0.15元，不足1min按1min计算；
周一到周五的7：00至19：00之间通话，按上述收费标准收费。其余时间内通话，按半价收费。
要求：（1）由文本框输入电话号码，按回车键后【开始通话】按钮有效。单击【开始通话】按钮后开始记时，此时【开始通话】按钮无效、【结束通话】按钮有效。
单击【开始通话】按钮结束通话，显示通话时间和费用

仅仅是一个程序界面还是要联接电话系统？

dim a,b as string
DIM m,n,l as string
dim x,y,z as string
dim d,f,g as integer
private sub cmd1_click()
a=format(now,"HH:MM:SS")
cmd1.enable=false
cmd2.enable=true
m=mid(a,1,2)
n=mid(a,4,2)
l=mid(a,7,2)
END SUB
private sub cmd2_click()
b=format(now,"HH:MM:SS")
cmd2.enable=false
cmd1.enable=true
x=mid(a,1,2)
y=mid(a,4,2)
z=mid(a,7,2)
d=val(x)-val(m)
f=val(y)-val(n)
g=val(z)-val(l)
if g>=0 then
f=f+1
end if
if d=0 and f=0 then f=1
if d>0 then
f=60*d+f
end if
END SUB