作壹個可供小學生數學運算的程序：10以內的加減乘除，能根據輸入的題數計算機自動出題，並判斷是否正確

Randomize Timer

INPUT "N="; N

For i = 1 To N

k = Int(Rnd * 4)

Select Case k

Case 0:

a = Int(Rnd * 11)

b = Int(Rnd * 11)

e$ = "+"

c = a + b

Case 1:

c = Int(Rnd * 11)

b = Int(Rnd * 11)

e$ = "-"

a = b + c

Case 2:

a = Int(Rnd * 10)

b = Int(Rnd * 10)

e$ = "*"

c = a * b

Case 3:

c = Int(Rnd * 10)

b = Int(Rnd * 9) + 1

e$ = "/"

a = b * c

End Select

Print a; e$; b; "=";

INPUT d

If c = d Then

Print "right!"

Else

Print "Wrong!"

End If

Next i