都市无敌医圣:上网收费

来源：百度文库编辑：九乡新闻网时间：2024/07/07 10:15:03

Private Sub Command1_Click() Dim t As Integer Dim f As Single Dim x As String t = Val(Text1.Text) Do While t<=0 MsgBox(“上网时间必须大于零！！！”) Text1.SetFocus t = Val(Text1.Text) Loop If t < 120 Then f = 0.06 * t Else f = 0.06 * t *0.85 EndIf x = Str$(f) + “元” label2.Caption = x End Sub

上网收费联通上网计时方式离奇:上网4天收费按139小时计算 | -闲话杂谈- - 闲话工程网 -... 免费在网吧上网--万象软件破解--网吧收费软件破解联通再陷收费门：4天时间产生5天半上网费用收费公路医院收费如此收费银行收费《收费时代》上网啦 - 上网高招从时间收费到增值服务收费上网三字经。移动上网 ipv6上网女人上网！闲聊上网宽带上网上网三字经上网三字经-- 上网速度上网三字经 GPRS上网上网防毒免费上网