例10.8.frm

一本学习Visual Basic编程的好书

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H80000000&
   Caption         =   "简单算术运算练习"
   ClientHeight    =   2760
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   2760
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   1125
      TabIndex        =   5
      Top             =   975
      Width           =   1665
   End
   Begin VB.CommandButton Command2 
      Caption         =   "答题"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2775
      TabIndex        =   3
      Top             =   1950
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "命题"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1200
      TabIndex        =   1
      Top             =   1950
      Width           =   975
   End
   Begin VB.TextBox Text2 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   2925
      TabIndex        =   0
      Text            =   " "
      Top             =   975
      Width           =   990
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "填写答案"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Left            =   3000
      TabIndex        =   2
      Top             =   600
      Width           =   915
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      Caption         =   "运算题"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   1650
      TabIndex        =   4
      Top             =   600
      Width           =   765
   End
   Begin VB.Menu mnu10 
      Caption         =   "位数"
      Begin VB.Menu mnu11 
         Caption         =   "一位数"
      End
      Begin VB.Menu mnu12 
         Caption         =   "两位数"
      End
      Begin VB.Menu mnu13 
         Caption         =   "三位数"
      End
   End
   Begin VB.Menu mnu20 
      Caption         =   "运算"
      Begin VB.Menu mnu21 
         Caption         =   "加法"
      End
      Begin VB.Menu mnu22 
         Caption         =   "减法"
      End
      Begin VB.Menu mnu23 
         Caption         =   "乘法"
      End
   End
   Begin VB.Menu mnu30 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit      '规定所有变量都要显式声明，见10.9.1节
Dim sel1 As Integer, sel2 As String
Dim r1 As Long
Private Sub Form_Load()
    sel1 = 0             '位数标记
    sel2 = ""            '运算标记
    Randomize
End Sub
Private Sub mnu11_click()
    sel1 = 1             '设置位数标记
End Sub
Private Sub mnu12_click()
    sel1 = 10
End Sub
Private Sub mnu13_click()
    sel1 = 100
End Sub
Private Sub mnu21_click()
    sel2 = "+"           '设置运算标记
End Sub
Private Sub mnu22_click()
    sel2 = "-"
End Sub
Private Sub mnu23_click()
    sel2 = "*"
End Sub
Private Sub command1_click()  '"命题"按钮单击事件
    Dim a As Long, b As Long
    If sel1 = 0 Or sel2 = "" Then
         MsgBox "先选择运算数的位数和运算类型"
         Exit Sub
    End If
                    '随机生成指定位数的操作数
    a = sel1 + Int(9 * sel1 * Rnd)
    b = sel1 + Int(9 * sel1 * Rnd)
                    '组成算式
    Text1.Text = Str(a) + sel2 + Str(b) + "="
    Select Case sel2     '求运算结果r1
        Case "+"
            r1 = a + b
        Case "-"
            r1 = a - b
        Case "*"
            r1 = a * b
    End Select
    Text2.Text = ""
    Text2.SetFocus
End Sub
Private Sub command2_click()  '"答题"按钮单击事件
    Dim r2 As Long
    If Text2.Text = "" Then
         MsgBox "请输入答案"
         Exit Sub
    End If
    r2 = Val(Text2.Text)    '读取用户的答案
    If r1 = r2 Then         '判断答案
        MsgBox "回答正确"
    Else
        MsgBox "回答错误"
    End If
End Sub
Private Sub mnu30_click()   '"结束"按钮单击事件
    End
End Sub