vb菜鸟级例题

+ - * / 法.
Private Sub Command1_Click()
x = Val(Text1.Text) + (Text2.Text)
Label4.Caption = Str$(x)

End Sub

Private Sub Command2_Click()
x = Val(Text1.Text) - (Text2.Text)
Label4.Caption = Str$(x)

End Sub

Private Sub Command3_Click()
x = Val(Text1.Text) * (Text2.Text)
Label4.Caption = Str$(x)

End Sub

Private Sub Command4_Click()
x = Val(Text1.Text) / (Text2.Text)
Label4.Caption = Str$(x)

End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Label4.Caption = ""

End Sub

九九表
Private Sub Form_Click()
For i = 1 To 9
For s = 1 To i
Print s; "*"; a; "="; i * s;
Next s
Print
Next i
End Sub

----*----
---***---
--*****--
-*******-
--*****--
---***---
----*----

编程 在la