vb作业：十位数内加减乘除四则运算测试系统

完成了随机出题的代码，实现了筛选不符合要求的数组。

剩下的就是页面制作和一些简单判断。

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 a( 1 ), a( 2 ), a( 3 ), a( 4 ), a( 5 ), a( 6 ), a( 7 ), a( 8 ), a( 9 ), a( 10 )
Print b( 1 ), b( 2 ), b( 3 ), b( 4 ), b( 5 ), b( 6 ), b( 7 ), b( 8 ), b( 9 ), b( 10 )

转载于:https://www.cnblogs.com/gengxiaochao/archive/2007/11/29/976313.html