急！会qbasic编程的进，简单题，在线等

高中的qb，很简单，有这样一道题
投掷一枚硬币，比如掷20次，问落下的正面反面几率各有多大。
要用到随机函数，和循环变量，，，急急急。。。在线等，，会得一定要快点啊，，，谢谢
一楼是的却错的。。。。。quickly一点，大家

恭喜你可以等到头了，我这题自己运行过了。对的～！
随机函数取值1 至 10 ，若大于五则为正面，若小于正面则为反面
CLS
RANDOMIZE TIMER
DIM a(20)
FOR i = 1 TO 20
a(i) = INT(RND * (10 - 1) + 1)
PRINT a(i)
IF a(i) > 5 THEN
Z = Z + 1
ELSE
F = F + 1
END IF
NEXT i
PRINT "ZHENG MIAN %"; Z / 20 * 100; "%";
PRINT "FAN MIAN %"; F / 20 * 100; "%";
END
有问可以加我的QQ：724812481（附加消息：QBASIC）
希望我们可以成为朋友～！

up即为正面次数

cls
randomize
up = 0
for i = 1 to 20
up = up + fix( rnd * 2 )
next i
print up/20,(20-up)/20
end

我也可以，产生1到100之间的随机数，奇数就是正面，偶数就是反面。
CLS
RANDOMIZE TIMER
DIM A(20)
FOR I=1 TO 20
A(I)=INT（RND（100+1-1）+1）
NEXT I
FOR I=1 TO 20
IF A(I) MOD 2=1 THEN Z=Z+1 ELSE F=F+1
NEXT I
PRINT "ZHENG MIAN ZHAN ZONG SHU DE";Z*(100/5);"%"
PRINT "FAN MIAN ZHAN ZONG SHU DE";F*（100/5）;"%"