题目要求.frm

天使射箭

VERSION 5.00
Begin VB.Form Form2 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "本题要求:"
   ClientHeight    =   3300
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5400
   ControlBox      =   0   'False
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3300
   ScaleWidth      =   5400
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Caption         =   "关闭"
      Height          =   255
      Left            =   2160
      TabIndex        =   0
      Top             =   3000
      Width           =   855
   End
   Begin VB.Label Label1 
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2775
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   5055
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Form2.Hide
Form1.Enabled = True
Form1.Show
End Sub

Private Sub Form_Load()
Label1.Caption = Label1 & "1、本游戏程序的界面如演示程序所示。窗体无边框,运行时时窗体显示在屏幕中间。" & Chr(10) & Chr(13)
Label1.Caption = Label1 & "2、按空格键，“小天使”手中的箭会从“小天使”所在位置发射出来（每次只能射一支箭，下一支箭必须在前一支箭消失后才能射出来），同时游戏开始。" & Chr(10) & Chr(13)
Label1.Caption = Label1 & "3、游戏过程中，“小天使”始终在上下飞行！" & Chr(10) & Chr(13)
Label1.Caption = Label1 & "4、游戏屏幕上有四种水果，分别对应的分值，如果天使的箭从其中的一种水果上穿过，则在计分器上加上相应的分值。" & Chr(10) & Chr(13)
Label1.Caption = Label1 & "5、本游戏设定时间是60秒，60秒后游戏结束。按空格键继续开始新一轮游戏。" & Chr(10) & Chr(13)
Label1.Caption = Label1 & "6、鼠标单击“退出”，程序结束。"
End Sub