VB顺序程序设计上机程序清单.docVIP

顺序结构程序设计上机程序清单（实验二） 程序1 Private Sub Command1_Click() Dim R, H As Integer Dim a, S, V As Single R = Val(Text1.Text) H = Val(Text2.Text) ------------------------------- a = pi * (R * R) S = 2 * pi * R * H V = pi * (R * R) * H -------------------------------- Text3.Text = Str(a) Text4.Text = Str(S) Text5.Text = Str(V) Text3.Locked = True Text4.Locked = True Text5.Locked = True End Sub Private Sub Command1_Click() Dim R, H As Integer Dim a, S, V As Single R = Val(Text1.Text) H = Val(Text2.Text) ------------------------------- a = pi * (R * R) S = 2 * pi * R * H V = pi * (R * R) * H Text3.Text = St