Visual Basic6.0练习题打包下载_计算机科学与技术

飘凌大杂烩 → 计算机科学与技术 → Visual Basic6.0练习题打包下载

查看完整版本：Visual Basic6.0练习题打包下载

piaoling

2009/2/26 21:51:26

例题.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

piaoling

2009/2/26 21:59:44

例1.2

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

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

piaoling

2009/2/26 22:07:08

例1.3

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

piaoling

2009/3/1 10:23:17

例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

piaoling

2009/3/1 10:32:30

例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