Excel 2015VBA初级2班第2课B组作业上交贴

wp8680

作业说明及要求：

1、根据第二课所讲的内容，按课堂中的布置的作业，编写一段自认为精练的代码。
2、纯录制代码不加分！无独特思考内容的代码不加分！抄袭他人代码无新意不加分！粗糙不合理的代码少加分！
3、提交作业请注明论坛ID及学号。如：B01-***；作业可以压缩包方式提交，也可以直接贴代码;
4、代码题要求强制声明变量，代码缩进
5、学习是自愿的，学成也是自已的。
6、我们的目标：超出自我，胜出自我。
7、作业截止时间：2015年11月10日18:00时

lvxia

B10:lvxia

1. Option Explicit
   
2. '【作业1】：相亲应答
   
3. Sub 相亲()
   
4.     Dim Q1 As VbMsgBoxResult, Q2 As VbMsgBoxResult
   
5.     Q1 = MsgBox("女孩问：你有房吗？", vbYesNo, "相亲进行中……")
   
6.     Q2 = MsgBox("女孩问：你有车吗？", vbYesNo, "相亲进行中……")
   
7.     If Q1 = vbYes And Q2 = vbYes Then
   
8.         MsgBox "女孩说：去民政局吧~", vbOKOnly, "相亲结局(*^__^*) 嘻嘻……"
   
9.     ElseIf Q1 = vbYes Or Q2 = vbYes Then
   
10.         MsgBox "女孩说：再考虑考虑", vbOKOnly, "相亲结局o(︶︿︶)o"
    
11.     ElseIf Q1 = vbNo And Q2 = vbNo Then
    
12.         MsgBox "女孩说：拜拜！", vbOKOnly, "相亲结局ヾ(￣▽￣)Bye~Bye~"
    
13.     End If
    
14. End Sub

复制代码

1. Option Explicit
   
2. '【作业2】：登陆验证
   
3. Sub 登陆验证()
   
4.     Dim IUser As Variant, IpassW, user As String, passw As String
   
5.     user = 123456789
   
6.     passw = "lvxia123"
   
7. login1:
   
8.         IUser = Application.InputBox("请输入用户名：", "登陆界面", , , , , , 2)
   
9.     If IUser = "" Then
   
10.         MsgBox "用户名不能为空！"
    
11.         GoTo login1
    
12.    ElseIf IUser = False Then
    
13.         MsgBox "输入用户名后，请单击确定按钮"
    
14.         GoTo login1
    
15.     ElseIf IUser <> user Then
    
16.         MsgBox "用户名错误！"
    
17.         GoTo login1
    
18.     End If
    
19. login2:
    
20.          IpassW = Application.InputBox("请输入密码：", "登陆界面", , , , , , 2)
    
21.    If IpassW = "" Then
    
22.         MsgBox "密码不能为空"
    
23.         GoTo login2
    
24.    ElseIf IpassW = False Then
    
25.        MsgBox "输入密码后，请单击确定按钮"
    
26.        GoTo login2
    
27.     ElseIf IpassW <> passw Then
    
28.         MsgBox "密码错误！"
    
29.         GoTo login2
    
30.     ElseIf IUser = user And IpassW = passw Then
    
31.         MsgBox "登陆成功！"
    
32.     End If
    
33. End Sub
    
34. 
    

复制代码

hsl215

B11:hsl215
登录

1. Sub 登录()
   
2.     Dim i, j, msg As VbMsgBoxResult
   
3. Reinput:
   
4.     i = Application.InputBox("请输入QQ号码", "登录界面", , , , , , 2)
   
5.     If i = "" Then
   
6.         msg = MsgBox("用户名为空，是否重新输入？", vbYesNo, "提示信息")
   
7.         If msg = 6 Then
   
8.             GoTo Reinput
   
9.         Else
   
10.             Exit Sub
    
11.         End If
    
12.     ElseIf i = False Then
    
13.         msg = MsgBox("请确认是否退出登录界面？", vbYesNo, "提示信息")
    
14.         If msg = 6 Then
    
15.             Exit Sub
    
16.         Else
    
17.             GoTo Reinput
    
18.         End If
    
19.     ElseIf i = 9999 Then
    
20. Reinputpw:
    
21.         j = Application.InputBox("请输入QQ密码", "登录界面", , , , , , 2)
    
22.          If j = 123 Then
    
23.         MsgBox "登录成功", vbOKOnly, "提示"
    
24.         Else
    
25.             msg = MsgBox("用密码输入错误，是否重新输入？", vbYesNo, "提示信息")
    
26.             If msg = 6 Then
    
27.                 GoTo Reinputpw
    
28.             Else
    
29.                 Exit Sub
    
30.             End If
    
31.         End If
    
32.     ElseIf i = False Then
    
33.     Else
    
34.         msg = MsgBox("用户名输入错误，是否重新输入？", vbYesNo, "提示信息")
    
35.         If msg = 6 Then
    
36.             GoTo Reinput
    
37.         Else
    
38.             Exit Sub
    
39.         End If
    
40.     End If
    
41. End Sub

复制代码

相亲

1. Sub 相亲()
   
2.     Dim msg1 As VbMsgBoxResult, msg2 As VbMsgBoxResult
   
3.     msg1 = MsgBox("你有房吗？", vbYesNo, "女方问题一")
   
4.     If msg1 = 6 Then
   
5.         msg2 = MsgBox("你有车吗？", vbYesNo, "女方问题二")
   
6.         If msg2 = 6 Then
   
7.             MsgBox "去民政局吧！", vbOKOnly, "领证去喽"
   
8.         Else
   
9.             MsgBox "再考虑考虑", vbOKOnly, "考虑"
   
10.         End If
    
11.     Else
    
12.         msg2 = MsgBox("你有车吗？", vbYesNo, "女方问题二")
    
13.         If msg2 = 6 Then
    
14.             MsgBox "再考虑考虑", vbOKOnly, "考虑"
    
15.         Else
    
16.             MsgBox "See you", vbOKOnly, "拜拜"
    
17.         End If
    
18.     End If
    
19. End Sub

复制代码

海底之心

1. B04：海底之心交作业，学委辛苦啦。
   
2. Sub 相亲()
   
3. If MsgBox("你有房吗？", vbYesNo + vbInformation, "请如实回答：") = vbNo Then
   
4.     MsgBox "拜拜！"
   
5. ElseIf MsgBox("那你有车吗？", vbYesNo + vbInformation, "请如实回答：") = vbNo Then
   
6.     MsgBox "我再考虑一下。"
   
7. Else: MsgBox "我们去民政局吧！"
   
8. End If
   
9. End Sub
   
10. Sub 号码验证()
    
11. Dim i As Variant
    
12. Dim x As Variant
    
13. i = Application.InputBox("请输入QQ号码：", "提示信息", , , , , , 2)
    
14. If i = "" Then
    
15.     MsgBox "QQ号不能为空！"
    
16. ElseIf i <> 123456 Then
    
17.     MsgBox "QQ号错误"
    
18. Else: x = Application.InputBox("请输入密码：", "提示信息", , , , , , 1)
    
19.     If x = "123" Then
    
20.         MsgBox "登陆成功！"
    
21.     Else: MsgBox "密码错误！"
    
22.     End If
    
23. End If
    
24. End Sub
    

复制代码

影亮

B06：影亮

1. Sub 相亲()
   
2.     Dim x As VbMsgBoxResult, y As VbMsgBoxResult
   
3.     x = MsgBox("你有房吗", vbYesNo + vbQuestion, "提示信息")
   
4.     y = MsgBox("你有车吗", vbYesNo + vbQuestion, "提示信息")
   
5.     If x = vbYes And y = vbYes Then
   
6.         MsgBox "去民政局"
   
7.     Else
   
8.         If x = vbNo And y = vbNo Then
   
9.             MsgBox "拜拜"
   
10.         Else
    
11.             MsgBox "再考虑考虑"
    
12.         End If
    
13.     End If
    
14. End Sub

复制代码

1. Sub 登录QQ()
   
2.     Dim i As Variant, k As Variant
   
3. resum:
   
4.     i = Application.InputBox("请输入QQ号", "提醒", , , , , , 2)
   
5.     k = Application.InputBox("请输入密码", "提醒", , , , , , 2)
   
6.     If i = True And k = True Then
   
7.          MsgBox "登陆成功"
   
8.     Else
   
9.          MsgBox "请返回登录"
   
10.           GoTo resum
    
11.     End If
    
12. End Sub

复制代码

dzj4717642

B02:dzj4717642
相亲问答

1. Sub 相亲问答()
   
2. Dim msg1 As VbMsgBoxResult
   
3. Dim msg2 As VbMsgBoxResult
   
4. Dim msg3 As VbMsgBoxResult
   
5. Dim msg4 As VbMsgBoxResult
   
6. msg1 = MsgBox("你有房吗？", vbYesNo, "女孩第一个问题")
   
7. If msg1 = 6 Then
   
8.     msg2 = MsgBox("你有车吗？", vbYesNo, "女孩第二个问题")
   
9.         If msg2 = 6 Then
   
10.            msg3 = MsgBox("你有钱吗？", vbYesNo, "女孩第三个问题")
    
11.             If msg3 = 6 Then
    
12.                msg3 = MsgBox("那还磨蹭什么，我们去民政局吧！", vbooknly, "女孩开心的说：")
    
13.             Else
    
14.                MsgBox "我再考虑一下"
    
15.             End If
    
16.          Else
    
17.              MsgBox "我再考虑一下"
    
18.          End If
    
19. Else
    
20.     MsgBox "我再考虑一下"
    
21. End If
    
22. End Sub
    

复制代码