问题标题：
VB编程,根据上网时间计算上网费用
问题描述：
VB编程,根据上网时间计算上网费用
费玉莲回答：
PrivateSubCommand1_Click()
DimtAsInteger,mAsSingle
t=Val(InputBox("请输入上网时间,以小时为单位,输入-1结束"))
Ift-1Then
SelectCaset
CaseIs=100
m=25+(t-10)*1
EndSelect
Ifm>200Thenm=200
MsgBoxt&"小时上网费用="&m&"元"
EndIf
EndSub
查看更多
