Visual Basic6.0练习题 打包下载 - 飘凌大杂烩
飘凌大杂烩 → 电脑网络手机数码 → 计算机科学与技术 → Visual Basic6.0练习题 打包下载
　　　　
　
Visual Basic6.0练习题 打包下载
发起人：piaoling　　回复数：4　　浏览数：6275　　最后更新：2009/3/1 10:32:30 by piaoling

选择查看 搜索更多相关主题 　帖子排序：
piaoling 发表于 2009/2/26 21:51:26
Visual Basic6.0练习题 打包下载

例题.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
返回页首↑


津ICP备09000164号

联系我们 - piaoling Corporation - 论坛存档 - 返回顶端
Powered by BBSXP 2007 ACCESS © 1998-2025
Server Time 2025/4/27 18:06:02
Processed in 0.03 second(s)
飘凌大杂烩