VERSION 5.00
Begin VB.Form Frmaychga 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "奥运场馆"
   ClientHeight    =   3660
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5805
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3660
   ScaleWidth      =   5805
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Pic1 
      BackColor       =   &H00FFFFFF&
      Height          =   1575
      Left            =   2760
      ScaleHeight     =   1515
      ScaleWidth      =   2835
      TabIndex        =   9
      Top             =   1920
      Width           =   2895
   End
   Begin VB.CommandButton CmdReply 
      Caption         =   "答案"
      Height          =   375
      Left            =   960
      TabIndex        =   8
      Top             =   3120
      Width           =   615
   End
   Begin VB.CommandButton CmdCancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   1800
      TabIndex        =   7
      Top             =   3120
      Width           =   735
   End
   Begin VB.CommandButton CmdOk 
      Caption         =   "确认"
      Height          =   375
      Left            =   120
      TabIndex        =   6
      Top             =   3120
      Width           =   615
   End
   Begin VB.Frame FraSelect 
      Caption         =   "选择"
      Height          =   1695
      Left            =   2760
      TabIndex        =   3
      Top             =   120
      Width           =   2895
      Begin VB.ListBox LstName 
         Height          =   960
         ItemData        =   "奥运场馆a.frx":0000
         Left            =   120
         List            =   "奥运场馆a.frx":005B
         TabIndex        =   4
         Top             =   600
         Width           =   2655
      End
      Begin VB.Label Lbl2 
         Caption         =   "图片中是什么场馆？"
         Height          =   255
         Left            =   120
         TabIndex        =   5
         Top             =   360
         Width           =   1815
      End
   End
   Begin VB.Frame FraView 
      Caption         =   "奥运场馆浏览"
      Height          =   2895
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2415
      Begin VB.HScrollBar HsbView 
         Height          =   255
         Left            =   240
         Max             =   29
         Min             =   1
         TabIndex        =   1
         Top             =   2520
         Value           =   1
         Width           =   1935
      End
      Begin VB.Image Imgview 
         Height          =   1815
         Left            =   120
         Stretch         =   -1  'True
         Top             =   240
         Width           =   2175
      End
      Begin VB.Label Lbl1 
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   240
         TabIndex        =   2
         Top             =   2160
         Width           =   1935
      End
   End
End
Attribute VB_Name = "Frmaychga"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a(1 To 30) As String
Dim b(1 To 30) As String
Private Sub Form_Load()
   Imgview.Picture = LoadPicture(App.Path & "/第三单元/场馆图片/1.jpg")   '装载第一张图片
   Lbl1.Caption = "奥运场馆" + "1"         '显示第一张图片编号
   a(1) = "国家体育场"
   b(1) = "田径、足球"
   a(2) = "国家游泳中心"
   b(2) = "游泳、跳水、水球、花样游泳"
   a(3) = "国家体育馆"
   b(3) = "竞技体操、蹦床、手球"
   a(4) = "北京射击馆"
   b(4) = "射击"
   a(5) = "五棵松体育馆"
   b(5) = "篮球"
   a(6) = "老山自行车馆"
   b(6) = "场地自行车"
   a(7) = "奥林匹克水上公园"
   b(7) = "赛艇、皮划艇"
   a(8) = "中国农业大学体育馆"
   b(8) = "摔跤"
   a(9) = "北京大学体育馆"
   b(9) = "乒乓球"
   a(10) = "北京科技大学体育馆"
   b(10) = "柔道、跆拳道"
   a(11) = "北京工业大学体育馆"
   b(11) = "羽毛球、艺术体操"
   a(12) = "奥运中心体育场"
   b(12) = "足球、现代五项"
   a(13) = "奥运中心体育馆"
   b(13) = "手球"
   a(14) = "工人体育场"
   b(14) = "足球"
   a(15) = "工人体育馆"
   b(15) = "拳击"
   a(16) = "首都体育馆"
   b(16) = "排球"
   a(17) = "丰台垒球场"
   b(17) = "垒球"
   a(18) = "英东游泳馆"
   b(18) = "水球、现代五项（游泳）"
   a(19) = "老山自行车场"
   b(19) = "山地自行车"
   a(20) = "北京射击场飞碟靶场"
   b(20) = "飞碟射击"
   a(21) = "北京理工大学体育馆"
   b(21) = "排球"
   a(22) = "北京航空航天大学体育馆"
   b(22) = "举重"
   a(23) = "国家会议中心击剑馆"
   b(23) = "击剑预选赛、现代五项（击剑和射击）"
   a(24) = "青岛国际帆船中心"
   b(24) = "帆船"
   a(25) = "香港奥运赛马场"
   b(25) = "马术比赛"
   a(26) = "上海体育场"
   b(26) = "足球预选赛"
   a(27) = "天津奥林匹克体育场"
   b(27) = "足球预选赛"
   a(28) = "沈阳五里河体育场"
   b(28) = "足球预选赛"
   a(29) = "秦皇岛奥林匹克体育场"
   b(29) = "足球预选赛"
   a(30) = ""
End Sub
Private Sub CmdOk_Click()
   Pic1.Cls                         '清除容器显示内容
   Pic1.Print "我认为该场馆是:"     '回答问题
   Pic1.Print                       '空行
   Pic1.Print Space(4) + LstName.List(LstName.ListIndex)
End Sub

Private Sub CmdReply_Click()
  Dim m As String, n As Integer
  n = HsbView.Value                    '滚动条的当前值为图像序号
  m = LstName.List(LstName.ListIndex)  '列表框当前选项信息
  Pic1.Cls
  If a(n) = m Then                     '问题答案
     Pic1.Print "恭喜你答对了!!！"
  Else
     Pic1.Print "遗憾你答错了!!!"
  End If
  Lbl1.Caption = a(n)
  Pic1.Print
  Pic1.Print Space(4) + "该场馆是" + a(n): Pic1.Print
  Pic1.Print "赛时功能：": Pic1.Print
  Pic1.Print Space(4) + b(n)
End Sub

Private Sub Hsbview_Change()
   v = App.Path & "/第三单元/场馆图片/" + CStr(HsbView.Value) + ".jpg"    '图片存储路径
   Imgview.Picture = LoadPicture(v)                '装载图片
   Lbl1.Caption = "奥运场馆" + CStr(HsbView.Value) '显示图片编号
End Sub
Private Sub Form_Unload(Cancel As Integer)
   Unload Me
   Frmcck.Show
End Sub

Private Sub CmdCancel_Click()
  Unload Me
End Sub
