潇爷说VBnet

Dim r As Double, l As Double
Console.WriteLine("ji suan yuan de zhou chang")
Console.Write("qing shu ru yuan de ban jing,an enter jiang jie su")
r = Val(Console.ReadLine())
l = 2 * 3.14 * r
Console.WriteLine("banjing={0},zhouchang={1}", r, l)
windows应用程序
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim r, h, v As Double
r = Val(TextBox1.Text)
h = Val(TextBox2.Text)
v = 3.14 * r * r * h
Label4.Text = Str(v)
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub