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

零基础12期-第二课作业贴

  [复制链接]
发表于 2017-11-22 22:31:23 | 显示全部楼层 |阅读模式
本帖最后由 开心妙妙 于 2017-12-4 11:40 编辑

交作业之前先看群文件作业提交说明
回复

使用道具 举报

发表于 2017-11-22 22:56:08 | 显示全部楼层
本帖最后由 salvatore 于 2017-11-23 10:34 编辑
  1. Sub Height()
  2.     Dim Name As String, Height As Integer, Inch As Double
  3.     Name = "李小萌"
  4.     Height = 165
  5.     MsgBox Name & "的身高是 " & Height / 2.54 & "英寸"
  6.    
  7. End Sub
复制代码
  1. Sub Averageage()
  2.     Dim Name1 As String, Name2 As String, Name3 As String
  3.     Dim Age1 As Integer, Age2 As Integer, Age3 As Integer
  4.     Name1 = "王晓红"
  5.     Name2 = "周俊丽"
  6.     Name3 = "吴三胖"
  7.     Age1 = 11
  8.     Age2 = 14
  9.     Age3 = 13
  10.     MsgBox Name1 & "年龄" & Age1 & "岁"
  11.     MsgBox Name2 & "年龄" & Age2 & "岁"
  12.     MsgBox Name3 & "年龄" & Age3 & "岁"
  13.     MsgBox "3个人的平均年龄" & (Age1 + Age2 + Age3) \ 3 & "岁"
  14.       
  15.    
  16. End Sub
复制代码
  1. Sub Second()
  2.     Dim Second As Double, Age As Integer
  3.     Second = 3.156 * 10 ^ 7
  4.     Age = 34
  5.     MsgBox "老张的年龄是" & Second * Age & "秒"

  6. End Sub
复制代码

点评

赞!答题标准规范  发表于 2017-11-23 14:06
回复 支持 反对

使用道具 举报

发表于 2017-11-22 23:02:01 | 显示全部楼层
本帖最后由 huwenjun727 于 2017-11-23 16:09 编辑
  1. '丫头不乖的作业

  2. '作业1
  3. Sub 李小萌身高()
  4.     Dim name As String, height As Integer, inch As Double
  5.     name = "李小萌"
  6.     height = 165
  7.     inch = height / 2.54
  8.     MsgBox name & "的身高是" & inch & "英寸"

  9. End Sub


  10. '作业2
  11. Sub 年龄1()
  12.     Dim name1 As String, name2 As String, name3 As String
  13.     Dim age1 As Integer, age2 As Integer, age3 As Integer, averageage  As Integer
  14.     name1 = "王晓丽"
  15.     name2 = "周俊丽"
  16.     name3 = "吴三胖"
  17.     age1 = 11
  18.     age2 = 14
  19.     age3 = 13
  20.     averageage = (age1 + age2 + age3) / 3
  21.     MsgBox name1 & "的年龄是" & age1
  22.     MsgBox name2 & "的年龄是" & age2
  23.     MsgBox name3 & "的年龄是" & age3
  24.     MsgBox "三个人的平均年龄是" & averageage

  25. End Sub

  26. '作业3
  27. Sub 年龄的秒数1()
  28.     Dim age As Double
  29.     age = 34 * 3.156 * 10 ^ 7
  30.     MsgBox "老张的年龄是" & age & "秒"
  31.    
  32. End Sub
复制代码

点评

代码24行:用整除比较合适,答案标准规范,赞  发表于 2017-11-24 21:12
回复 支持 反对

使用道具 举报

发表于 2017-11-22 23:11:04 | 显示全部楼层
  1. Sub 作业1李小萌的身高()
  2.     Dim xm As String, cm As Integer, yc As Double
  3.     xm = "李小萌"
  4.     cm = 165
  5.     yc = cm / 2.54
  6.     MsgBox xm & "的身高是" & yc & "英寸"
  7.          
  8. End Sub

  9. Sub 作业2求平均年龄()
  10.     Dim n1 As String, n2 As String, n3 As String, y1 As Integer, y2 As Integer, y3 As Integer, pj As Long
  11.     n1 = "王晓红"
  12.     n2 = "周俊丽"
  13.     n3 = "吴三胖"
  14.     y1 = 11
  15.     y2 = 14
  16.     y3 = 13
  17.     pj = (y1 + y2 + y3) \ 3
  18.     MsgBox n1 & "的年龄是" & y1
  19.     MsgBox n2 & "的年龄是" & y2
  20.     MsgBox n3 & "的年龄是" & y3
  21.     MsgBox "3个人的平均年龄是" & pj
  22.    
  23. End Sub

  24. Sub 作业3计算年龄的秒数()
  25.     Dim nl As Long
  26.     nl = 34 * 3.156 * 10 ^ 7
  27.     MsgBox "老张的年龄是" & nl & "秒"
  28.    
  29. End Sub

复制代码

点评

赞!答题标准规范  发表于 2017-11-24 21:13
回复 支持 反对

使用道具 举报

发表于 2017-11-22 23:47:22 | 显示全部楼层
本帖最后由 chymmych 于 2017-11-23 11:30 编辑
  1. <p>Option Explicit</p><p>'1.女生李小萌身高165cm, 已知厘米和英寸的换算规则是英寸=厘米/2.54 编程计算李小萌的身高是多少英寸。
  2. '要求定义一个字符串变量表示姓名
  3. '定义一个什么变量表示身高,定义一个变量表示结果英寸数
  4. '用msgbox 语句和连接字符串的方式显示 李小萌的身高是多少英寸。
  5. Sub ShenGao()
  6.     Dim Name As String, Sg As Integer, Yc As Double
  7.     Name = "李小萌"
  8.     Sg = 165
  9.     Yc = Sg / 2.54
  10.     MsgBox Name & "的身高是" & Yc & "英寸。"
  11. End Sub</p><p>'2.求平均年龄
  12. '定义3个变量存储3 个姓名:王晓红,周俊丽,吴三胖
  13. '再定义3 个变量存储 3 人的年龄,分别是 11,14,13
  14. '用msgbox 语句分别显示 3 个人的年龄
  15. '最后用msgbox 语句显示3个人的平均年龄(要求只要整数)</p><p>Sub age()
  16.   Dim n1 As String, n2 As String, n3 As String
  17.   Dim age1 As Integer, age2 As Integer, age3    As Integer, age4 As Integer
  18.   n1 = "王晓红"
  19.   n2 = "周俊丽"
  20.   n3 = "吴三胖"
  21.   age1 = 11
  22.   age2 = 14
  23.   age3 = 13
  24.   age4 = (age1 + age2 + age3) / 3
  25.   MsgBox n1 & "的年龄是:" & age1 & "岁," & n2 & "的年龄是:" & age2 & "岁," & n3 & "的年龄是:" & age3 & "岁。"
  26.   MsgBox "三人的平均年龄是:" & age4 & "岁。"
  27. End Sub</p><p>
  28. '3. 计算年龄的秒数
  29. '一年大约是3.156 × 10 7 秒,老张今年34 岁
  30. '请使用msgbox 语句输出 老张的年龄是多少秒
  31. Sub M()
  32. Dim n As String, age As Double, Y As Double
  33. n = "老张"
  34. Y = 3.156 * 10 ^ 7
  35. age = Y * 34
  36. MsgBox n & "的年龄是" & age & "秒。"
  37. End Sub



  38. </p>
复制代码

点评

不错,赞!  发表于 2017-11-24 21:13
回复 支持 反对

使用道具 举报

发表于 2017-11-23 08:53:36 | 显示全部楼层
  1. Sub 作业1()
  2. Dim l As String, sg As Integer, yc As Double, 文本 As String
  3.     l = "李小萌" '1、定义一个字符串变量表示姓名
  4.     sg = 165     '2、表示身高
  5.     yc = sg / 2.54  '3、表示结果英寸数
  6.     文本 = "身高"
  7.     MsgBox l & "的" & 文本 & yc & "英寸"
  8. End Sub

  9. Sub 作业2()
  10.   Dim wxh As String, zjl As String, wsp As String, nl4 As Integer
  11.   Dim nl1 As Integer, nl2 As Integer, nl3 As Integer
  12.   wxh = "王晓红"      '定义3个变量存储3 个姓名
  13.   zjl = "周俊丽"      '定义3个变量存储3 个姓名
  14.   wsp = "吴三胖"      '定义3个变量存储3 个姓名
  15.   nl1 = 11            '定义3 个变量存储 3 人的年龄
  16.   nl2 = 14            '定义3 个变量存储 3 人的年龄
  17.   nl3 = 13            '定义3 个变量存储 3 人的年龄
  18.   nl4 = nl1 + nl2 + nl3
  19.   MsgBox wxh & nl1 & zjl & nl2 & wsp & nl3

  20. End Sub
  21. Sub 作业2平均年龄()
  22.   Dim wxh As String, zjl As String, wsp As String, nl4 As Integer
  23.   Dim nl1 As Integer, nl2 As Integer, nl3 As Integer
  24.   wxh = "王晓红"
  25.   zjl = "周俊丽"
  26.   wsp = "吴三胖"
  27.   nl1 = 11
  28.   nl2 = 14
  29.   nl3 = 13
  30.   nl4 = nl1 + nl2 + nl3
  31.   MsgBox "三人平均年龄" & nl4 \ 3

  32. End Sub
  33. Sub 作业3()
  34. Dim nl As Integer, m As Double, mz As String
  35. nl = 34             '定义年龄34
  36. m = 3.156 * 10 ^ 7  '定义一年多少秒
  37. mz = "老张"         '定义名字
  38. MsgBox mz & "的年龄" & nl * m & "秒"

  39. End Sub
复制代码

点评

作业2,用一过程完成即可,不需要分开二个过程  发表于 2017-11-24 21:14
回复 支持 反对

使用道具 举报

发表于 2017-11-23 09:57:32 | 显示全部楼层

  1. '第2课的作业


  2. Sub 第一题()
  3.     Dim 姓名 As String, 身高 As Integer, 英寸 As Double
  4.     姓名 = "李小萌"
  5.     身高 = 165
  6.    
  7.     英寸 = 身高 / 2.54
  8.    
  9.    
  10.     MsgBox 姓名 & "的身高是" & 英寸 & "英寸"
  11.    
  12.    
  13. End Sub


  14. Sub 第二题()
  15.     Dim a As String, b As String, c As String, d As String
  16.    
  17.     Dim e As Integer, f As Integer, g As Integer
  18.    
  19.    
  20.     a = "王晓红"
  21.     b = "周俊丽"
  22.     c = "吴三胖"
  23.     d = "岁"
  24.    
  25.     e = 11
  26.     f = 14
  27.     g = 13
  28.    
  29.     MsgBox a & e & d
  30.     MsgBox b & f & d
  31.     MsgBox c & g & d
  32.    
  33.     MsgBox "3个人的平均年龄是" & (e + f + g) \ 3 & d
  34.    

  35. End Sub

  36. Sub 第三题()
  37.     Dim s1 As String
  38.     Dim i As Long
  39.     s1 = "老张"
  40.     i = 34
  41.     i = i * 3.156 * 10 ^ 7
  42.    
  43.     MsgBox s1 & "的年龄是" & i & "秒"
  44.    
  45. End Sub
复制代码

点评

变量名比较建议用些比较容易识别有意义的名字,这样便于代码的后期维护,不建议用A,B,C这样  发表于 2017-11-24 21:15
回复 支持 反对

使用道具 举报

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

  10. End Sub

  11. '2.求平均年龄
  12. '定义3个变量存储3 个姓名:王晓红,周俊丽,吴三胖
  13. '再定义3 个变量存储 3 人的年龄,分别是 11,14,13
  14. '用msgbox 语句分别显示 3 个人的年龄
  15. '最后用msgbox 语句显示3个人的平均年龄(要求只要整数)
  16. Sub 求平均年龄()
  17. Dim w As String, z As String, ws As String
  18. Dim ww As Integer, zz As Integer, wwa As Integer, a As Integer
  19.     w = "王晓红"
  20.     z = "周俊丽"
  21.     ws = "吴三胖"
  22.     ww = 11
  23.     zz = 14
  24.     wwa = 13
  25.     a = (ww + zz + wwa) / 3
  26.     MsgBox "王晓红的年龄为" & ww & "岁,周俊丽的年龄为" & zz & "岁,吴三胖的年龄为" & wwa & "岁,3个人的平均年龄为" & a & "。"
  27. End Sub

  28. '3. 计算年龄的秒数
  29. '一年大约是3.156 × 10 7 秒,老张今年34 岁
  30. '请使用msgbox 语句输出 老张的年龄是多少秒
  31. Sub 年龄秒数()
  32. Dim b As Long
  33. b = 34 * 3.156 * 10 ^ 7
  34. MsgBox "老张的年龄是" & b & "秒。"
  35. End Sub
复制代码

点评

代码27行:用a = (ww + zz + wwa)\3 整除比较合适,答案标准规范,赞  发表于 2017-11-24 21:15
回复 支持 反对

使用道具 举报

发表于 2017-11-23 10:23:05 | 显示全部楼层
  1. Sub lixiaomengheight()
  2.     Dim n As String, L As String, q As String
  3.         n = "Li Xiaomeng's"
  4.         L = "height is"
  5.         q = "inches"
  6.     Dim i As Integer, j As Double
  7.         i = 165
  8.         j = i / 2.54
  9.     MsgBox n & L & j & q
  10. End Sub
复制代码

点评

不错,赞!  发表于 2017-11-24 21:16
回复 支持 反对

使用道具 举报

发表于 2017-11-23 10:23:42 | 显示全部楼层
  1. Sub averageage()
  2.     Dim n, n1, n2, n3, n4 As String
  3.         n = "'s age"
  4.         n1 = "Wang Xiaohong"
  5.         n2 = "Zhou Junli"
  6.         n3 = "Wu Sanpang"
  7.         n4 = "Their average age is"
  8.     Dim a1, a2, a3, aa As Integer
  9.         a1 = 11
  10.         a2 = 14
  11.         a3 = 13
  12.         aa = (a1 + a2 + a3) \ 3
  13.     MsgBox n1 & n & a1
  14.     MsgBox n2 & n & a2
  15.     MsgBox n3 & n & a3
  16.     MsgBox n4 & aa
  17. End Sub
复制代码

点评

不错,赞!  发表于 2017-11-24 21:16
回复 支持 反对

使用道具 举报

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

本版积分规则

关闭

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

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