VB job: 10-digit addition, subtraction, multiplication, division, four arithmetic Test System

Completed random question Code To filter out non-conforming arrays.

The rest is page creation and some simple judgments.

Dim X %, Y %, P %
Dim A ( 1   To   10 ) As   Integer
Dim B ( 1   To   10 ) As   Integer
Dim S ( 1   To   10 ) As   Integer
Randomize
For I =   1   To   10
S (I) =   Int ( 4   *   RND ) +   1
X =   Int ( 9   *   RND ) +   1
Y =   Int ( 9   *   RND ) +   1
Select   Case S (I)
Case   1
A (I) = X
B (I) = Y
Case   2
X =   Int ( 9   *   RND ) +   1
Y =   Int ( 9   *   RND ) +   1
A (I) = X
B (I) = Y
If A (I) < B (I) Then
P = A (I)
A (I) = B (I)
B (I) = P
End   If
Case   3
A (I) = X
B (I) = Y
Case   4
A (I) = X
B (I) = Y
If A (I) < B (I) Then
P = A (I)
A (I) = B (I)
B (I) = P
End   If

If A (I) MoD B (I) <>   0   Then
I = I -   1
End   If

End   Select
Next
Print S ( 1 ), S ( 2 ), S ( 3 ), S ( 4 ), S ( 5 ), S ( 6 ), S ( 7 ), S ( 8 ), S ( 9 ), S ( 10 )
Print ( 1 ), ( 2 ), ( 3 ), ( 4 ), ( 5 ), ( 6 ), ( 7 ), ( 8 ), ( 9 ), ( 10 )
Print B ( 1 ), B ( 2 ), B ( 3 ), B ( 4 ), B ( 5 ), B ( 6 ), B ( 7 ), B ( 8 ), B ( 9 ), B ( 10 )