怎样随机获取+7或-7这个数

Dim a%
Randomize
a = Choose(Int(Rnd() * 2) + 1, -7, 7)

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
是产生指定区间的随机数 ，这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。
如果是7到-7之间的数那么公式就是
int(15*rnd-7)

在用这个公式这前调用Randomize 函数，每次产生的随机数就不会相同

零一间随机取数.乘二后取整.得n.最后-1的n次方乘七就行了.