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

零基础13期-第二课作业

[复制链接]
发表于 2018-3-8 10:29:59 | 显示全部楼层
第二课作业
  1. Option Explicit

  2. Sub 作业1()
  3.     Dim name As String
  4.     Dim height1 As Integer
  5.     Dim height2 As Double

  6.     name = "李小萌"
  7.     height1 = 165
  8.     height2 = height1 / 2.54
  9.     MsgBox name & "的身高是" & height2 & "英寸"

  10. End Sub
复制代码
  1. Sub 作业2()
  2.     Dim name1 As String
  3.     Dim name2 As String
  4.     Dim name3 As String
  5.     Dim age1 As Integer
  6.     Dim age2 As Integer
  7.     Dim age3 As Integer

  8.     name1 = "王晓红"
  9.     name2 = "周俊丽"
  10.     name3 = "吴三胖"
  11.     age1 = 11
  12.     age2 = 14
  13.     age3 = 13

  14.     MsgBox name1 & "的年龄是" & age1 & "岁"
  15.     MsgBox name2 & "的年龄是" & age2 & "岁"
  16.     MsgBox name3 & "的年龄是" & age3 & "岁"
  17.     MsgBox "3个人的平均年龄是" & (age1 + age2 + age3) \ 3 & "岁"

  18. End Sub
复制代码
  1. Sub 作业3()
  2.     Dim age As Integer
  3.     Dim unit As Double
  4.    
  5.     unit = 3.156 * 10 ^ 7
  6.     age = 34
  7.     MsgBox "老张的年龄是" & age * unit & "秒"
  8.    
  9. End Sub
复制代码




回复 支持 反对

使用道具 举报

发表于 2018-3-8 16:49:11 | 显示全部楼层
Sub homework1()

   
Dim name As String, height As Double
   
         name = "李小萌"
         height = 165 / 2.54
         
         MsgBox name & "的身高是" & height & "英寸"
         
End Sub


Sub homework2()
   
    Dim n1 As String, n2 As String, n3 As String, a1 As Long, a2 As Long, a3 As Long
    Dim average As Long
   
    n1 = "王晓红"
    n2 = "周俊丽"
    n3 = "吴三胖"
    a1 = 11
    a2 = 14
    a3 = 13
    MsgBox n1 & "的年龄是" & a1 & "岁"
    MsgBox n2 & "的年龄是" & a2 & "岁"
    MsgBox n3 & "的年龄是" & a3 & "岁"
   
    average = (a1 + a2 + a3) \ 3
   
    MsgBox "三个人的平均年龄是" & average & "岁"
   
   
End Sub

Sub homework3()
    Dim year As Long, age As Long, second As Long
   
    year = 3.156 * 10 ^ 7
    age = 34
    second = year * age
   
    MsgBox "老张的年龄是" & second & "秒"
End Sub
回复 支持 反对

使用道具 举报

发表于 2018-3-8 20:22:01 | 显示全部楼层
Sub 李小萌身高()
Dim 姓名 As String, 身高 As Integer, 英寸 As Double

姓名 = "李小萌"

身高 = 165

英寸 = 身高 / 2.54

MsgBox 姓名 & "的身高是" & 英寸 & "英寸"


End Sub

Sub 平均年龄()

Dim 姓名1 As String, 姓名2 As String, 姓名3 As String, 年龄1 As Integer, 年龄2 As Integer, 年龄3 As Integer, 平均年龄 As Integer

姓名1 = "王晓红"
姓名2 = "周俊丽"
姓名3 = "吴三胖"
年龄1 = 11
年龄2 = 14
年龄3 = 13

总年龄 = 年龄1 + 年龄2 + 年龄3
平均年龄 = 总年龄 \3

MsgBox 姓名1 & "的年龄是" & 年龄1

MsgBox 姓名2 & "的年龄是" & 年龄2

MsgBox 姓名3 & "的年龄是" & 年龄3

MsgBox "3个人的" & "平均年龄为" & 平均年龄

End Sub

Sub 计算年龄的秒数()

Dim 年秒 As Double, 年龄 As Integer
年秒 = 3.156 * 10 ^ 7
年龄 = 34
总秒 = 年秒 * 年龄

MsgBox "老张的年龄是" & 总秒 & "秒"

End Sub
回复 支持 反对

使用道具 举报

发表于 2018-3-8 20:48:15 | 显示全部楼层
  1. Option Explicit

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

  13. End Sub

  14. Sub 年龄运算()

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

  40. End Sub

  41. Sub 计算年龄的秒数()

  42.      Dim 一年大约秒数 As Long
  43.      Dim 姓名 As String
  44.      Dim 年龄 As Integer
  45.      Dim 年龄多少秒 As Long
  46.      
  47.      一年大约秒数 = 3.156 * 10 ^ 7
  48.      姓名 = "老张"
  49.      年龄 = 34
  50.      
  51.      年龄多少秒 = 一年大约秒数 * 年龄
  52.      
  53.      MsgBox 姓名 & "的年龄是" & 年龄多少秒 & "秒"
  54.      
  55. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-8 21:25:04 | 显示全部楼层
Option Explicit

Sub 李小萌的身高()
    Dim 姓名 As String, 身高 As String
    姓名 = "李小萌"
    身高 = "165\2.54"
    MsgBox 姓名 & "的身高" & 身高 & "英寸"
   
   
End Sub


Sub 三个人的平均年龄()
    Dim 王晓红 As Integer, 周俊丽 As Integer, 吴三群 As Integer
    王晓红 = 11
    周俊丽 = 14
    吴三群 = 13
    MsgBox (王晓红 + 周俊丽 + 吴三群) \ 3

End Sub



Sub 老张的年龄()
    Dim 姓名 As String, 年龄 As Long
    姓名 = "老张"
    年龄 = 34 * 3.156 * 10 ^ 7
    MsgBox 姓名 & "的年龄" & 年龄
End Sub
回复 支持 反对

使用道具 举报

发表于 2018-3-8 21:25:16 | 显示全部楼层
  1. Option Explicit
  2. Sub 李小萌的身高()
  3.         Dim 姓名 As String
  4.         Dim 身高 As Integer
  5.         Dim 英寸 As Double
  6.         姓名 = "李小萌"
  7.         身高 = 165
  8.         英寸 = Round(身高 / 2.54, 2)
  9.         MsgBox 姓名 & "的身高是" & 英寸 & "英寸"
  10. End Sub


  11. Sub 三人的平均年龄()
  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.         Dim 平均年龄 As Integer
  19.         姓名1 = "王晓红"
  20.         姓名2 = "周俊丽"
  21.         姓名3 = "吴三胖"
  22.         年龄1 = 11
  23.         年龄2 = 14
  24.         年龄3 = 13
  25.         平均年龄 = (年龄1 + 年龄2 + 年龄3) / 3
  26.         MsgBox "3个人的平均年龄是" & 平均年龄 & "岁"
  27.    
  28. End Sub


  29. Sub 老张的年龄()
  30.         Dim 一年的秒数 As Long
  31.         Dim 老张岁数 As Integer
  32.         Dim 老张年龄的秒数 As Long
  33.         一年的秒数 = 3.156 * 10 ^ 7
  34.         老张岁数 = 34
  35.         老张年龄的秒数 = 一年的秒数 * 老张岁数
  36.         MsgBox "老张的年龄是" & 老张年龄的秒数 & "秒"
  37.         
  38. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-8 21:46:32 | 显示全部楼层
Option Explicit

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

End Sub

Sub 年龄运算()

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

End Sub

Sub 计算年龄的秒数()

     Dim 一年大约秒数 As Long
     Dim 姓名 As String
     Dim 年龄 As Integer
     Dim 年龄多少秒 As Long
     
     一年大约秒数 = 3.156 * 10 ^ 7
     姓名 = "老张"
     年龄 = 34
     
     年龄多少秒 = 一年大约秒数 * 年龄
     
     MsgBox 姓名 & "的年龄是" & 年龄多少秒 & "秒"
     
End Sub
回复 支持 反对

使用道具 举报

发表于 2018-3-8 22:09:02 | 显示全部楼层
  1. Sub 李小萌的身高()

  2.     Dim 姓名 As String, 身高 As Integer
  3.    
  4.     姓名 = "李小萌" '字符串格式赋值必须带双引号
  5.     身高 = 165
  6.     身高 = 身高 \ 2.54 '整除符号\
  7.    
  8.     MsgBox 姓名 & "的身高是" & 身高 & "英寸" '连接符&前后要有空格

  9. End Sub


  10. Sub 李小萌的身高()

  11.     Dim 姓名 As String, 身高 As Double '改变变量类型
  12.    
  13.     姓名 = "李小萌" '字符串格式赋值必须带双引号
  14.     身高 = 165
  15.     身高 = 身高 / 2.54 '改变运算规则
  16.    
  17.     MsgBox 姓名 & "的身高是" & 身高 & "英寸" '连接符&前后要有空格

  18. End Sub


  19. 问题:如何保留几位小数形式去显示结果。



  20. Sub 平均年龄()

  21.     Dim 姓名1 As String, 姓名2 As String, 姓名3 As String, 年龄1 As Integer, 年龄2 As Integer, 年龄3 As Integer, 平均年龄 As Integer
  22.     '如何下拉过长语句?
  23.     姓名1 = "王晓红"
  24.     姓名2 = "周俊丽"
  25.     姓名3 = "吴三胖"
  26.     年龄1 = 11
  27.     年龄2 = 14
  28.     年龄3 = 13
  29.     平均年龄 = 年龄1 + 年龄2 + 年龄3 '是否可以使用()来分隔赋值?
  30.     平均年龄 = 平均年龄 \ 3 '整除运算替换整除或替换平均年龄数字类型会如何?
  31.     MsgBox 姓名1 & "今年" & 年龄1 & "岁了"
  32.     MsgBox 姓名2 & "今年" & 年龄2 & "岁了"
  33.     MsgBox 姓名3 & "今年" & 年龄3 & "岁了"
  34.     MsgBox "他们的平均年龄是" & 平均年龄 & "岁"

  35. End Sub



  36. Sub 平均年龄()
  37.    
  38.     Dim 姓名1 As String, 姓名2 As String, 姓名3 As String, 年龄1 As Integer, 年龄2 As Integer
  39.     Dim 年龄3 As Integer, 平均年龄 As Double '如何下拉过长语句?
  40.    
  41.     姓名1 = "王晓红"
  42.     姓名2 = "周俊丽"
  43.     姓名3 = "吴三胖"
  44.     年龄1 = 11
  45.     年龄2 = 14
  46.     年龄3 = 13
  47.     平均年龄 = (年龄1 + 年龄2 + 年龄3) / 3 '是否可以使用()来分隔赋值?整除运算替换整除或替换平均年龄数字类型会如何?
  48.     MsgBox 姓名1 & "今年" & 年龄1 & "岁了"
  49.     MsgBox 姓名2 & "今年" & 年龄2 & "岁了"
  50.     MsgBox 姓名3 & "今年" & 年龄3 & "岁了"
  51.     MsgBox "他们的平均年龄是" & 平均年龄 & "岁"

  52. End Sub


  53. Sub 老张的年龄()

  54.     Dim 姓名 As String, 年龄 As Double, 年 As Double
  55.    
  56.     姓名 = "老张"
  57.     年龄 = 34
  58.     年 = 3.156 * 10 ^ 7
  59.     年龄 = 年龄 * 年
  60.     MsgBox 姓名 '检查错误,第一次输出语句无“老张”
  61.     MsgBox 姓名 & "今年年龄是" & 年龄 & "秒"
  62. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-8 22:51:38 | 显示全部楼层
  1. Sub 求李小萌身高英寸()
  2.     Dim 姓名 As String
  3.     Dim 身高厘米 As Integer
  4.     Dim 身高英寸 As Double
  5.    
  6.     姓名 = "李小萌"
  7.     身高厘米 = 165
  8.     身高英寸 = 身高厘米 / 2.54
  9.    
  10.     MsgBox 姓名 & "的身高是" & 身高英寸 & "英寸"
  11.    
  12. End Sub

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

  34. End Sub

  35. Sub 计算年龄的秒数()
  36.     Dim 年龄 As Integer
  37.     Dim 秒 As Long
  38.         
  39.     年龄 = 34
  40.     秒 = 年龄 * 3.156 * 10 ^ 7
  41.    
  42.     MsgBox "老张的年龄是" & 秒 & "秒"
  43.    
  44. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-8 23:23:06 | 显示全部楼层
Sub 李小萌身高()
   
      Dim 姓名 As String, 身型 As String, 身高 As Double, 单位 As String
   
      姓名 = "李小萌"
   
      身型 = "的身高是"
   
      身高 = 165 \ 2.54
   
      单位 = "英寸"
   
      MsgBox 姓名 & 身型 & 身高 & 单位
   
End Sub


Sub 平均年龄()
   
    Dim 姓名A As String, 姓名B As String, 姓名C As String, wang As Integer, zhou As Integer, wu As Integer
   
    姓名A = "王晓红"
   
    姓名B = "周俊丽"
   
    姓名C = "吴三胖"
   
    wang = 11
   
    zhou = 14
   
    wu = 13
   
    MsgBox (wang + zhou + wu) \ 3
   
        
End Sub


Sub 计算年龄的秒数()

    Dim 姓名 As String, 时间 As Double, 单位 As String
   
     姓名 = "老张的年龄是"
     
     时间 = 3.156 * 10 ^ 7 * 34
     
     单位 = "秒"
     
     MsgBox 姓名 & 时间 & 单位
     
End Sub
回复 支持 反对

使用道具 举报

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

本版积分规则

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