[2015VBA初级班]C组作业提交贴

Ethelangel

批改辛苦
作业代码如下所示：

Sub specialMsgbox()
Dim s As Single, r As Single
Const Pi As Long = 3.1415926
r = 25 / 2
s = Pi * r ^ 2
MsgBox "圆的面积为" & Format(s, "#0.00") & "平方米！", vbOKCancel + vbInformation, "我的第一个VBA程序"
End Sub

duoduo_1231

Option Explicit

Sub SpecialMsgbox()
    Const pi As Single = 3.1415926
    Dim R As Single
    Dim S As Single
    R = 25
    S = pi * (R / 2) ^ 2
    MsgBox "圆的面积为" & Format(S, "Fixed") & "平方米!", vbOKCancel, "我的第一个VBA程序"   
End Sub

问题：这段代码执行出来的结果如下，怎么都弄不出圆形的警示图标。求解{:021:}

缺少圆形的警示框，不知道怎么才能出来

天龙九部

C19：天龙九部

1. Sub SpecialMsgbox()
   
2. Dim D As Byte, S As Single, pi As Single, M
   
3. D = 25
   
4. pi = 3.1415926
   
5. S = Round(1 / 4 * pi * D * D, 2)
   
6. M = MsgBox("圆的面积为" & S & "平方米！", 1, "我的第一个VBA程序")
   
7. End Sub
   

复制代码

皮皮2

C11:皮皮2 ，交作业了，有点晚，不好意思。

1. Sub SpecialMsgbox()
   
2.     Dim a%, S#, Str$
   
3.     Const pi = 3.1415926
   
4.     a = 25
   
5.     S = Round(pi * (a / 2) ^ 2, 2)
   
6.     Str = "圆的面积为" & S & "平方米!"
   
7.     MsgBox Str, vbInformation, "我的第一个VBA程序"
   
8. End Sub
   

复制代码

26709358

Sub SpecialMsgbox()
Dim d As Integer
Dim a As Single
Const pi = 3.1415926
d = 25
a = (d / 2) ^ 2 * pi
MsgBox "圆的面积为" & round(a,2) & "平方米!", vbOKCancel +vbMsgBoxHelpButton, "我的第一个VBA程序"
End Sub