Excel 2015VBA初级2班第2课A组作业上交贴（已开贴）

xcnclzy

1. Sub 对话()
   
2.     Dim msg As VbMsgBoxResult
   
3.     Dim msg1 As VbMsgBoxResult
   
4.     msg = MsgBox("你有房吗？", vbQuestion + vbYesNo, "女方提问")
   
5.     msg1 = MsgBox("你有车吗？", vbQuestion + vbYesNo, "女方追问")
   
6.     If msg = vbYes And msg1 = vbYes Then
   
7.         MsgBox "咱们去民政局登记去吧"
   
8.     ElseIf msg <> vbYes And msg1 <> vbYes Then
   
9.         MsgBox "既没房又没车，交什么女朋友。"
   
10.     Else
    
11.         MsgBox "要不咱们先交往交往"
    
12.     End If
    
13. End Sub

复制代码

只做一题了

denil

1. <div class="blockcode"><blockquote>Sub 相亲2()
   
2.     Dim msg1 As VbMsgBoxResult
   
3.     Dim msg2 As VbMsgBoxResult
   
4.         msg1 = MsgBox("你有房吗？", vbQuestion + vbYesNo, "坦克老师相亲流程")
   
5.         msg2 = MsgBox("那么你有车吗？", vbQuestion + vbYesNo, "坦克老师相亲流程")
   
6.     If msg1 * msg2 = 36 Then MsgBox "走，民政局。"
   
7.     If msg1 * msg2 = 42 Then MsgBox "考虑考虑。"
   
8.     If msg1 * msg2 = 49 Then MsgBox "再见。"
   
9. End Sub
   
10. 
    
11. Sub 登录2()
    
12. Dim id, psw
    
13. rid:
    
14.      On Error Resume Next
    
15.     id = Application.InputBox("用户名", "QQ登录界面1", , , , , 1)
    
16.     If id = False Then Exit Sub
    
17.     If id = "" Then MsgBox "用户名不能为空，请重新输入！"
    
18.     If id = 9999 Then
    
19.     GoTo rpsw
    
20.     Else: MsgBox "你不会忘记自己叫什么吧！"
    
21.     GoTo rid
    
22.     End If
    
23.    
    
24. rpsw:
    
25.      On Error Resume Next
    
26.     psw = Application.InputBox("密码", "QQ登录界面2", , , , , 1)
    
27.     If psw = False Then Exit Sub
    
28.     If psw = "" Then MsgBox "密码不能为空，请重新输入！"
    
29.     If psw = 123 Then
    
30.     MsgBox "登陆成功。": Exit Sub
    
31.     Else: MsgBox "我知道你是瞎蒙的，所以再次输入吧！"
    
32.     GoTo rpsw
    
33.     End If
    
34. End Sub

复制代码

天地有雪

1. Sub 相亲会()
   
2. Dim a As VbMsgBoxResult, b As VbMsgBoxResult
   
3.     a = MsgBox("哥有房吗？", vbYesNo, "提示信息")
   
4.         b = MsgBox("哥有车吗？", vbYesNo, "提示信息")
   
5.             If a = vbYes And b = vbYes Then
   
6.              MsgBox "我们结婚吧！"
   
7.     Else
   
8.         If a = vbNo And b = vbNo Then
   
9.             MsgBox "再见！"
   
10.         Else
    
11.             MsgBox "考虑！"
    
12.         End If
    
13.     End If
    
14. End Sub

复制代码

1.     Dim a As Variant, b As Variant
   
2. 
   
3. reinputID:
   
4.     a = Application.InputBox("请输入账号:", "用户", , , , , , 2)
   
5.     If a = False Then Exit Sub
   
6.     If a = "" Then
   
7.         MsgBox "您所输账号为空，请重新输入"
   
8.      End If
   
9. 
   
10. reinputpwd:
    
11.     b = Application.InputBox("请输入密码:", "密码", , , , , 2)
    
12.     If b = False Then Exit Sub
    
13.     If b = "" Then
    
14.         MsgBox "密码不能为空，请重新输入"
    
15.         GoTo reinputpwd
    
16.     End If
    
17.    
    
18.     If a = "9999" And b = "123" Then
    
19.         MsgBox "登录成功"
    
20.     Else
    
21.         MsgBox "登录失败"
    
22.     End If
    
23.    
    
24. End Sub
    

复制代码

橙桔仔

A15:橙桔仔

相亲

1. Sub 相亲()
   
2.     Dim msg1 As VbMsgBoxResult, msg2 As VbMsgBoxResult
   
3.     msg1 = MsgBox("有房?", vbQuestion + vbYesNo, "提示信息")
   
4.     msg2 = MsgBox("有车?", vbQuestion + vbYesNo, "提示信息")
   
5.     If (msg1 = vbYes) * (msg2 = vbYes) Then MsgBox "领证去吧"
   
6.     If (msg1 = vbYes) * (msg2 = vbNo) Or (msg2 = vbYes) * (msg1 = vbNo) Then MsgBox "让我考虑考虑"
   
7.     If (msg1 = vbNo) * (msg2 = vbNo) Then MsgBox "88"
   
8. End Sub

复制代码

不经意的回头

期中考试到了，一直忙，今天才想起作业还没有交，先交上第1题

1. Sub 相亲()
   
2.     Dim msg As VbMsgBoxResult
   
3.     msg = MsgBox("你有房吗？", vbYesNo, "请回答！")
   
4.     If msg = vbYes Then
   
5.         msg = MsgBox("你有车吗？", vbYesNo, "请回答！")
   
6.         If msg = vbYes Then
   
7.             MsgBox "土豪，让我们做朋友吧！"
   
8.         Else
   
9.             MsgBox "等你有车了再来找我吧~~~"
   
10.         End If
    
11.     Else
    
12.         MsgBox "等有房了再来找我吧：）"
    
13.     End If
    
14. End Sub
    

复制代码

第2题

1. Sub 登录验证()
   
2.     Dim i
   
3. resum: '标记
   
4.     i = Application.InputBox("请输入QQ号码", "登录提示", , , , , , 1)
   
5.     If i = 9999 Then
   
6.         i = Application.InputBox("请输入您的密码", "登录提示", , , , , , 1)
   
7.         If i = 123 Then
   
8.             MsgBox "恭喜你！登录成功！"
   
9.         Else
   
10.             GoTo resum '返回标记
    
11.         End If
    
12.     Else
    
13.         GoTo resum '返回标记
    
14.     End If
    
15. End Sub
    

复制代码

guofei0344

guofei0344 发表于 2015-11-7 14:36

原来是接收的类型错了，之前去掉False的引号后，a等于False就会报错，改了变量后就可以去掉引号了，谢谢老师的指点

雪舞子

作业截止------------------------------------------------------------------------------------------------------------------

denil

denil 发表于 2015-11-10 12:10

参照了同学们的思路，重新写了下。