form2.frm

这是本人用VB编写的一款简易短小的小学数学练习小软件,可用于小学生加减乘除法的速度训练.

   
    Command1.Caption = "继续吗 ？"
    confirmID = False
    Command1.SetFocus

Else
    Text1.Text = ""
    confirmID = True
    Command1.Caption = "确认吗 ？"
    Picture1.Visible = False
    Label4.Visible = False
    
    creat_a_b
    
    totalnum = totalnum + 1

    Text1.SetFocus
    Label4.Caption = ""
    
End If

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()

Timer1.Enabled = Not (Timer1.Enabled)
If Timer1.Enabled = True Then
    Command3.Caption = "暂停计时"
    Text1.SetFocus
Else
    Command3.Caption = "继续计时"
    Command3.SetFocus
End If

End Sub

Private Sub Command4_Click()
Text1.Text = ""
rang = 10
Lseconds = 0
Lminute = 0
Lhour = 0
totalnum = 1
ys_select = 3
add.Checked = True
min.Checked = True
mul.Checked = False
div.Checked = False

rightnum = 0

confirmID = True

Timer1.Enabled = True

creat_a_b

Label4.Caption = ""
Label4.Visible = False
Picture1.Visible = False

Label4.Caption = ""
Label4.Visible = False
Picture1.Visible = False

showchengji

Text1.SetFocus

End Sub

Private Sub Command5_Click()
totalnum = Text2.Text
Shour = Text2.Text
result = Text2.Text
End Sub

Private Sub div_Click()
div.Checked = Not (div.Checked)
ys_select = ys_select Xor 8
End Sub

Private Sub fanwei_Click()
rangb = InputBox("请输入范围(0-10000)")
If rangb = "" Then
GoTo eend
Else
rang = Val(rangb)
End If
If rang >= 10000 Then
MsgBox "请输入10000以内的数"
rangb = InputBox("请输入范围(0-10000)")
If rangb = "" Then
GoTo eend
End If
End If

eend:

End Sub

Private Sub Form_Load()
rang = 10
Lseconds = 0
Lminute = 0
Lhour = 0

totalnum = 1
rightnum = 0

ys_select = 3
add.Checked = True
min.Checked = True

confirmID = True

Timer1.Enabled = True

creat_a_b

Label4.Caption = ""
Label4.Visible = False
Picture1.Visible = False

showchengji

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
    PopupMenu yunsuanmenu
End If
End Sub

Private Sub min_Click()
min.Checked = Not (min.Checked)
ys_select = ys_select Xor 2
End Sub

Private Sub mul_Click()
mul.Checked = Not (mul.Checked)
ys_select = ys_select Xor 4
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
Command1.SetFocus
End If
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = True

Lseconds = Lseconds + 1
If Lseconds > 59 Then
Lseconds = 0
Lminute = Lminute + 1
End If
Sseconds = Str(Lseconds)

If Lminute > 59 Then
Lminute = 0
Lhour = Lhour + 1
End If
Sminute = Str(Lminute)

Shour = Str(Lhour)

Label10.Caption = "总用时：" & Shour & "小时" & Sminute & "分" & Sseconds & "秒"



End Sub


Public Sub creat_a_b()
    Randomize
    b = Int(Rnd() * rang)
           
    Select Case ys_select
    Case 1
        Label2.Caption = "+"
        a = Int(Rnd() * rang)
    Case 2
        Label2.Caption = "-"
        a = b + Int(Rnd() * rang)
    Case 3
        c = Int(Rnd() * 2 + 0.01)
        If c = 1 Then
            Label2.Caption = "+"
            a = Int(Rnd() * rang)
        Else
            Label2.Caption = "-"
            a = b + Int(Rnd() * rang)
        End If
    Case 4
        Label2.Caption = "*"
        a = Int(Rnd() * rang)
    Case 5
        a = Int(Rnd() * rang)
        c = Int(Rnd() * 2 + 0.01)
        If c = 1 Then
            Label2.Caption = "+"
        Else
            Label2.Caption = "*"
        End If
    Case 6
        c = Int(Rnd() * 2 + 0.01)
        If c = 1 Then
            Label2.Caption = "-"
            a = b + Int(Rnd() * rang)
        Else
            Label2.Caption = "*"
            a = Int(Rnd() * rang)
        End If
    Case 7
        c = Int(Rnd() * 3 + 0.001)
        If c = 1 Then
            a = Int(Rnd() * rang)
            Label2.Caption = "+"
        ElseIf c = 2 Then
            Label2.Caption = "-"
            a = b + Int(Rnd() * rang)
        Else
            Label2.Caption = "*"
            a = Int(Rnd() * rang)
        End If
    Case 8
        Label2.Caption = "/"
        While b = 0
        b = Int(Rnd() * rang)
        Wend
        a = b * Int(Rnd() * rang)
    Case 9
        c = Int(Rnd() * 2 + 0.001)
        If c = 1 Then
            Label2.Caption = "+"
            a = Int(Rnd() * rang)
        Else
            Label2.Caption = "/"
            While b = 0
            b = Int(Rnd() * rang)
            Wend
            a = b * Int(Rnd() * rang)
        End If
    Case 10
        c = Int(Rnd() * 2 + 0.001)
        If c = 1 Then
            Label2.Caption = "-"
            a = b + Int(Rnd() * rang)
        Else
            Label2.Caption = "/"
            While b = 0
            b = Int(Rnd() * rang)
            Wend
            a = b * Int(Rnd() * rang)
        End If
    Case 11
        c = Int(Rnd() * 3 + 0.001)
        If c = 1 Then
            Label2.Caption = "+"
            a = Int(Rnd() * rang)
        ElseIf c = 2 Then
            Label2.Caption = "-"
            a = b + Int(Rnd() * rang)
        Else
            Label2.Caption = "/"
            While b = 0
            b = Int(Rnd() * rang)
            Wend
            a = b * Int(Rnd() * rang)
        End If
    Case 12
        c = Int(Rnd() * 2 + 0.001)
        If c = 1 Then
            Label2.Caption = "*"
            a = Int(Rnd() * rang)
        Else
            Label2.Caption = "/"
            While b = 0
            b = Int(Rnd() * rang)
            Wend
            a = b * Int(Rnd() * rang)
        End If
    Case 13
        c = Int(Rnd() * 3 + 0.001)
        If c = 1 Then
            Label2.Caption = "+"
            a = Int(Rnd() * rang)
        ElseIf c = 2 Then
            Label2.Caption = "*"
            a = Int(Rnd() * rang)
        Else
            Label2.Caption = "/"
            While b = 0
            b = Int(Rnd() * rang)
            Wend
            a = b * Int(Rnd() * rang)
        End If
    Case 14
        c = Int(Rnd() * 3 + 0.001)
        If c = 1 Then
            Label2.Caption = "-"
            a = b + Int(Rnd() * rang)
        ElseIf c = 2 Then
            Label2.Caption = "*"
            a = Int(Rnd() * rang)
        Else
            Label2.Caption = "/"
            While b = 0
            b = Int(Rnd() * rang)
            Wend
            a = b * Int(Rnd() * rang)
        End If
    Case 15
        c = Int(Rnd() * 4 + 0.001)
        If c = 1 Then
            Label2.Caption = "+"
            a = Int(Rnd() * rang)
        ElseIf c = 2 Then
            Label2.Caption = "-"
            a = b + Int(Rnd() * rang)
        ElseIf c = 3 Then
            Label2.Caption = "*"
            a = Int(Rnd() * rang)
        Else
            Label2.Caption = "/"
            While b = 0
            b = Int(Rnd() * rang)
            Wend
            a = b * Int(Rnd() * rang)
        End If
    Case Else
        Label2.Caption = "+"
        a = Int(Rnd() * rang)
        ys_select = 1
        add.Checked = True
    End Select
    
    Label1.Caption = a
    Label3.Caption = b

End Sub

Public Function yunsuana() As Integer
    firs = Label1.Caption
    seco = Label2.Caption
    thir = Label3.Caption
    
    Select Case seco
    Case "+": yunsuana = Val(Label1.Caption) + Val(Label3.Caption)
    Case "-": yunsuana = Val(Label1.Caption) - Val(Label3.Caption)
    Case "*": yunsuana = Val(Label1.Caption) * Val(Label3.Caption)
    Case "/": yunsuana = Val(Label1.Caption) / Val(Label3.Caption)
    End Select
    
End Function

Public Sub showchengji()
    result = Int((rightnum / totalnum) * 100)
    Label7.Caption = "共" & totalnum & "题"
    Label8.Caption = "你做对了" & rightnum & "题"
    Label9.Caption = "你的成绩是" & result & "分"
End Sub