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 = Str(a) Text4.Text = Str(S) Text5.Text = Str(V) Text3.Locked = True Text4.Locked = True Text5.Locked = True End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text3.Text = Text4.Text = Text1.SetFocus End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() Text3.Text = Text4.Text = End Sub 程序2 Private Sub Command1_Click() Text5.Text = Str(Val(Text1.Text) * Val(Text2.Text) * Val(Text3.Text)) End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text5.Text = Text1.SetFocus End Sub ‘退出按钮代码略。 程序3 Private Sub Command1_Click() Dim A As Integer, B As Integer Randomize A = Val(Text4.Text) B = Val(Text5.Text) Text1.Text = Str(Int(Rnd * (B - A + 1) + A)) 产生[A,B]区间的随机数 Text2.Text = Str(Int(Rnd * (B - A + 1) + A)) End Sub Private Sub Command2_Click() Label1.Caption = + Text3.Text = Str(Val(Text1.Text) + Val(Text2.Text)) End Sub Private Sub Command3_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Label1.Caption = v Text4.SetFocus End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command5_Click() Label1.Caption = - Text3.Text = Str(Val(Text1.Text) - Val(Text2.Text)) End Sub Private Sub Command6_Click() Label1.Caption = * Text3.Text = Str(Val(Text1.Text) * Val(Text2.Text)) End Sub Private Sub Command7_Click() Label1.Caption =