vb 绘制图形蝴蝶动画

实验一 画图形

代码

Private Sub Form_Click() Scale (0, 30)-(120, 0) Circle (15, 15), 10 Circle (45, 15), 10, , , , 2 Circle (75, 15), 10, , -0.7, -2.1 Circle (105, 15), 10, , -2.1, 0.7 End Sub

实验二 画圆形

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) FillColor = QBColor(Int(Rnd * 15)) FillStyle = Int(Rnd * 8) Circle (x, y), 500 End Sub

实验三 蝴蝶动画

Dim i As Integer Private Sub Command1_Click() Timer1.Interval = 100 End Sub Private Sub Command2_Click() Timer1.Interval = 0 End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() i = 0 End Sub Private Sub Timer1_Timer() i = i + 2 Picture1.Picture = LoadPicture(App.Path & "\DH\" & i & ".bmp") If i = 8 Then i = 0 End Sub