求大神帮忙看下这道VB编程题

设计一个猜数字游戏，计算机随机产生一个0-100的数，给8次机会，每猜一次通过键盘输入，计算机可以给出“大了点！”“小了点！”“猜中了”三种提示，当出现“猜中了”时，程序结束，如果8次都猜不中，用消息框给出正确结果

这个题目的考察点在于随机数，还有程序的逻辑关系。我去年做了这个程序，给你瞧瞧？

private sub form_click() '1、* 编写程序，计算并输出下面数列中前n项的和。(设n=20) '   1*2*3,2*3*4,3*4*5,……,n(n+1)(n+2),……     dim sum&, i%, temp%, n%     n = val(inputbox("n=", , 20))     for i = 1 to n         temp = i * (i + 1) * (i + 2)         sum = sum + temp     next     print sum '2、* 编写程序，求500以内最大的10个能被13或17整除的自然数之和。     sum = 0     n = 500     i = 0     do         if n mod 13 = 0 or n mod 17 = 0 then             sum = sum + n             i = i + 1         end if         n = n - 1     loop until i > 10     print sum '3、* 编写程序，计算并输出下面数列前n项的和。(设n=51) '    1*2,-2*3,3*4,-4*5,……,(-1)^(n-1)*n*(n+1),……   (其中,^ 表示幂运算)     sum = 0     n = val(inputbox("n=", , 51))     for i = 1 to n         temp = (-1) ^ (i - 1) * i * (i + 1)         sum = sum + temp     next     print sum '4、* 有200元钱需要兑换成零钱，零钱有10元，5元，1元三种面额，要求每种面额都是奇数张，请问有多少种兑换方法？     dim j%     n = 0     for i = 1 to 20 step 2         for j = 1 to (200 - 10 * i) / 5 step 2             if (200 - i * 10 - j * 5) mod 2 <> 0 then n = n + 1 ':print i; j; 200 - i * 10 - j * 5     next j, i     print n end sub