2015年VBA初级1班A组（第1节课）作业上交贴（已开贴）

linshaosheng12 · 发表于 2015-6-5 22:43

本帖最后由 linshaosheng12 于 2015-6-9 09:30 编辑

Sub SpecialMsgbox()
Const pi As Double = 3.141592653
Dim d As Integer, s As Double
d = 25
s = Round(pi * (d / 2) ^ 2, 2)
MsgBox "圆的面积为" & s & "平方米！", vbOKCancel + vbInformation + vbDefaultButton1, "我的第一个VBA程序"
End Sub

复制代码

A23前来交作业

笨的有点傻 · 发表于 2015-6-5 22:30

本帖最后由笨的有点傻于 2015-6-6 08:45 编辑

我交作业啦

		自动登录	找回密码
密码			注册

[通知] 2015年VBA初级1班A组（第1节课）作业上交贴（已开贴）