算法问题

Question

每次盡量保証剩下6的倍數個硬币,所以
private function getNum(sum as long)as integer
getnum = sum mod 6
if getnum = 0 then
getnum = 1
end function

Answer 1

private function getNum(N as long)as long        'N 为总数
  getnum = N mod 6       ’留5+1的整数倍给对方        
  if getnum = 0 then     ’如果条件成立，电脑不管取多少，结果一样，所以
     getnum = rnd(4)+1   '电脑应当取一个1-5之间的随机数 （1加上一个 0 — 4 的随机数）
  ebdif
end function