form14.frm

英语字典

VERSION 5.00
Begin VB.Form frmTiankong 
   BackColor       =   &H00FFC0C0&
   Caption         =   "判断体测试"
   ClientHeight    =   3150
   ClientLeft      =   60
   ClientTop       =   390
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   11550
   ScaleWidth      =   19080
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame3 
      BackColor       =   &H00FFC0C0&
      Caption         =   "题目"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3615
      Left            =   2760
      TabIndex        =   10
      Top             =   1200
      Width           =   4935
      Begin VB.TextBox txtQuestion 
         Height          =   2895
         Left            =   480
         TabIndex        =   11
         Top             =   480
         Width           =   3975
      End
   End
   Begin VB.CommandButton cmdTrue 
      Caption         =   "正确答案"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   11760
      TabIndex        =   9
      Top             =   7440
      Width           =   2175
   End
   Begin VB.CommandButton cmdCheck 
      Caption         =   "核对答案"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   8760
      TabIndex        =   8
      Top             =   7440
      Width           =   2175
   End
   Begin VB.PictureBox Picture1 
      Height          =   4695
      Left            =   2760
      Picture         =   "Form14.frx":0000
      ScaleHeight     =   4635
      ScaleWidth      =   4875
      TabIndex        =   7
      Top             =   5280
      Width           =   4935
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "关闭"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   12360
      TabIndex        =   6
      Top             =   9000
      Width           =   2415
   End
   Begin VB.Frame Frame2 
      BackColor       =   &H00FFC0C0&
      Caption         =   "答案"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1575
      Left            =   8400
      TabIndex        =   5
      Top             =   1200
      Width           =   6255
      Begin VB.TextBox txtAnswer 
         Height          =   615
         Left            =   960
         TabIndex        =   12
         Top             =   480
         Width           =   4335
      End
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "切换试题"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3495
      Left            =   8400
      TabIndex        =   0
      Top             =   3240
      Width           =   6255
      Begin VB.CommandButton cmdPrevious 
         Caption         =   "上一题"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   3360
         TabIndex        =   4
         Top             =   1920
         Width           =   2055
      End
      Begin VB.CommandButton cmdNext 
         Caption         =   "下一题"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   3360
         TabIndex        =   3
         Top             =   720
         Width           =   2055
      End
      Begin VB.CommandButton cmdLast 
         Caption         =   "最后一题"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   720
         TabIndex        =   2
         Top             =   1920
         Width           =   1815
      End
      Begin VB.CommandButton cmdFirst 
         BackColor       =   &H00FFC0C0&
         Caption         =   "第一题"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   720
         TabIndex        =   1
         Top             =   720
         Width           =   1815
      End
   End
End
Attribute VB_Name = "frmTiankong"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCheck_Click()
If txtAnswer.Text = Rs!正确答案 Then     '判断回答是否和正确答案相同
  MsgBox "您回答正确", vbexlamation, "提示"
  cmdTrue.Value = False
  cmdTrue.Visible = False
Else
  MsgBox "您回答错误", vbexlamation, "提示"
End Sub

Private Sub cmdClose_Click()
Unload Me
frmOdinaryUser.Show
End Sub

Private Sub cmdFirst_Click()
Rs.MoveFirst
txtQuestion.Text = Rs!问题
End Sub

Private Sub cmdLast_Click()
Rs.MoveLast
txtQuestion.Text = Rs!问题
End Sub

Private Sub cmdNext_Click()
Rs.MoveNext
    If Rs.EOF Then
       Rs.MoveFirst
    End If
txtQuestion.Text = Rs!问题
End Sub

Private Sub cmdPrevious_Click()
Rs.MovePrevious
    If Rs.BOF Then
        Rs.MoveLast
    End If
txtQuestion.Text = Rs!问题
End Sub

Private Sub cmdTrue_Click()
MsgBox "正确答案为:& Rs!正确答案 &", vbexlamation, "提示"
'Print "正确答案为:"; Rs!正确答案
End Sub

Private Sub Form_Load()
Call Module1.connection
Dim textsql As String
Dim MsgText As String
Dim Rs As New ADODB.Recordse
strsql = "select * from 填空题表"
Set Rs = ExecuteSQL(txtsql, MsgText)
'Rs.Open straql
txtQuestion.SetFocus
End Sub




Private Sub Form_Unload(Cancel As Integer)
Rs.Close
End Sub