6月5/6日 Excel函数实战技巧精粹 300集Office 2010微视频教程
5月7日 Excel VBA开发实战 高效办公必会的Office实战技巧
5月6日 Excel透视表实战秘技 网易云课堂-Excel数据透视表应用大全
Excel数据处理与分析实战技巧第1季
查看: 831|回复: 46

零基础13期-第二课作业

[复制链接]
发表于 2018-3-7 22:07:00 | 显示全部楼层 |阅读模式
本帖最后由 唐伯狼 于 2018-3-15 16:20 编辑

交作业之前先看群文件作业提交说明及本版置顶帖
使用代码形式上交作业
回复

使用道具 举报

发表于 2018-3-7 23:11:36 | 显示全部楼层
  1. Sub VBA13期课时2作业1()
  2.     Dim 姓名 As String, 英寸 As Double, 身高 As Integer
  3.     身高 = 165
  4.     英寸 = 身高 / 2.54
  5.     姓名 = "李萌"
  6.     MsgBox 姓名 & "的身高" & 英寸 & "英寸"
  7. End Sub

  8. Sub VBA13期课时2作业2()
  9.     Dim 姓名 As String, 年龄 As Integer, i As Integer, n As Integer
  10.         n = 0
  11.     For i = 1 To 3
  12.         If i = 1 Then
  13.         姓名 = "王晓红"
  14.         年龄 = 11
  15.         Else
  16.             If i = 2 Then
  17.             姓名 = "周俊丽"
  18.             年龄 = 14
  19.             Else
  20.             姓名 = "吴三胖"
  21.             年龄 = 13
  22.             End If
  23.         End If
  24.         n = n + 年龄
  25.         MsgBox 姓名 & 年龄
  26.     Next
  27.     MsgBox "3人的平均年龄是" & n \ 3
  28. End Sub

  29. Sub VBA13期课时2作业3()
  30.     Dim 老张的年龄 As Integer, 一年秒数 As Single
  31.     老张的年龄 = 34
  32.     一年秒数 = 3.156 * 10 ^ 7
  33.     MsgBox "老张的年龄为" & 老张的年龄 * 一年秒数 & "秒"
  34. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-7 23:13:29 | 显示全部楼层
  1. Sub 题1()
  2.     Dim 姓名 As String, 英寸数 As Double, 身高 As Integer, 英寸 As Double
  3.     姓名 = "李小萌"
  4.     身高 = 165
  5.     英寸 = 2.54
  6.     英寸数 = 身高 / 英寸
  7.     MsgBox 姓名 & "的身高" & 英寸数 & "英寸"  
  8. End Sub


  9. Sub 题2()
  10.     Dim n1 As String, n2 As String, n3 As String
  11.     Dim a1 As Integer, a2 As Integer, a3 As Integer
  12.     n1 = "王晓红"
  13.     n2 = "周俊丽"
  14.     n3 = "吴三胖"
  15.     a1 = 11
  16.     a2 = 14
  17.     a3 = 13
  18.     MsgBox n1 & a1 & "岁"
  19.     MsgBox n2 & a2 & "岁"
  20.     MsgBox n3 & a3 & "岁"
  21.         Dim 平均年龄 As Integer
  22.         平均年龄 = (a1 + a2 + a3) \ 3
  23.         MsgBox "3个人的平均年龄是" & 平均年龄 & "岁"
  24. End Sub

  25. Sub 题3()
  26.     Dim 一年 As Long, 多少秒 As Long
  27.     一年 = 3.156 * 10 ^ 7
  28.     多少秒 = 一年 * 34
  29.     MsgBox "老张的年龄是" & 多少秒 & "秒"
  30. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-7 23:21:00 | 显示全部楼层
  1. Option Explicit

  2. Sub 李小萌的身高是多少英寸()

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

  10. Sub 求平均年龄()
  11.     Dim 姓名 As String, 年龄 As Integer, 平均年龄 As Double
  12.       
  13.     姓名 = "王晓红"
  14.     年龄 = "11"
  15.     MsgBox "姓名:" & 姓名 & ";年龄" & 年龄 & "岁"
  16.     姓名 = "周俊丽"
  17.     年龄 = "14"
  18.     MsgBox "姓名:" & 姓名 & ";年龄" & 年龄 & "岁"
  19.     姓名 = "吴三胖"
  20.     年龄 = "13"
  21.     MsgBox "姓名:" & 姓名 & ";年龄" & 年龄 & "岁"
  22.     平均年龄 = (11 + 14 + 13) \ 3
  23.     MsgBox "平均年龄" & 平均年龄
  24.    
  25. End Sub

  26. Sub 计算年龄的秒数()
  27.    
  28.     Dim 年龄 As Integer, 一年的秒数 As Long, 姓名 As String
  29.     年龄 = 34
  30.     一年的秒数 = 3.156 * 10 ^ 7
  31.     姓名 = "老张"
  32.     MsgBox 姓名 & "的年龄是" & 年龄 * 一年的秒数 & "秒"
  33.    
  34. End Sub
复制代码


点评

身高是整形 “165” 这样写是文本  发表于 2018-3-14 22:05
回复 支持 反对

使用道具 举报

发表于 2018-3-8 00:59:18 | 显示全部楼层
  1. '李小萌的身高是多少英寸
  2. Sub 李小萌的身高是多少英寸()

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


  14. '求平均年龄
  15. Sub 求平均年龄()
  16.    
  17.    
  18.     Dim 姓名1 As String, 姓名2 As String, 姓名3 As String
  19.    
  20.     Dim 年龄1 As Integer, 年龄2 As Integer, 年龄3 As Integer
  21.    
  22.     姓名1 = "王晓红"
  23.     姓名2 = "周俊丽"
  24.     姓名3 = "吴三胖"
  25.    
  26.      年龄1 = 11
  27.      
  28.      年龄2 = 14
  29.      年龄3 = 13
  30.      
  31.    
  32.    
  33.     MsgBox 姓名1 & 年龄1 & "岁"
  34.     MsgBox 姓名2 & 年龄2 & "岁"
  35.     MsgBox 姓名2 & 年龄2 & "岁"
  36.    
  37.    
  38.     MsgBox "三人平均年龄:" & (年龄1 + 年龄2 + 年龄3) \ 3 & "岁"
  39.    
  40.    
  41. End Sub


  42. '老张的年龄是多少秒
  43. Sub 老张的年龄是多少秒()

  44. Dim 姓名 As String, 年龄 As Double

  45. 姓名 = "老张"
  46. 年龄 = 34
  47.    
  48.     MsgBox 姓名 & "的年龄" & 年龄 * 3.156 * 10 ^ 7 & "秒 "
  49. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-8 06:01:20 | 显示全部楼层
本帖最后由 叶舞冷清秋 于 2018-3-15 06:01 编辑
  1. Sub 李小萌()
  2.     Dim 姓名 As String, 身高 As Integer, 英寸 As Double
  3.     姓名 = "李小萌"
  4.     身高 = 165
  5.     英寸 = 身高 / 2.54
  6.     MsgBox 姓名 & "的身高是" & 英寸 & "英寸"

  7. End Sub

  8. Sub old()
  9.     Dim name1 As String, name2 As String, name3 As String, old1 As Integer, old2 As Integer, old3 As Integer, av As Integer
  10.     name1 = "王晓红"
  11.     name2 = "周俊丽"
  12.     name3 = "吴三胖"
  13.     old1 = 11
  14.     old2 = 14
  15.     old3 = 13
  16.     av = (old1 + old2 + old3) \ 3
  17.     MsgBox name1 & "的年龄是" & old1 & "," & name2 & "的年龄是" & old2 & "," & name3 & "的年龄是" & old3
  18.     MsgBox "三人的平均年龄是" & av
  19. End Sub
  20. Sub 秒()
  21.     Dim 秒 As Long
  22.     秒 = 3.156 * 10 ^ 7 * 34
  23.     MsgBox "老张的年龄是" & 秒 & "秒"
  24. End Sub
复制代码

  


回复 支持 反对

使用道具 举报

发表于 2018-3-8 07:40:27 | 显示全部楼层
本帖最后由 selfecho 于 2018-3-9 09:59 编辑
  1. Sub 作业1()
  2.     Dim 姓名 As String, 厘米 As Integer, 英寸数 As Double
  3.    
  4.     姓名 = "李小萌"
  5.     厘米 = 165
  6.     英寸数 = 厘米 / 2.54
  7.    
  8.     MsgBox 姓名 & "的身高是" & 英寸数 & "英寸"

  9. End Sub


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


  28. Sub 作业3()
  29.     Dim 秒数 As Double
  30.     秒数 = 3.156 * 10 ^ 7 * 34
  31.     MsgBox "老张的年龄是" & 秒数 & "秒"
  32. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-8 09:15:42 | 显示全部楼层
本帖最后由 zf5345 于 2018-3-8 09:16 编辑

Option Explicit

Sub 李小萌的身高()
Dim 姓名 As String, 身高cm As Integer, 英寸数 As Double
姓名 = "李小萌"
身高cm = 165
英寸数 = 身高cm / 2.54
MsgBox 姓名 & "的身高是:" & 英寸数 & "英寸"
End Sub

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

'
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 & "岁"
MsgBox 姓名2 & "的年龄是:" & 年龄2 & "岁"
MsgBox 姓名3 & "的年龄是:" & 年龄3 & "岁"
MsgBox "他们三个人的平均年龄是:" & (年龄1 + 年龄2 + 年龄3) \ 3 & "岁"
End Sub

'2.求平均年龄
'定义3个变量存储3 个姓名:王晓红,周俊丽,吴三胖
'再定义3 个变量存储 3 人的年龄,分别是 11,14,13
'用msgbox 语句分别显示 3 个人的年龄
'最后用msgbox 语句显示3个人的平均年龄(要求只要整数)
'提示: 用整除运算符
'


Sub 计算年龄的秒数()
Dim 一年的秒数 As Long
一年的秒数 = 3.156 * 10 ^ 7
MsgBox "老张的年龄34岁是" & 一年的秒数 * 34 & "秒"
End Sub

'3. 计算年龄的秒数
'一年大约是3.156 × 10^7 秒,老张今年34 岁
'请使用msgbox 语句输出 老张的年龄是多少秒
回复 支持 反对

使用道具 举报

发表于 2018-3-8 09:47:29 | 显示全部楼层
本帖最后由 ejijier 于 2018-3-8 10:04 编辑
  1. Sub 作业第1题()
  2.     Dim 姓名 As String
  3.     Dim 身高 As Integer
  4.     Dim 结果 As Double
  5.     姓名 = "李小萌"
  6.     身高 = 165
  7.     结果 = 身高 / 2.54
  8.     MsgBox 姓名 & "的身高" & 结果 & "英寸"
  9.    
  10. End Sub


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

  29. Sub 作业第3题()
  30.     Dim 年龄 As Long
  31.     年龄 = 3.156 * 10 ^ 7 * 34
  32.     MsgBox "老张的年龄是" & 年龄 & "秒"
  33. End Sub
复制代码


回复 支持 反对

使用道具 举报

发表于 2018-3-8 09:47:48 | 显示全部楼层
本帖最后由 poim 于 2018-3-8 09:52 编辑
  1. Option Explicit

  2. Sub 求李小萌身高是多少英寸()
  3.    
  4.     Dim 姓名 As String, 身高 As Integer, 英寸数 As Integer '为了不让数字有过多的小数点,所以此处使用了整数类型,没有使用小数类型double
  5.     姓名 = "李小萌"
  6.     身高 = 165
  7.     英寸数 = 身高 / 2.54
  8.     MsgBox 姓名 & "的身高" & 英寸数 & "英寸"
  9. End Sub



  10. Sub 求平均年龄()
  11.    
  12.     Dim name1 As String, name2 As String, name3 As String, nl1 As Integer, nl2 As Integer, nl3 As Integer, 平均年龄 As Integer '年龄取整,平均年龄使用整数类型
  13.    
  14.     name1 = "王晓红"
  15.     name2 = "周俊丽"
  16.     name3 = "吴三胖"
  17.    
  18.     nl1 = 11
  19.     nl2 = 14
  20.     nl3 = 13
  21.    
  22.     MsgBox "姓名:" & name1 & ";年龄:" & nl1 & "岁"
  23.     MsgBox "姓名:" & name2 & ";年龄:" & nl2 & "岁"
  24.     MsgBox "姓名:" & name3 & ";年龄:" & nl3 & "岁"
  25.    
  26.     平均年龄 = (nl1 + nl2 + nl3) / 3
  27.     MsgBox "平均年龄" & 平均年龄
  28.    
  29. End Sub


  30. Sub 计算年龄的秒数()
  31.    
  32.     Dim 姓名 As String, 一年的秒数 As Long, 年龄 As Integer
  33.    
  34.     姓名 = "老张"
  35.     一年的秒数 = 3.156 * 10 ^ 7
  36.     年龄 = 34
  37.    
  38.     MsgBox 姓名 & "的年龄是" & 一年的秒数 * 年龄 & "秒"
  39.    
  40. End Sub
复制代码
昨晚作业写的不好,重新写了一份
回复 支持 反对

使用道具 举报

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

本版积分规则

关闭

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

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