一个作业代码，有点问题，求人帮忙纠正

qtt 发布于 2014-10-09 21:06， 408 次点击

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
这个出来是一个加法一个减法。如何随机出现加法或者减法？

3 回复

qtt2014-10-09 21:12

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

风吹过b2014-10-10 00:41

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

yangfrancis2014-10-10 21:49

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