动画介绍:控制台应用程序 console类的输入输出方法 write read以上两个无自动换行能力,须按Enter键 writeline readline
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 |