| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1607 人关注过本帖
标题:vb期末考试,救救孩子!
只看楼主 加入收藏
vvggd
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2020-7-7
结帖率:0
收藏
已结贴  问题点数:20 回复次数:1 
vb期末考试,救救孩子!
手机话费计算:能够充话费,使用话费(每次使用金额可以变化,并要求自己输入)以及显示话费余额。充话费时,如果每次充值100元以上(含100),赠送充值金额的10%话费;充值在50-100(含50),赠送充值金额的5%话费;充值50元以下不赠送话费。使用时,如果余额不足10元,要提示用户充值,不足5元时显示不能使用(即不能输入使用话费)。
如果能写出简单易懂的程序就最好了!!感激不尽!

还有可用话费余额应该怎么储存数据?
[
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: vb 孩子 金额 考试 输入 
2020-07-07 15:25
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:20 
非常简单,用一个文本文件存储话费就可以了。
话费充值小程序.rar (10.18 KB)

图片附件: 游客没有浏览图片的权限,请 登录注册

程序代码:
Dim BB As Single, FO As Object, FT As String

Private Sub Command1_Click()
If Val(Text3.Text) > 10 Then
Set FO = CreateObject("Scripting.FileSystemObject")
FT = App.Path & "\话费.txt"
If FO.FileExists(FT) = True Then Kill FT   '删除原"话费.txt"文件
    If Val(Text3.Text) >= 100 Then
        BB = BB + Val(Text3.Text) * 1.1
    ElseIf Val(Text3.Text) >= 50 Then
        BB = BB + Val(Text3.Text) * 1.05
    ElseIf Val(Text3.Text) < 50 Then
        BB = BB + Val(Text3.Text)
    End If
    BB = Round(BB, 2)
    Call BJC
    Text2.Text = BB
Open App.Path & "\话费.txt" For Append As #1    '创建新的"话费.txt"文件
Print #1, BB
Close #1
Else
    MsgBox "话费充值不能小于 10 元!"
End If
End Sub

Private Sub Form_Load()
Open App.Path & "\话费.txt" For Input As #1   '读取话费
Input #1, AA
Close #1
BB = Round(Val(AA), 2)
Call BJC
Text2.Text = BB
End Sub

Private Sub Text1_LostFocus()
'
If Val(Text1.Text) > 0 Then
Set FO = CreateObject("Scripting.FileSystemObject")
FT = App.Path & "\话费.txt"
If FO.FileExists(FT) = True Then Kill FT   '删除原"话费.txt"文件
BB = BB - Val(Text1.Text)
BB = Round(BB, 2)
Text2.Text = BB
Text1.Text = ""
Open App.Path & "\话费.txt" For Append As #1    '创建新的"话费.txt"文件
Print #1, BB
Close #1
Call BJC
End If
End Sub

Private Sub BJC()
If BB < 10 And BB >= 5 Then
MsgBox "金额不足,请充值!"
Text1.Enabled = True
ElseIf BB < 5 Then
MsgBox "可用话费余额不足,无法设置话费!"
Text1.Enabled = False    '可用话费余额不足,“当次使用话费”文本框失效
End If
If BB >= 10 Then
Text1.Enabled = True
End If
End Sub

请不要选我!!!
2020-07-07 19:56
快速回复:vb期末考试,救救孩子!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.014849 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved