项目七《打靶游戏》导学案一、设计界面如下二、设置属性如下 3. Timer 属性设置如下 4. label 属性设置如下三、编写代码如下 Private Sub Timer1_Timer() Dim i As Integer Appear = Appear Xor True RandX = 500 * Rnd() RandY = 370 * Rnd() If Appear Then = True =1 =0 For i= 10 To 50 Step 10 (RandX, RandY), i, RGB(0, 0, 255) Next i (RandX - 60, RandY)-(RandX + 60, RandY) (RandX, RandY - 60)-(RandX, RandY + 60) Else End If End Sub 四、作业: 1. 运行该游戏,并将你玩该游戏的结果拷屏,以“打靶结果”为文件名,保存在姓名文件夹中,与编写的程序一起,上传至教师机中。 2. 改进完该游戏: (1) Lable1 、 Lable2 变化问题; (2 )将靶改为十圈,同时将靶数也改为 1-10
VB趣味编程《打靶游戏》导学案 来自淘豆网m.daumloan.com转载请标明出处.
