form1.frm

一个小小的VB选择题系统希望大家试试看 多多交流

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "考试系统--选择题-QQ223857666勾月"
   ClientHeight    =   1965
   ClientLeft      =   60
   ClientTop       =   240
   ClientWidth     =   4875
   DrawMode        =   14  'Copy Pen
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1965
   ScaleWidth      =   4875
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      Height          =   1815
      Left            =   120
      TabIndex        =   0
      Top             =   60
      Width           =   4590
      Begin VB.OptionButton Option1 
         Caption         =   "驻马店"
         Height          =   315
         Index           =   0
         Left            =   675
         TabIndex        =   5
         Top             =   810
         Width           =   1170
      End
      Begin VB.OptionButton Option1 
         Caption         =   "北京"
         Height          =   315
         Index           =   1
         Left            =   2685
         TabIndex        =   4
         Top             =   840
         Width           =   690
      End
      Begin VB.OptionButton Option1 
         Caption         =   "上海"
         Height          =   315
         Index           =   2
         Left            =   675
         TabIndex        =   3
         Top             =   1320
         Width           =   690
      End
      Begin VB.OptionButton Option1 
         Caption         =   "大连"
         Height          =   315
         Index           =   3
         Left            =   2685
         TabIndex        =   2
         Top             =   1320
         Width           =   690
      End
      Begin VB.OptionButton Option2 
         Caption         =   "题一：作者是哪个城市请选择你认为正确的答案："
         Height          =   495
         Left            =   630
         TabIndex        =   1
         Top             =   285
         Value           =   -1  'True
         Width           =   3555
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
  Dim Answer
  Dim i



Private Sub Option1_Click(Index As Integer)

  Answer = "驻马店"
  If MsgBox("您选择的答案为：   【" + Choose(Option1(Index).Index + 1, "驻马店", "北京", "上海", "大连") + "】   是否确定？", vbQuestion + vbYesNo, "是否确定选项") = vbYes Then
     If CBool(Answer = Choose(Option1(Index).Index + 1, "驻马店", "北京", "上海", "大连")) Then
        MsgBox " 耶---！恭喜你！^-^回答正确加10分", vbInformation, "提示"
     Else
        MsgBox "回答是错误！", vbQuestion, "提示"
        End
     End If
  Else
     i = i + 1
     MsgBox "你考虑的机会共有3次，目前还有" & 3 - i & "次", vbQuestion, "系统提示"
     If i = 3 Then End
  End If
End Sub