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

PrivateSub Form_KeyPress(KeyAscii As Integer)

   
Select Case KeyAscii

      
Case 61

         
Timer1.Interval = 10

      
Case 45

         
Timer1.Interval = 100

    
End Select

 
End Sub

PrivateSub Form_Load()

   
TopBottom = "0"

   
LeftRight = "0"

EndSub

PrivateSub 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．调试并运行编写好的程序

三：解决问题

积累理解vb词汇，和一些基本的结构的运用，以及一些函数基本运用。

四：没有解决的问题

还有许多函数和基本结构以及循环需要去理解运用，以后应多看书，多练习，努力去解决学习中所遇到的困难。