打砖头.docVIP

题目: 设计一个程序： 当选择“控制”菜单中的“图形绘制”菜单项时便可在窗体中用Circle方法绘制如下图 一 所示的圆球，当选择“控制”菜单中的“砖头游戏”菜单项使可出现图 二 所示的界面: 图 一 图 二 对于“砖头游戏”应有以下控制功能： 利用控件数组生成规则排序的砖块。 小球、挡板由形状控件产生，小球下落碰到挡板、窗体左右两侧均自动弹起。 小球下落小于挡板水平高度时，则宣告失败 如图 三 所示 。 小球每击碎一块砖则获得加分 如图 四 所示 。 统计每次游戏成绩。 图 三 图 四 1. 建立应用程序用户界面如下图（五）所示： 图（五） 2.设置对象属性 3.编写程序代码 ‘在窗体Form1的窗体模块中,分别创建各菜单控件的Click事件过程,编 写相应代码，完成菜单控件所赋予的任务 Option Explicit Dim valleft As Integer, valtop As Integer Dim first As Boolean Dim score As Integer Private Sub Form_Click Dim i% AutoRedraw True Scale 0, 100 - 100, 0 Form1.DrawWidth 5 Circle 50, 50 , 35 Circle 50, 50 , 35, vbRed, , , 2 Circle 50, 50 , 35, vbBlue, , , 0.5 For i 0 To 14 Shape1 i .Visible False Next Label1.Visible False End Sub Private Sub tu_Click Dim i% Form_Click For i 0 To 14 Shape1 i .Visible False Next Label1.Visible False Shape2.Visible False Shape3.Visible False End Sub Private Sub zuan_Click Dim i% For i 0 To 14 Shape1 i .Visible True Next Form1.Cls Label1.Visible True Shape2.Visible True Shape3.Visible True End Sub Private Sub Form_KeyDown KeyCode As Integer, Shift As Integer If KeyCode 39 Then If Shape2.Left Me.ScaleWidth - Shape2.Width Then Shape2.Left Shape2.Left + 300 End If If first False Then valleft 50 first True End If ElseIf KeyCode 37 Then If Shape2.Left 0 Then Shape2.Left Shape2.Left - 300 End If If first False Then valleft -50 first True End If End If Timer1.Enabled True End Sub Private Sub Form_Load Dim i% Timer1.Enabled False Shape3.Left 3000 Shape3.Top 3600 Shape2.Left 2500 Shape2.Top 3960 valleft 50 valtop -50 first False For i 0 To 14 Shape1 i .Tag 0 Shape1 i .Visible False Next End Sub Private Sub Timer1_Timer Dim i As Integer Shape3.Left Shape3.Left + valleft If Shape3.Left Me.ScaleWidth - Shape3.Width Then valleft -50 ElseIf Shape3.Left 0 Then valleft 50 End If Shape3.Top Shape3.Top + valtop If Shape3.Top 150 Then valtop 50 End If Fo