VBA第一讲作业

彩玉

Sub SpecialMsg()
Const π = 3.1415926
Dim r, s As Single
r = 25 / 2
s = π * r ^ 2
s = Round(s, 2)

MsgBox "圆的面积为" & s & "平方米!", vbInformation + vbOKCancel, "我的第一个VBA程序"
End Sub

蓝粆

不是在这里的哈 去问问学委或者组长你们组的作业帖子在哪里~

彩玉

蓝粆 发表于 2015-6-6 13:15
不是在这里的哈 去问问学委或者组长你们组的作业帖子在哪里~

吃一堑长一智