VB实验报告

VB实验报告

一：试验目的：
1 利用vb程序设计语言制作随机图形
2 利用vb程序设计语言制作动画
二：实验内容：
   1先进行界面分布和相应的属性设置
   2编写代码如下：
 1，Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Command2_Click()
Form1.Cls
End Sub
Private Sub Command3_Click()
Timer1 = False
End Sub
Private Sub Timer1_Timer()
Form1.Circle (Int(Rnd * 8000), Int(Rnd * 8000)), Int(Rnd * 800)
FillStyle = Int(Rnd * 7)
FillColor = QBColor(Int(Rnd * 15))
Line (Int(Rnd * 8000), Int(Rnd * 8000))-(Int(Rnd * 8000) + 1000, Int(Rnd * 8000))
End Sub
2，Public TopBottom, LeftRight As String
Private Sub Form_Click()
    If Timer1.Enabled = False Then
       Timer1.Enabled = True
    Else
       Timer1.Enabled = False
    End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
       Case 61
          Timer1.Interval = 10
       Case 45
          Timer1.Interval = 100
    End Select
End Sub
Private Sub Form_Load()
    TopBottom = "0"
    LeftRight = "0"
End Sub
Private Sub Timer1_Timer()
    Select Case TopBottom & LeftRight
        Case "00"
            Form1.Image1.Top = Form1.Image1.Top - 10
            Form1.Image1.Left = Form1.Image1.Left - 10
            Form1.Image1.Move _
            Form1.Image1.Left - 10, Form1.Image1.Top - 10
            If Form1.Image1.Top <= 0 Then
                TopBottom = "1"
            End If
            If Form1.Image1.Left <= 0 Then
            LeftRight = "1"
            End If
        Case "10"
            Form1.Image1.Top = Form1.Image1.Top + 10
            Form1.Image1.Left = Form1.Image1.Left - 10
            If Form1.Image1.Top >= _
            Form1.ScaleHeight - Form1.Image1.Height Then
                TopBottom = "0"
            End If
            If Form1.Image1.Left <= 0 Then
                LeftRight = "1"
            End If
        Case "01"
            Form1.Image1.Top = Form1.Image1.Top - 10
            Form1.Image1.Left = Form1.Image1.Left + 10
            If Form1.Image1.Top <= 0 Then
                TopBottom = "1"
            End If
            If Form1.Image1.Left >= _
            Form1.ScaleWidth - Form1.Image1.Width Then
                TopBottom = "0"
            End If
        Case "11"
            Form1.Image1.Top = Form1.Image1.Top + 10
            Form1.Image1.Left = Form1.Image1.Left + 10
            If Form1.Image1.Top >= _
            Form1.ScaleHeight - Form1.Image1.Height Then
                TopBottom = "0"
            End If
            If Form1.Image1.Left >= _
            Form1.ScaleWidth - Form1.Image1.Width Then
                LeftRight = "0"
            End If
    End Select
End Sub
3．调试并运行编写好的程序
三：心得体会
1， 感觉自己的vb掌握得还差得很远，还需要好好的去学习，在接下来的时间里要好好得去探索研究，对于一些基本知识还不甚了解。对一些基本的函数还不是十分的清楚，如：对一些简单程序的编写特熟练，对一些基本结构也不能把握很好，对此我应该自己认真听老师的讲解，课下多多练习，以巩固课上所学到的知识。
2， 编写vb程序一定要仔细，在一个vb程序中，即使一个字母之差也会导致整个程序不能正确运行，所以在编和写的过编程中都要认真仔细，不要出现一些不必要的错误。
四：解决问题
积累理解vb词汇，和一些基本的结构的运用，以及一些函数基本运用。
五：没有解决的问题
 还有许多函数和基本结构以及循环需要去理解运用，以后应多看书，多练习，努力去解决学习中所遇到的困难。