第二节作业罗马大upm

foresthillls

Sub 李身高英寸()
  Dim name As String, sgl As Long, sgy As Double
  name = "李小萌"
  sgl = 165
  sgy = sgl / 2.54
  MsgBox name & "的身高是" & sgy & "英寸"


End Sub


Sub 平均年龄()
  Dim name1 As String, name2 As String, name3 As String, age1 As Long, age2 As Long, age3 As Long, avage As Integer
  name1 = "王晓红"
  name2 = "周俊丽"
  name3 = "吴三胖"
  age1 = 11
  age2 = 14
  age3 = 13
  avage = (age1 + age2 + age3) / 3
      MsgBox name1 & age1 & "岁"
      MsgBox name2 & age2 & "岁"
      MsgBox name3 & age3 & "岁"
      MsgBox "三个人的平均年龄" & avage & "岁”"

End Sub



Sub 年龄的秒数()
  Dim year As Double, name As String, age As Long
  year = 3.156 * 10.7
  name = "老张"
  age = 34
  MsgBox name & "的年龄是" & age * year & "秒"


End Sub

ggsmart

楼主发这个是何意？？？？？？？？？？？？？？