vb编程题

当用户单击窗体世利用Inputbox函数提示用户输入半径，然后使用Sub子过程实现计算机圆面积，最后结果用Print输出

答案：Private Sub Form_Click()
    Dim r As Double
    r = Val(InputBox("请输入圆半径"))
    Mianji r
End Sub
Private Sub Mianji(ByVal r As Double)
    Dim s As Double
    s = 3.1415926 * r * r
    Print "圆面积为：" & s
End Sub

上一个：vb编程！！
下一个：Vb编程技巧