【201401VBA初级】第三讲作业C组上交贴（已开帖）

xdragon · 发表于 2014-4-24 00:01

本帖最后由 xdragon 于 2014-4-29 23:12 编辑

第三讲作业下载地址：http://www.excelpx.com/thread-323577-1-1.html
第三讲视频下载地址：（待讲师上传后更新）
本次作业提交要求如下：
1、提交请用代码形式提交，无需上传附件
2、附件文件名或帖子标题按要求格式命名：组号-论坛ID,
如：C07-RxJc；
3、C组学员跟帖时，不要重复占楼，修改请在原楼层，本帖已设置回复仅作者可见；
4、非组学员勿跟帖，违者删帖处理；
5、作业截止时间：2014年4月29日，20:00，请准时交作业哈。

Frankhao123 · 发表于 2014-4-24 21:24

C04-Frankhao123 要外出几天,先把做了的交了,第二题也不知哪儿出了问题,折腾了好久
1-1

Sub dmol1()
Dim bank As String
bank = InputBox("请输入银行名称")
If bank = "ICBC" Then
MsgBox "中国工商银行"
ElseIf bank = "CBC" Then
MsgBox "中国建设银行"
ElseIf bank = "ABC" Then
MsgBox "中国农业银行"
Else
MsgBox "输入银行简称错误"
End If
End Sub

复制代码

1-2

Sub dmol2()
Dim bank2 As String
bank2 = InputBox("请输入银行名称")
Select Case bank2
Case "ICBC"
MsgBox "中国工商银行"
Case "CBC"
MsgBox "中国建设银行"
Case "ABC"
MsgBox "中国农业银行"
Case bank2 <> "ICBC"
MsgBox "输入银行简称错误"
Case bank2 <> "CBC"
MsgBox "输入银行简称错误"
Case Is <> "ABC"
MsgBox "输入银行简称错误"
End Select
End Sub

复制代码

2

Sub dmol3()
Dim acc As Long
Dim name As String
Dim money As Integer
Dim password As Integer
acc = InputBox("请输入银行账号")
name = InputBox("请输入用户名")
If acc <> 147258 Then
MsgBox "账户不存在"
ElseIf acc = 147258 Then
password = InputBox("请输入密码")
ElseIf password <> 1234 Then
MsgBox "密码有误"
ElseIf password = 1234 Then
money = InputBox("请输入取款金额")
ElseIf money < 0 Or money > 8000 Then
MsgBox "取款失败"
Else
MsgBox money
MsgBox 8000 - money
End If
End Sub

复制代码

我帮你 · 发表于 2014-4-25 17:10

本帖最后由我帮你于 2014-4-28 17:47 编辑

C015-我帮你
龙哥辛苦了

1.
第一种方法：
Sub text()
Dim a As String
a = InputBox("请输入银行简称：" & Chr(13) & "ICBC:中国工商银行" & Chr(13) & "CBC:中国建设银行" & Chr(13) & "ABC:中国农业银行")
If VBA.LCase(a) = "icbc" Then
MsgBox "中国工商银行"
ElseIf VBA.LCase(a) = "cbc" Then
MsgBox "中国建设银行"
ElseIf VBA.LCase(a) = "abc" Then
MsgBox "中国农业银行"
ElseIf a = "" Then
Exit Sub
Else
MsgBox "输入银行简称错误"
End If
End Sub
第二种方法：
Sub text1()
Dim a As String
a = InputBox("请输入银行简称：" & Chr(13) & "ICBC:中国工商银行" & Chr(13) & "CBC:中国建设银行" & Chr(13) & "ABC:中国农业银行")
Select Case VBA.LCase(a)
Case Is = "icbc"
MsgBox "中国工商银行"
Case Is = "cbc"
MsgBox "中国建设银行"
Case Is = "abc"
MsgBox "中国农业银行"
Case Is = ""
Exit Sub
Case Else
MsgBox "输入银行简称错误"
End Select
End Sub
2.
Sub text3()
Dim ID As String, Name As String, Money As Double, Password As Variant, qkje As Variant, UserId As Variant, UserPassword As Variant '如果有人胡乱输入字符，程序就无法进行了，所以这里没用Double
ID = 147258
Name = "我帮你"
Money = 8000
Password = "1234"
UserId = InputBox("请输入账号")
Select Case UserId
Case Is = Name, ID
UserPassword = InputBox("请输入密码")
If UserPassword = Password Then
qkje = InputBox("取款金额")
If qkje > 0 And qkje <= Money Then
MsgBox "恭喜您，取款成功！取款金额为：" & qkje & vbCrLf & "账户余额为：" & Money - qkje
Else
MsgBox "取款失败"
End If
Else
MsgBox "密码有误"
End If
Case Else
MsgBox "账户不存在"
End Select
End Sub
3.
第一种方法：
Function shouye(tishi)
If tishi = 1 Then
shouye = "存款"
ElseIf tishi = 2 Then
shouye = "取款"
Call text3
Exit Function
ElseIf tishi = 3 Then
shouye = "查询余额"
ElseIf tishi = 4 Then
shouye = "退出程序"
Else
shouye = "输入有误，请重新输入"
End If
End Function
Sub text4()
Dim tishi As String
tishi = InputBox("请选择服务类型：" & Chr(13) & "1.存款" & Chr(13) & "2.取款" & Chr(13) & "3.查询余额" & Chr(13) & "4.退出程序")
MsgBox shouye(tishi)[/color]
[color=black]End Sub
方法一有缺陷，当输入2后，跳转到text3中，当点关闭或者取消后，提示完失败后，还会提示“取款”，想不到好的解决办法。
方法二：
Sub text5()
Dim tishi As String
tishi = InputBox("请选择服务类型：" & Chr(13) & "1.存款" & Chr(13) & "2.取款" & Chr(13) & "3.查询余额" & Chr(13) & "4.退出程序")
If tishi = 1 Then
MsgBox "存款"
ElseIf tishi = 2 Then
Call text3
ElseIf tishi = 3 Then
MsgBox "查询余额"
ElseIf tishi = 4 Then
MsgBox "退出程序"
Else
MsgBox "输入有误，请重新输入"
End If
End Sub

复制代码

RxJc · 发表于 2014-4-26 00:51

本帖最后由 RxJc 于 2014-4-26 00:55 编辑

终于完成了~~脑细胞死了好多，自我感觉完成度不是很好，但是似乎可以看见VBA的大门的方向了。
第一题（If语句）：

Sub test1a()
Dim a As String
a = InputBox("请输入银行名称简写")
If a = "ICBC" Then
MsgBox "中国工商银行"
ElseIf a = "CBC" Then
MsgBox "中国建设银行"
ElseIf a = "ABC" Then
MsgBox "中国农业银行"
Else
MsgBox "输入银行简称错误"
End If
End Sub

复制代码

第一题（Select语句）：

Sub test1b()
Dim a As String
a = InputBox("请输入银行名称简写")
Select Case a
Case Is = "ICBC"
MsgBox "中国工商银行"
Case Is = "CBC"
MsgBox "中国建设银行"
Case Is = "ABC"
MsgBox "中国农业银行"
Case Is <> "ICBC", "CBC", "ABC"
MsgBox "输入银行简称错误"
End Select
End Sub

复制代码

第二题（不知道是不是我理解的问题，感觉题目里的用户名没有用，所以就没有去定义，而是用论坛ID当做账号使用了）：

Sub test2()
Dim Account As String
Dim Amount As Integer
Dim Code As String
Account = "RxJc"
Amount = 8000
Code = "1234"
Dim step1 As String
Dim step2 As String
Dim step3 As Integer
Dim balance As Integer
step1 = InputBox("请输入您的银行账号")
If step1 = Account Then
step2 = InputBox("请输入您的密码")
If step2 = Code Then
step3 = InputBox("请输入取款金额")
If step3 > 0 And step3 < Amount Then
balance = Amount - step3
MsgBox "取款成功!" & "余额:" & balance
Else: MsgBox "取款失败"
End If
Else: MsgBox "密码错误"
End If
Else: MsgBox "账户不存在"
End If
End Sub

复制代码

第三题及附加（霸气了，自我感觉很霸气，另外我觉得调用第二题的过程无法实现我的想法，所以存和取得过程重新写了）：

Option Explicit
Dim balance As Long
Sub Save()
Dim SaveAmount As Long
SaveAmount = InputBox("请输入您要存入的金额")
If SaveAmount > 0 Then
balance = balance + SaveAmount
MsgBox "存款成功!" & "金额:" & SaveAmount
Else: MsgBox ("金额错误!谢谢您的使用")
End If
End Sub
Sub Take()
Dim TakeAmount As Long
TakeAmount = InputBox("请输入您要取款的金额")
If TakeAmount > 0 And balance > TakeAmount Then
balance = balance - TakeAmount
MsgBox "取款成功!" & "金额:" & TakeAmount
Else: MsgBox ("金额错误!谢谢您的使用")
End If
End Sub
Sub test3()
Dim Account As String
Dim Code As String
Account = "RxJc"
Code = "1234"
balance = 100000
Dim EnterAccount As String
Dim EnterCode As String
Dim Choice As Byte
EnterAccount = InputBox("欢迎使用RxJc银行ATM系统！请输入您的银行账号")
If EnterAccount = Account Then
EnterCode = InputBox("请输入您的密码")
If EnterCode = Code Then
Line1: Choice = InputBox("请选择 1-存款 2-取款 3-查询 4-退出")
If Choice = 1 Then
Call Save
GoTo Line1
Else
If Choice = 2 Then
Call Take
GoTo Line1
Else
If Choice = 3 Then
MsgBox "您的余额是:" & balance
GoTo Line1
Else
If Choice = 4 Then
MsgBox "谢谢您的使用!请收好您的卡!"
End If
End If
End If
End If
Else: MsgBox ("密码错误，谢谢您的使用")
End If
Else: MsgBox ("账户不存在!谢谢您的使用")
End If
End Sub

复制代码

这又是我最霸气的回帖了~~~

ghostcan · 发表于 2014-4-26 13:29

本帖最后由 ghostcan 于 2014-4-26 13:47 编辑

C01-ghostjiao
定义模块及变量BKI

Type BanKInfo
账号 As String '6位数字可以用long,正常有很多位数字转换为string
用户名 As String
存款金额 As Single '利息之类的出现小数
密码 As Long '银行密码只能数字,位数<=6
End Type
Dim BKI As BanKInfo

复制代码

第一题：

Sub 第一题1()
Dim Imsg '可能输入各种类型数据
Imsg = UCase(InputBox("请输入银行英文缩写", "输入提示"))
If Imsg = "ICBC" Then
MsgBox "中国工商银行"
ElseIf Imsg = "CBC" Then
MsgBox "中国建设银行"
ElseIf Imsg = "ABC" Then
MsgBox "中国农业银行"
Else
MsgBox "输入银行简称错误"
End If
End Sub
Sub 第一题2()
Dim Imsg
Imsg = UCase(InputBox("请输入银行英文缩写", "输入提示"))
Select Case Imsg
Case "ICBC"
MsgBox "中国工商银行"
Case "CBC"
MsgBox "中国建设银行"
Case "ABC"
MsgBox "中国农业银行"
Case Else
MsgBox "输入银行简称错误"
End Select
End Sub

复制代码

第2题

Sub 第二题()
Dim Num As Long '取款金额整数,输入界面没有小数点，本次模拟不对输入的结果进行判断是否是整数
With BKI
.存款金额 = 8000 '账户内本来有8000
.账号 = CStr(InputBox("请输入银行账号", "输入提示"))
If .账号 <> "147258" Then
MsgBox "输入账户不存在", vbExclamation + vbOKOnly, "错误提示"
Else
.密码 = Application.InputBox("请输入密码", "输入提示", , , , , , 1)
If .密码 <> 1234 Then
MsgBox "密码有误", vbExclamation + vbOKOnly, "错误提示"
Else
Num = Application.InputBox("请输入取款金额，只能是100的整数", "输入提示", , , , , , 1)
If Num <= .存款金额 Then
MsgBox "取款金额：" & Num & Chr(10) & "账户余额：" & .存款金额 - Num
Else
MsgBox "取款失败", vbOKOnly + vbExclamation, "错误提示"
End If
End If
End If
End With
End Sub

复制代码

第3题：感觉这个function过程挺别扭的...

Sub 调用过程()
Dim m '限定输入为数字,可以是小数整数
m = Application.InputBox("请输入使用功能" & Chr(10) & "1：存款" & Chr(10) & "2:取款" & Chr(10) & "3:查询余额" _
& Chr(10) & "4:退出", "提示", , , , , , 1)
BkMsg (m)
End Sub
Function BkMsg(n As Byte)
If n = 1 Then MsgBox "请把钞票放在存钞口，请放少于100张钞票"
If n = 2 Then Call 第二题
If n = 3 Then MsgBox BKI.存款金额
If n = 4 Then Application.Quit
End Function

复制代码

附加题：
附加题一言难尽...，尽可能按照实际模拟，功能太多了，没弄那么全，限定更改密码的长度，没有限定存、取款金额必须是100整数倍，退出的时候只是隐藏了窗体
没有数据库数据，对更改的数据在关闭excel后不能保存，转账功能”对方账户“没做任何限制，实在不行了，这个题太难了

eaglexs · 发表于 2014-4-26 20:11

第三题如果要完整、符合实际情况，需要考虑的东西太多了。还是先把作业交了再说吧。
C04:eaglexs
第一题：

Option Explicit
'第一题
Sub 第一题1()
Dim strBank$
strBank = Application.InputBox("请输入银行英文简称：", "简称输入", , , , , , 2)
If strBank = "ICBC" Then
MsgBox "中国工商银行"
ElseIf strBank = "CBC" Then
MsgBox "中国建设银行"
ElseIf strBank = "ABC" Then
MsgBox "中国农业银行"
Else
MsgBox "输入银行简称错误！"
End If
End Sub
Sub 第一题2()
Dim strBank$
strBank = Application.InputBox("请输入银行英文简称：", "简称输入", , , , , , 2)
Select Case strBank
Case "ICBC"
MsgBox "中国工商银行"
Case "CBC"
MsgBox "中国建设银行"
Case "ABC"
MsgBox "中国农业银行"
Case Else
MsgBox "输入银行简称错误！"
End Select
End Sub

复制代码

第二题：

Option Explicit
'第二题
Type AccountInfo '用自定义数据类型保存银行账号信息
账号 As String
用户名 As String
存款金额 As Currency
密码 As String
End Type
Sub 第二题()
Dim Acc As AccountInfo, money!
With Acc '录入初始信息
.账号 = "147258"
.用户名 = "eaglexs"
.存款金额 = 8000
.密码 = "1234"
End With
If Acc.账号 <> InputBox("请输入取款账号", "输入") Then
MsgBox "账户不存在！"
ElseIf Acc.密码 <> InputBox("请输入密码", "输入") Then
MsgBox "密码有误！"
Else '当账号密码都正确时
money = Round(Application.InputBox("请输入取款金额：", "输入", , , , , , 1), 2)
If money < 0 Or money > Acc.存款金额 Then
MsgBox "取款失败"
Else
MsgBox "取款成功！取款金额" & money & "元" & vbCrLf & "账户余额" & Acc.存款金额 - money & "元", , "提示"
End If
End If
End Sub

复制代码

第三题：

Option Explicit
'第三题，已结合附加题
Type AccountInfo
账号 As String
用户名 As String
存款金额 As Currency
密码 As String
End Type
Dim bAcc As AccountInfo '声明bAcc为模块级变量，重复执行主过程main时，其中的值可以保留
Sub main()
Dim x As Byte
On Error Resume Next '错误跳过
start:
x = Int(Application.InputBox("请输入您要操作的功能：" & vbCrLf & "输入1为开户，" & vbTab & _
"输入2为存款，" & vbCr & "输入3为取款，" & vbTab & "输入4为查询余额，" _
& vbCr & "输入5为退出", "功能选择", , , , , , 1))
If Err.Number > 0 Then '如果出错（输入的数字超出Byte范围）
Err.Clear '先清除错误
MsgBox "功能选择错误，请重新选择！"
GoTo start '到start处重新开始选择
ElseIf x = 0 Or x > 5 Then '如果输入的值不是1、2、3、4、5，则重新开始
MsgBox "功能选择错误，请重新选择！"
GoTo start
End If
Select Case x
Case Is = 1 '对应值调用相应子过程
开户
Case Is = 2
存款
Case Is = 3
取款
Case Is = 4
查询余额
Case Else
Exit Sub '选择5退出过程
End Select
End Sub
Sub 开户()
'模拟开户，重新输入后，原先的值将清空
bAcc.账号 = Application.InputBox("请输入开户银行账号", "开户输入", , , , , , 2)
bAcc.用户名 = Application.InputBox("请输入开户用户名", "开户输入", , , , , , 2)
bAcc.密码 = Application.InputBox("请输入开户密码", "开户输入", , , , , , 2)
bAcc.存款金额 = Application.InputBox("请输入存入金额", "开户输入", , , , , , 1)
End Sub
Function AccYoN() As Boolean '自定义函数，用过判断输入的账号、密码是否正确
Dim zh$, psw$
On Error Resume Next
zh = InputBox("请输入银行账号", "输入")
If zh <> bAcc.账号 Then
MsgBox "账户不存在！"
AccYoN = False '账号不正确，返回false
ElseIf bAcc.密码 <> InputBox("请输入密码", "输入") Then
MsgBox "密码有误！"
AccYoN = False '密码不正确，返回false
Else
AccYoN = True '账号密码正确，返回true
End If
End Function
Sub 存款()
Dim money!
If AccYoN Then '如果账号密码正确
money = Round(Application.InputBox("请输入存款金额：", "存款", , , , , , 1), 2)
If money < 0 Then
MsgBox "存款失败，金额有误！"
Else
bAcc.存款金额 = bAcc.存款金额 + money '存款金额增加
MsgBox "存款成功！存款金额" & money & "元" & vbCr & "账户余额" & bAcc.存款金额 & "元", , "提示"
End If
End If
End Sub
Sub 取款()
Dim money!
If AccYoN Then
money = Round(Application.InputBox("请输入取款金额：", "取款", , , , , , 1), 2)
If money < 0 Or money > bAcc.存款金额 Then '如果输入的金额小于0或超过存款金额
MsgBox "取款失败"
Else
bAcc.存款金额 = bAcc.存款金额 - money '存款金额减少
MsgBox "取款成功！取款金额" & money & "元" & vbCrLf & "账户余额" & bAcc.存款金额 & "元", , "提示"
End If
End If
End Sub
Sub 查询余额()
Dim money!
If AccYoN Then
MsgBox "账号 " & bAcc.账号 & "的存款余额为" & bAcc.存款金额 & "元。"
End If
End Sub

复制代码

开心妙妙 · 发表于 2014-4-27 18:39

本帖最后由开心妙妙于 2014-4-29 13:16 编辑

C16:开心妙妙，附加题把我给转晕了，可能好多错漏的地方，学委辛苦批改指正

'模块1代码
Option Explicit
Sub 第一题1()
Dim st[ DISCUZ_CODE_6 ]nbsp; '定义变量为字符串型
st = InputBox("请输入银行简称", "欢迎使用Excelpx电子银行服务系统") '用InputBox输入信息赋值给变量st
st = UCase(st) '将字符串转为大写
If st = "ICBC" Then '判断如果输入值等于"ICBC"
MsgBox "中国工商银行" '显示:"中国工商银行"
ElseIf st = "CBC" Then
MsgBox "中国建设银行"
ElseIf st = "ABC" Then
MsgBox "中国农业银行"
Else '否则
MsgBox "输入银行简称错误" '显示:"输入简称错误"
End If
End Sub
Sub 第一题2()
Dim st[ DISCUZ_CODE_6 ]nbsp; '
st = InputBox("请输入银行简称", "欢迎使用Excelpx电子银行服务")
Select Case UCase(st) '检测ST值,并将小写转为大写
Case "ICBC" '检测ST是ICBC
MsgBox "中国工商银行" '显示:"中国工商银行"
Case "CBC"
MsgBox "中国建设银行"
Case "ABC"
MsgBox "中国农业银行"
Case Else '否则
MsgBox "输入银行简称错误" '显示:"输入简称错误"
End Select
End Sub
Sub 第二题()
Dim 账号 As String, 用户名 As String '定义账号和用户名字符串型
Dim 存款金额 As Currency, 密码 As String '定义存款金额货币型,密码字符串型
Dim 取款金额 As Currency '定义取款金额变量
账号 = "147258": 用户名 = "开心妙妙" '账号及用户名赋值给变量
存款金额 = 8000: 密码 = "1234" '存款金额及密码赋值给变量
账号 = InputBox("请输入银行账号", "欢迎使用Excelpx电子银行服务") '用InputBox输入信息赋值给变量
If 账号 = "147258" Then '判断如果账号="147258"
密码 = InputBox("请输入密码", "欢迎使用Excelpx电子银行服务") '那么用InputBox输入密码信息赋值给变量
If 密码 = "1234" Then '判断如果密码="1234"
取款金额 = InputBox("请输入取款金额", "欢迎使用Excelpx电子银行服务") '那么用用InputBox输入取款金额赋值给变量
If 取款金额 > 0 And 取款金额 < 8000 Then '判断取款金额大于0和小于8000
MsgBox "取款金额:" & 取款金额 '那么显示取款金额数量
Else '否则
MsgBox "取款失败" '显示"取款失败"
End If
Else '否则
MsgBox "密码有误" '显示"密码有误"
End If
Else '否则
MsgBox "账户不存在" '显示"账户不存在"
End If
End Sub
'第三题自定义函数
Function 电子银行(n As Integer) '自定义函数,参数N要传递选择的数据
Select Case n '检测要选择的数据
Case 1 '表达式如果是1,则显示"存款"
MsgBox "存款"
Case 2 '表达式如果是2,则显示"取款",调用模块1.第二题过程
MsgBox "取款"
Call 模块1.第二题
Case 3 '表达式如果是3,则显示"查询余额"
MsgBox "查询余额"
Case 4 '表达式如果是4,退出程序
MsgBox "退出程序"
Exit Function
End Select
End Function
Sub 第三题()
Dim n As Integer
On Error Resume Next '容错处理
'用InputBox输入信息赋值给变量n,Chr(10)表示强制换行
n = InputBox("请输入:" & Chr(10) & "1、存款" & Chr(10) & "2、取款" & Chr(10) & "3、查询余额" & Chr(10) & "4、退出程序")
If n >= 1 And n <= 4 Then '检测输入的数字是否1-4的数字
电子银行 (n) '执行自定义函数n参数的内容
Else
MsgBox "操作错误，退出程序"
End If
End Sub
'附加题:独立模块2
Option Explicit
Dim 账号 As String, 用户名 As String '模块级变量：账号和用户名字符串型
Dim 存款余额 As Currency '模块级变量:存款余额货币型
Dim 密码 As String '模块级变量:密码字符型
Sub 立户()
Dim 存款金额 As Currency '过程级变量:存款金额货型
账号 = "147258": 用户名 = "开心妙妙" '账号及用户名赋值给变量
密码 = "1234" '存款金额及密码赋值给变量
存款金额 = 8000 '8000赋值组存款金额
存款余额 = 存款余额 + 存款金额 '将存款金额赋值以存款余额, 这个作用便于其它过程调用
End Sub
Sub 存款()
Dim 存款金额 As Currency
If 账号 = "" Then
Call 模块2.立户
存款余额 = 存款余额 + 存款金额
End If
账号 = InputBox("请输入银行账号", "欢迎使用Excelpx电子银行服务") '用InputBox输入信息赋值给变量
If 账号 = "147258" Then '判断如果账号="147258"
密码 = InputBox("请输入密码", "欢迎使用Excelpx电子银行服务") '那么用InputBox输入密码信息赋值给变量
If 密码 = "1234" Then '判断如果密码="1234"
存款金额 = InputBox("请输入存款金额", "欢迎使用Excelpx电子银行服务") '那么用用InputBox输入取款金额赋值给变量
存款余额 = 存款余额 + 存款金额
MsgBox "存款金额:" & 存款金额 & Chr(10) & "存款余额:" & 存款余额
Else '否则
MsgBox "密码有误" '显示"密码有误"
End If
Else '否则
MsgBox "账户不存在" '显示"账户不存在"
End If
End Sub
Sub 取款()
Dim 取款金额 As Currency '定义取款金额变量
If 账号 = "" Then Call 模块2.立户
账号 = InputBox("请输入银行账号", "欢迎使用Excelpx电子银行服务") '用InputBox输入信息赋值给变量
If 账号 = "147258" Then '判断如果账号="147258"
密码 = InputBox("请输入密码", "欢迎使用Excelpx电子银行服务") '那么用InputBox输入密码信息赋值给变量
If 密码 = "1234" Then '判断如果密码="1234"
取款金额 = InputBox("请输入取款金额", "欢迎使用Excelpx电子银行服务") '那么用用InputBox输入取款金额赋值给变量
If 取款金额 > 0 And 取款金额 < 存款余额 Then '判断取款金额大于0和小于存款金额
存款余额 = 存款余额 - 取款金额
MsgBox "取款金额:" & 取款金额 & Chr(10) & "存款余额:" & 存款余额
'那么显示取款金额数量及存款余款
Else '否则
MsgBox "取款失败" '显示"取款失败"
End If
Else '否则
MsgBox "密码有误" '显示"密码有误"
End If
Else '否则
MsgBox "账户不存在" '显示"账户不存在"
End If
End Sub
Function 电子银行(n As Integer) '自定义函数,参数N要传递选择的数据
Select Case n '检测要选择的数据
Case 1 '表达式如果是1,则显示"存款"
MsgBox "存款"
Call 模块2.存款
Case 2 '表达式如果是2,则显示"取款",调用模块1.第二题过程
MsgBox "取款"
Call 模块2.取款
Case 3 '表达式如果是3,则显示"查询余额"
MsgBox "查询余额"
MsgBox "存款余额:" & 存款余额
Case 4 '表达式如果是4,退出程序
MsgBox "退出程序"
Exit Function
End Select
End Function
Sub 附加题()
Dim n As Integer
On Error Resume Next '容错处理
'用InputBox输入信息赋值给变量n,Chr(10)表示强制换行
n = InputBox("请输入:" & Chr(10) & "1、存款" & Chr(10) & "2、取款" & Chr(10) & "3、查询余额" & Chr(10) & "4、退出程序")
If n >= 1 And n <= 4 Then '检测输入的数字是否1-4的数字
电子银行 (n) '执行自定义函数n参数的内容
Else
MsgBox "操作错误，退出程序"
End If
End Sub

复制代码

yy183413821 · 发表于 2014-4-27 21:49

Sub 银行1()
Dim SHURU As String
SHURU = InputBox("输入银行简称：")
If SHURU = "ICBC" Then
MsgBox "中国工商银行"
ElseIf SHURU = "CBC" Then
MsgBox "中国建设银行"
ElseIf SHURU = "ABC" Then
MsgBox "中国农业银行"
Else
MsgBox "银行输入错误名称!"
End If
End Sub

Sub 银行2()
Dim SHURU As String
SHURU = InputBox("输入银行简称：")
Select Case SHURU
Case Is = "ICBC"
MsgBox "中国工商银行"
Case Is = "CBC"
MsgBox "中国建设银行"
Case Is = "ABC"
MsgBox "中国农业银行"
Case Else
MsgBox "银行输入错误名称!"
End Select
End Sub

Sub bank()
Dim zhanghao As Long '学委这道题是我第一个思路，但是写到最后发现不会跳转语句，请求给予解答
Dim yonghuming As String
Dim jine As Double
Dim mima As Integer
zhanghao = 147258
yonghuming = "yy183413821"
jine = 8000
mima = 1234
Dim a As Variant
Dim b As Variant
Dim c As Double
a = InputBox("输入账号：")
If a = zhanghao Then
Else
MsgBox "账号不存在"
GoTo bank
End If
b = InputBox("请输入密码：")
If b = mima Then
Else
MsgBox "密码有误"
End If
c = InputBox("请输入取款金额：")
If c > 0 And c <= jine Then
MsgBox "账户余额为：" & jine - c
Else
MsgBox "取款失败"
End If
End Sub

Sub bank1()
Dim zhanghao As Long
Dim yonghuming As String
Dim jine As Double
Dim mima As Integer
zhanghao = 147258
yonghuming = "yy183413821"
jine = 8000
mima = 1234
Dim a As Variant
Dim b As Variant
Dim c As Double
a = InputBox("请输入银行账号:")
If a = zhanghao Then
b = InputBox("请输入密码：")
If b = mima Then
c = InputBox("请输入取款金额：")
If c > 0 And c < jine Then
MsgBox "账户余额为：" & jine - c
Else
MsgBox "取款失败"
End If
Else
MsgBox "密码有误"
End If
Else
MsgBox "账号不存在"
End If

End Sub

as0810114 · 发表于 2014-4-27 23:17

Sub 第一题1()
Dim a As String
a = VBA.InputBox("请输入银行简称")
If a = "ICBC" Then
MsgBox "中国工商银行"
ElseIf a = "CBC" Then
MsgBox "中国建设银行"
ElseIf a = "ABC" Then
MsgBox "中国农业银行"
Else
MsgBox "输入银行简称错误"
End If
End Sub
Sub 第一题2()
Dim a As String
a = VBA.InputBox("请输入银行简称")
Select Case a
Case "ICBC"
MsgBox "中国工商银行"
Case "CBC"
MsgBox "中国建设银行"
Case "ABC"
MsgBox "中国农业银行"
Case Else
MsgBox "输入银行简称错误"
End Select
End Sub
Sub 第二题()
Dim 账号$, 用户名$, 存款金额#, 密码$
Dim a$, b$, c#
账号 = "147258"
用户名 = "as0810114"
存款金额 = 8000
密码 = "1234"
a = InputBox("请输入账号")
If a = 账号 Then
b = InputBox("请输入密码")
If b = 密码 Then
c = InputBox("请输入取款金额")
If c > 0 And c <= 存款金额 Then
MsgBox "取款金额为:" & c & Chr(10) & "账户余额为:" & 存款金额 - c '输出取款金额以及存款余额
Else
MsgBox "取款失败"
End If
Else
MsgBox "密码有误"
End If
Else
MsgBox "账户不存在"
End If
End Sub
Function 取款(a)
If a = 1 Then
取款 = "存款"
ElseIf a = 2 Then
Call 第二题
取款 = "取款完成"
ElseIf a = 3 Then
取款 = "查询余额"
Else
ThisWorkbook.Close
End If
End Function
Sub demo()
Dim a
a = InputBox("请输入数字代码" & Chr(10) & "1：存款" & Chr(10) & "2：取款" & Chr(10) & "3：查询余额" & Chr(10) & "4：退出系统", "您好!")
MsgBox 取款(a)
End Sub

复制代码

很幸福 · 发表于 2014-4-29 14:12

本帖最后由很幸福于 2014-4-29 16:47 编辑

第一题：
Sub demo1()
Dim a As String
a = InputBox("请输入银行简称")
If a = "icbc" Then
MsgBox "中国工商银行"
ElseIf a = "cbc" Then
MsgBox "中国建设银行"
ElseIf a = "abc" Then
MsgBox "中国农业银行"
Else
MsgBox "输入简称错误！"
End If

End Sub

第二题：
Sub demo2()
Dim stu As stuinfor
stu.账号 = "147258"
stu.用户名 = "很幸福"
stu.密码 = "1234"
End Sub

Sub demo3()
Dim a As Integer
   If stu.账号 <> "147258" Then
   MsgBox "户名不存在"
   Else
   If stu.密码 <> "1234" Then
   MsgBox "密码有误"
   Else

End If

End If

End Sub

呜。。。。。。。。不会写{:091:}

		自动登录	找回密码
密码			注册

[习题] 【201401VBA初级】第三讲作业C组上交贴（已开帖）

评分

相关帖子

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分