例题.rar

例1.1

Private Sub Command1_Click()
    Print "您单击了“显示”按钮"
End Sub

Private Sub Command2_Click()
    Form1.Width = Form1.Width + 50
    Form1.Height = Form1.Height + 50
End Sub

Private Sub Command3_Click()
    Form1.Width = Form1.Width - 50
    Form1.Height = Form1.Height - 50
End Sub

例1.2

Private Sub Command1_Click()
    Label1.Left = Label1.Left + 100
End Sub

Private Sub Form_Click()
    Label1.Left = Label1.Left - 100
End Sub

例1.3

Private Sub Command1_Click()
    Form1.Caption = Time
    Form1.Print Time
End Sub

例2.1

Private Sub Command1_Click()
    Dim A As Integer
    Dim B As Integer
    A = InputBox("请输入A: ")
    B = InputBox("请输入B:")
    Me.Print "A="; A, "B="; B
    Me.Print "A + B="; A + B
    Me.Print "A * B="; A * B
End Sub

例2.2

Option Explicit
Private Sub Command1_Click()
    Const Vg = 300000000#
    Const Pi = 3.1415
    Dim OB, AB
    OB = Vg / 3000 / 2
    AB = OB * Sin(30 * Pi / 180)
    Print "飞机的高度是："; AB; "米"
End Sub