用vb设计工程,已知圆的半径R,求圆的面积S? 用什么控件和代码

如题所述

就用一个命令按钮。代码:

Private Sub Command1_Click()
Dim r As Single, s As Single
r = Val(InputBox("请输入圆的半径;"))
s = 3.14 * r * r
Print s
End Sub
温馨提示:答案为网友推荐,仅供参考