level 5
PrinceHenrik
楼主
付源代码

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Const PI As Single = 3.14159 Dim S As Single Dim R As Single R = InputBox("请输入圆半径R") S = PI * R * R Print(S = PI * R * R) End SubEnd Class

2013年06月06日 14点06分
1

Public Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Const PI As Single = 3.14159 Dim S As Single Dim R As Single R = InputBox("请输入圆半径R") S = PI * R * R Print(S = PI * R * R) End SubEnd Class