白话Excel函数公式 Office易学宝微视频教程合集(Excel+Word+PPT)
笨办法学VBA(从入门到精通) 高效办公必会的Office实战技巧
财务总监的Excel私房课 Excel数据透视表实战秘技
Excel图表神技
楼主: 唐伯狼

零基础13期-第二课作业

[复制链接]
发表于 2018-3-11 19:24:36 | 显示全部楼层
  1. Sub 李小萌()
  2.     Dim 姓名 As String, 数量词 As Double
  3.     姓名 = "李小萌"
  4.     数量词 = 160 / 2.54
  5.     MsgBox 姓名 & "的身高" & 数量词 & "英寸"
  6. End Sub

  7. Sub 姓名()
  8.     Dim 姓名A As String, 姓名B As String, 姓名C As String, 年龄A As Integer, 年龄B As Integer, 年龄C As Integer
  9.     姓名A = "王晓红"
  10.     姓名B = "周俊丽"
  11.     姓名C = "吴三胖"
  12.     年龄A = 11
  13.     年龄B = 14
  14.     年龄C = 13
  15.     MsgBox 姓名A & 年龄A & "岁"
  16.     MsgBox 姓名B & 年龄B & "岁"
  17.     MsgBox 姓名C & 年龄C & "岁"
  18.     MsgBox "平均年龄为" & (年龄A + 年龄B + 年龄C) \ 3 & "岁"
  19. End Sub

  20. Sub 计算年龄()
  21.     Dim 年度折算秒 As Double, 岁数 As Long
  22.     年度折算秒 = 3.156 * 10 ^ 7
  23.     岁数 = 34
  24.     MsgBox 年度折算秒 * 岁数
  25.     End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-11 21:06:42 | 显示全部楼层
Sub 身高显示()
    Dim 姓名 As String, 英寸数 As Double
    姓名 = "李晓萌"
    英寸数 = 165 / 2.54
    MsgBox 姓名 & "的身高是" & 英寸数 & "英寸"
   
End Sub


Sub 年龄显示()

    Dim 姓名1 As String, 姓名2 As String, 姓名3 As String
    姓名1 = "王晓红"
    姓名2 = "周俊丽"
    姓名3 = "吴三胖"
    Dim 年龄1 As Integer, 年龄2 As Integer, 年龄3 As Integer
    年龄1 = 11
    年龄2 = 14
    年龄3 = 13
    MsgBox 姓名1 & 年龄1 & "岁," & 姓名2 & 年龄2 & "岁," & 姓名3 & 年龄3 & "岁。"
    Dim 平均年龄 As Integer
    平均年龄 = (11 + 14 + 13) \ 3
    MsgBox "三人的平均年龄是" & 平均年龄
   
   
End Sub
   
Sub 年龄是多少秒()

    Dim 年龄 As Double
    年龄 = 3.156 * 34 * 10 ^ 7
    MsgBox "老张的年龄是" & 年龄 & "秒"
   
   
     
    End Sub
   
   
回复 支持 反对

使用道具 举报

发表于 2018-3-11 23:08:08 | 显示全部楼层
  1. '第2课 2.求平均年龄
  2. '定义3个变量存储3 个姓名:王晓红,周俊丽,吴三胖
  3. '再定义3 个变量存储 3 人的年龄,分别是 11,14,13
  4. '用msgbox 语句分别显示 3 个人的年龄
  5. '最后用msgbox 语句显示3个人的平均年龄(要求只要整数)
  6. '提示: 用整除运算符

  7. Sub 平均年龄求整()
  8.     Dim 姓名1 As String * 3, 姓名2 As String * 3, 姓名3 As String * 3
  9.     Dim 年龄1 As Integer, 年龄2 As Integer, 年龄3 As Integer, 平均年龄 As Byte
  10.     姓名1 = "王晓红"
  11.     姓名2 = "周俊丽"
  12.     姓名3 = "吴三胖"
  13.     年龄1 = 11
  14.     年龄2 = 14
  15.     年龄3 = 13
  16.     MsgBox 姓名1 & 年龄1 & "岁"
  17.     MsgBox 姓名2 & 年龄2 & "岁"
  18.     MsgBox 姓名3 & 年龄3 & "岁"
  19.     平均年龄 = (年龄1 + 年龄2 + 年龄3) \ 3
  20.     MsgBox "平均年龄 = " & 平均年龄 & "岁"
  21. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-11 23:08:43 | 显示全部楼层
  1. '第2课 3. 计算年龄的秒数
  2. '一年大约是3.156 × 10^7 秒,老张今年34 岁
  3. '请使用msgbox 语句输出 老张的年龄是多少秒

  4. Sub 计算年龄的秒数()
  5. Dim 年龄秒数 As Long
  6. 年龄秒数 = 3.156 * 10 ^ 7 * 34
  7. MsgBox "老张的年龄是 " & 年龄秒数 & "秒"
  8. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-11 23:19:45 | 显示全部楼层
  1. '第2课 1.女生李小萌身高165cm, 已知厘米和英寸的换算规则是英寸=厘米/2.54
  2. '编程计算李小萌的身高是多少英寸?
  3. '要求定义一个字符串变量表示姓名
  4. 'dim 姓名 as
  5. '定义一个什么变量表示身高,定义一个变量表示结果英寸数
  6. '用msgbox 语句和连接字符串的方式显示 李小萌的身高是多少英寸。
  7. 'MsgBox 姓名 & "的身高" & 英寸数 & "英寸"

  8. Sub 英寸计量身高()
  9.     Dim 姓名 As String * 3, 厘米身高 As Integer, 英寸身高 As Single
  10.     姓名 = "李小萌"
  11.     厘米身高 = 165
  12.     英寸身高 = Round(厘米身高 / 2.54, 2) '保留两位小数
  13.     MsgBox 姓名 & 英寸身高 & "英寸"
  14. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-11 23:23:49 | 显示全部楼层
  1. Sub 作业1()
  2.     Dim 姓名 As String
  3.     姓名 = "李小萌"
  4.     Dim 身高 As Integer
  5.     身高 = 165
  6.     Dim yc As Double
  7.     yc = 身高 / 2.54
  8.     MsgBox 姓名 & "的身高" & yc & "英寸"
  9. End Sub
  10. Sub 作业2()
  11.     Dim xm1 As String, xm2 As String, xm3 As String
  12.     xm1 = "王晓红"
  13.     xm2 = "周俊丽"
  14.     xm3 = "吴三胖"
  15.     Dim nl1 As Integer, nl2 As Integer, nl3 As Integer
  16.     nl1 = 11
  17.     nl2 = 14
  18.     nl3 = 13
  19.     MsgBox xm1 & nl1 & "岁"
  20.     MsgBox xm2 & nl2 & "岁"
  21.     MsgBox xm3 & nl3 & "岁"
  22.     MsgBox "3人的平均年龄为" & (nl1 + nl2 + nl3) \ 3
  23. End Sub
  24. Sub 作业3()
  25.     Dim nl As Double
  26.     nl = 34
  27.     MsgBox "老张的年龄是" & nl * (3.156 * 10 ^ 7) & "秒"
  28. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-12 00:27:42 | 显示全部楼层

  1. '1.女生李小萌身高165cm, 已知厘米和英寸的换算规则是英寸=厘米/2.54
  2. '编程计算李小萌的身高是多少英寸?
  3. '要求定义一个字符串变量表示姓名
  4. 'dim 姓名 as
  5. '定义一个什么变量表示身高,定义一个变量表示结果英寸数
  6. '用msgbox 语句和连接字符串的方式显示 李小萌的身高是多少英寸。
  7. 'MsgBox 姓名 & "的身高" & 英寸数 & "英寸"

  8. Sub 李小萌的身高()
  9.     Dim 姓名 As String, 厘米 As Integer, 英寸 As Double
  10.     姓名 = "李小萌"
  11.     厘米 = 165
  12.     英寸 = 厘米 / 2.54
  13.     MsgBox 姓名 & "的身高" & 英寸 & "英寸"
  14. End Sub
  15. =========================
  16. '2.求平均年龄
  17. '定义3个变量存储3 个姓名:王晓红,周俊丽,吴三胖
  18. '再定义3 个变量存储 3 人的年龄,分别是 11,14,13
  19. '用msgbox 语句分别显示 3 个人的年龄
  20. '最后用msgbox 语句显示3个人的平均年龄(要求只要整数)
  21. '提示: 用整除运算符
  22. Sub 平均年龄()
  23.     Dim 姓名1 As String, 姓名2 As String, 姓名3 As String, 年龄1 As Integer, 年龄2 As Integer, 年龄3 As Integer, 平均年龄 As Integer
  24.     姓名1 = "王晓红"
  25.     姓名2 = "周俊丽"
  26.     姓名3 = "吴三胖"
  27.     年龄1 = 11
  28.     年龄2 = 14
  29.     年龄3 = 13
  30.     平均年龄 = (年龄1 + 年龄2 + 年龄3) \ 3
  31.     MsgBox 姓名1 & "的年龄" & 年龄1
  32.     MsgBox 姓名2 & "的年龄" & 年龄2
  33.     MsgBox 姓名3 & "的年龄" & 年龄3
  34.     MsgBox "三人的平均年龄" & 平均年龄
  35. End Sub
  36. =========================
  37. '3. 计算年龄的秒数
  38. '一年大约是3.156 × 10^7 秒,老张今年34 岁
  39. '请使用msgbox 语句输出 老张的年龄是多少秒
  40. Sub 老张的年龄()
  41.     Dim 姓名 As String, 年龄 As Long
  42.    
  43.     姓名 = "老张"
  44.     年龄 = 3.156 * 10 ^ 7 * 34
  45.     MsgBox 姓名 & "的年龄是" & 年龄 & "秒"
  46. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-12 22:22:10 | 显示全部楼层
  1. Sub 第一题()
  2.     Dim 姓名 As String, 身高 As Double, 英寸数 As Double   '声明变量
  3.     姓名 = "李小萌"   '赋值“李小萌”给变量 姓名
  4.     身高 = 165   '赋值 165 给变量 身高
  5.     英寸数 = 身高 / 2.54   '计算变量 英寸数
  6.     MsgBox 姓名 & "的身高是" & 英寸数 & "英寸"   '输出

  7. End Sub
复制代码

  1. Sub 第二题()
  2.     Dim 姓名1 As String, 姓名2 As String, 姓名3 As String   '声明变量
  3.     姓名1 = "王晓红"   '赋值文本
  4.     姓名2 = "周俊丽"   '赋值文本
  5.     姓名3 = "吴三胖"   '赋值文本
  6.     Dim 年龄1 As Integer, 年龄2 As Integer, 年龄3 As Integer   '声明变量
  7.     年龄1 = 11   '赋值数字
  8.     年龄2 = 14   '赋值数字
  9.     年龄3 = 13   '赋值数字
  10.     MsgBox 姓名1 & "的年龄是" & 年龄1   '输出
  11.     MsgBox 姓名2 & "的年龄是" & 年龄2   '输出
  12.     MsgBox 姓名3 & "的年龄是" & 年龄3   '输出
  13.     MsgBox 姓名1 & "、" & 姓名2 & "、" & 姓名3 & "的平均年龄是" & (年龄1 + 年龄2 + 年龄3) \ 3   '计算并输出平均年龄

  14. End Sub
复制代码

  1. Sub 第三题()
  2.     MsgBox "老张的年龄是" & 34 * 3.156 * 10 ^ 7 & "秒"

  3. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-13 08:32:03 | 显示全部楼层
  1. Sub 李小萌身高()

  2.     Dim 姓名 As String, 英寸数 As Double, 身高 As Integer
  3.    
  4.     姓名 = "李小萌"
  5.     身高 = 165
  6.     英寸数 = 身高 / 2.54
  7.    
  8.     MsgBox 姓名 & "的身高是" & 英寸数 & "英寸"

  9. End Sub

  10. Sub 年龄()

  11.     Dim 姓名1 As String, 姓名2 As String, 姓名3 As String
  12.     Dim 年龄1 As Integer, 年龄2 As Integer, 年龄3 As Integer
  13.     Dim 平均年龄 As Double
  14.    
  15.     姓名1 = "王晓红"
  16.     姓名2 = "周俊丽"
  17.     姓名3 = "吴三胖"
  18.     年龄1 = 11
  19.     年龄2 = 14
  20.     年龄3 = 13
  21.     平均年龄 = (年龄1 + 年龄2 + 年龄3) \ 3
  22.     MsgBox 姓名1 & 年龄1
  23.     MsgBox 姓名2 & 年龄2
  24.     MsgBox 姓名3 & 年龄3
  25.     MsgBox "三个人的平均年龄是" & 平均年龄
  26.    
  27. End Sub

  28. Sub 年龄的秒数()

  29.     Dim 年龄 As Long
  30.    
  31.     年龄 = 3.156 * 34 * 10 * 10 * 10 * 10 * 10 * 10 * 10
  32.    
  33.     MsgBox "老张的年龄是" & 年龄 & "秒"

  34. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-13 08:34:27 | 显示全部楼层

输入10^7,就会报错,显示“编译错误,缺少:语句结束”

点评

两侧加空格  发表于 2018-3-14 22:08
回复 支持 反对

使用道具 举报

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

本版积分规则

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