Understand vb program as an arithmetic teacher for primary school students

You copy the following code into Notepad, click Save As, select all files as save types in the pop-up Save As dialog box, and then add Form 1.frm in the file name box to confirm running the saved files.

Version 5.00

Start VB. Form Form 1

Caption = "Form 1 "

Client height = 5580

Client left = 60

ClientTop = 450

ClientWidth = 6825

LinkTopic = "Form 1 "

Proportional height = 5580

Zoom width = 6825

StartUpPosition = 3' window default value

Start VB. Command button command 1

Caption = "End"

Height = 495

Left = 3960

TabIndex = 8

Top = 4320

Width = 12 15

end

Start VB. Frame 1

Caption = "Achievement"

Height = 3855

Left = 3240

TabIndex = 3

Top = 120

Width = 24 15

Start VB. Text box text5

Height = 375

Left = 840

Locked = - 1 'True

TabIndex = 12

Top = 1920

Width = 975

end

Start VB. Text box text4

Height = 375

Left = 840

Locked = - 1 'True

TabIndex = 1 1

Top = 1320

Width = 975

end

Start VB. Text box text3

Height = 375

Left = 840

Locked = - 1 'True

TabIndex = 10

Top = 840

Width = 975

end

Start VB. Text box text2

Height = 375

Left = 840

Locked = - 1 'True

TabIndex = 9

Top = 360

Width = 975

end

Start VB. Label2

Caption = "Correct rate"

Height = 375

Exponent = 3

Left = 120

TabIndex = 7

Top = 2040

Width = 735

end

Start VB. Label2

Caption = "Error"

Height = 375

Exponent = 2

Left = 120

TabIndex = 6

Top = 1440

Width = 495

end

Start VB. Label2

Caption = "Correct"

Height = 375

Exponent = 1

Left = 120

TabIndex = 5

Top = 840

Width = 495

end

Start VB. Label2

Caption = "*** Answer "

Height = 375

Exponent = 0

Left = 120

TabIndex = 4

Top = 360

Width = 495

end

end

Start VB. Text box text 1

Height = 735

Left = 1920

TabIndex = 2

Top = 4080

Width = 735

end

Start VB. List box List 1

Background color = & amph8000000f &

Height = 3660

Left = 240

TabIndex = 0

Top = 240

Width = 2655

end

Start VB. Label 1

Alignment = 1' Right alignment

Caption = "Label 1 "

Height = 495

Left = 360 degrees

TabIndex = 1

Top = 4200

Width = 1455

end

end

Attribute VB_Name = "Form 1 "

Attribute VB_GlobalNameSpace = False.

Attribute VB_Creatable = False

Attribute VB _ predicted = true.

Attribute VB_Exposed = False

Mark Da as an integer

Private subcommand 1_Click ()

end

End joint

Private Sub-Form _Load ()

show

Da = Ct

' Text2 = 0 '

Text 3 = 0

Text4 = 0

Text 1。 SetFocus

End joint

Common function Ct () in integer form

Take A as an integer, B as an integer and C as an integer.

Mark d as a string

Randomization (timer)

Cx:

a = Int(Rnd() * 1 1)

b = Int(Rnd() * 1 1)

c = Int(Rnd() * 4)

Select case C.

Case 0

D = "+"

Ct = a + b

Case 1

D = "-"

If a< then goes to Cx,

Ct = a - b

Case 2

D = "×"

Ct = a * b

Case 3

d = " #

If b = 0 and c = 3, go to Cx.

if Int(a/b)& lt； & gta/b then go to Cx.

Ct = a / b

End selection

label 1 = a & amp； D & ampb & amp"="

End function

Private subtext1_ keydown (keycode is an integer, Shift is an integer)

If the key code = 13, then

If Text 1 = ""then

MsgBox "Please fill in the answer and press Enter!"

ElseIf Val(Text 1) = Da Then

List 1。 AddItem label 1 & amp； text 1 & amp； " √"

Text2 = Val(Text2) + 1

Text3 = Val(Text3) + 1

text 5 = Int( 100 * Val(text 3)/Val(text 2)+0.5)

Da = Ct

Text 1 = " "

Text 1。 SetFocus

other

List 1。 AddItem label 1 & amp； text 1 & amp； " ×"

Text2 = Val(Text2) + 1

Text4 = Val(Text4) + 1

text 5 = Int( 100 * Val(text 3)/Val(text 2)+0.5)

Da = Ct

Text 1 = " "

Text 1。 SetFocus

If ... it will be over.

If ... it will be over.

End joint