12月19/20日 财务会计玩转Excel 300集Office 2010微视频教程
12月22/23日 7天Excel脱白 高效办公必会的Office实战技巧
11月28日 Excel图表之美 网易云课堂-Excel数据透视表应用大全
Excel数据处理与分析实战技巧第1季
查看: 96|回复: 0

第3课、第4课作业贴

[复制链接]
发表于 2017-12-1 18:15:26 | 显示全部楼层 |阅读模式
作业2 定义一个日期型变量为你的生日,用inputbox 语句输入生日
'已经提示了做法,要求输出你出生之后已经生活了多少天了
'要下面的结果,在作业2 后面完成
' "自从您出世以来已经过了 xxx 天了。"
'Bif Cate 强制将输入的值转换成为日期时间型
Sub 生日()
   
    Dim birthday As Date, B As Long
        birthday = CDate(InputBox("请输入你的生日。"))
        B = Date - birthday
    MsgBox "自从你出世以来已经过了" & B & "天"
End Sub



'作业1: 张三的语文成绩大于等于90分并且音乐成绩大于等于80分 或者 语文等于100 分,
'音乐大于等于70 分 则奖励 100 元。
Sub 学习奖励()
    Dim A As Long, B As Long
        A = InputBox("张三的语文成绩:")
        B = InputBox("张三的音乐成绩:")
    If (A >= 90 And B >= 80 Or A = 100 And B >= 70) Then
        MsgBox "奖励100元"
   
    End If
End Sub


'作业2: 已知两个数,如果a 能被b 整除 或者 a+b >100 就输出 a 否则就输出 b
' a/b 没有余数
Sub 判断整除()
    Dim A As Long, B As Long
        A = InputBox("请输入数据a")
        B = InputBox("请输入数据b")
    If (A Mod B Or A + B > 100) Then
        MsgBox A
    Else
        MsgBox B
    End If
End Sub


'作业3: 提示输入用户名,如果用户名不等于 “小明”, 就提示用户名不存在 。
'否则提示输入密码: 如果密码不等于”888888”, 则提示密码错误,登录失败。
'否则提示登录成功
    Sub 密码输入()
   
    Dim A As String, B As Long
        A = InputBox("请输入用户名")
    If (A = "小明") Then
        B = InputBox("请输入密码")
    If (B <> 888888) Then
        MsgBox "密码错误,登录失败"
    Else
        MsgBox "登录成功"
    End If
   
    ElseIf (A <> "小明") Then
        MsgBox "用户名不存在"
    End If
   
    End Sub


'作业4: 年终评定,绩效工资,如果评定为A 每月工资加500,如果为B 每月工资加200
'如果为C 不变,如果为D 降薪200 如果为E 降薪500。李四基本工资为5000,根据评
'定计算他来年的工资。用 Select Case
Sub 年终评定()
    Dim y As Long, z As String
        y = 5000
        z = InputBox("请进行评级")
    If (z = "A") Then
        MsgBox "你来年每月的工资是" & y + 500
    ElseIf (z = "B") Then
        MsgBox "你来年每月的工资是" & y + 200
    ElseIf (z = "C") Then
        MsgBox "你来年每月的工资是" & y
    ElseIf (z = "D") Then
        MsgBox "你来年每月的工资是" & y - 200
    ElseIf (z = "E") Then
        MsgBox "你来年每月的工资是" & y - 500
    Else
        MsgBox "评级输入不符合规定"
    End If
End Sub


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 入学

本版积分规则

关闭

站长推荐上一条 /2 下一条

快速回复 返回顶部 返回列表