编写一个程序计算半径为5的圆的面积(要求:在创件一个模块级变量的同时给它赋值)

添加一个模块，在其中写上:
Public const R=5
在窗体代码窗口写：
Private Sub Form_Click()
Print "面积＝"; r ^ 2 * Atn(1) * 4
End Sub

工程—添加模块
代码：
Option Explicit
Const pi = 3.1419
Dim s As Single, r As Integer, str1 As String

Sub main()
r = 5
s = pi * r ^ 2
str1 = "半径为" & Str(r) & "的圆面积为：" & Str(s) & " "
MsgBox str1, 32, "计算圆的面积"
End Sub
工程—属性—启动对象—Sub Main