Private Sub Command1_Click() '定义名为Command1_Click() 的事件过程
Const PI As Single = 3.14 '说明程序中PI是常量∏
Dim r As Single, s As Single '说明程序中变量r和s是单精度实型数
r = InputBox("r=", "输入半径") '输入r的值
s = PI * r * r '计算表达式PI*r*r的值并赋给s
c= 2*pi*r '计算表达式2*PI*r的值并赋给c
Print "圆的面积 s="; s 's的值输出到当前的窗体上
Print "圆的周长 c="; c
'过程结束
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024