2015年VBA初级1班D组第一讲作业提交帖

纳哥普尔

交作业了   D23-纳哥普尔
唉，样式还是不对！学委辛苦了！

1. Sub SpecialMsgbox()
   
2. 
   
3. Dim s As Double
   
4. Dim d As Integer
   
5. Const pi As Double = 3.1415926
   
6. d = 25
   
7. s = pi * d / 2 * d / 2
   
8. MsgBox "圆的面积为" & Round(s, 2) & "平方米！", vbOKCancel, "我的第一个VBA程序"
   
9. 
   
10. End Sub

复制代码

双修的苏摩尔

d02：双修的苏摩尔

作业不会，sorry

李建军

D17-李建军

1. Sub SpecialMsgbox()
   
2. Dim d, r, s
   
3. d = 25
   
4. r = d / 2
   
5. s = Application.Pi() * r * r
   
6. sm = "我的第一个VBA程序"
   
7. MsgBox "圆的面积为" & Application.Round(s, 2) & "平方米", 1 + 64, sm
   
8. End Sub
   

复制代码

云子

-------------------------------------------------华丽丽的作业截止分割线-------------------------------------------------