Private Sub Timer1_Time( )
For i= 0 To 10 Step 1
Shape l(0) BackColor= RGB(Int(Rnd * 256), Int(Rnd * 256), In(Rnd * 256)
Next i
End Sub
Visual Basic是一种可视化的程序设计语言,VB的可视化编程界面给用户提供了丰富的
控件对象资源,我们在开发程序前一定要先熟悉编程界面。
在VB中有三种程序结构,其中的分支结构中有一种多分支结构,可以针对多种情况进行编程。在编写移动的坦克游戏中,其中有这一段代码
1 Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer) 2 Select Case KeyCode 3 Case 37 4 Image1.Picture = LoadPicure(App.Path& "\pic\tank1.jpg") 5 If Image1.Left - 20 < 0 Then 6 Image1.Left=0 7 Else 8 Image1.Left= Image1.Left-20 9 End If |