计算圆的面积 VB代码,

题目

计算圆的面积 VB代码,
就是VB里怎么计算圆的面积.
用if语句,可以不.

答案

一个text控件
Private Sub Form_Load()
Dim R As Double
Dim S As Double
R = Val(Text1.Text)
S = 3.14 * (R ^ 2)
MsgBox Str(S)
End Sub