a = Int(10 * Rnd)
b = Int(10 * Rnd)
If a >= b Then
Print a & "+" & b;
 Print a & "-" & b
Else
c = a
a = b
b = c
Print a & "+" & b;
Print a & "-" & b
这个出来是一个加法一个减法。如何随机出现加法或者减法？

就是怎样让加号或者减号随机出现的代码？急求

a = Int(10 * Rnd)
b = Int(10 * Rnd)
f=int(2*rnd)

if f =0 then          '+
  Print a & "+" & b;
else                  '-
if a<b then      '减法，大数要放a
  c = a
  a = b
  b = c
end if
Print a & "-" & b;
end if

思路和前一位差不多。
dim tag$
randomize
select case int(rnd()*2)
case 0:
    tag="+"
case 1:
    tag="-"
end select
print str(a)+"tag"+str(b)