编写Qbasic程序求概率

1:
RANDOMIZE TIMER
INPUT N
DIM A（18）
FOR I=1 TO N
A=INT(RND*6)+1
B=INT(RND*6)+1
C=INT(RND*6)+1
S=A+B+C
FOR J=1 TO 18
IF S=J THEN A(J）=A(J)+1
NEXT J
S=0
NEXT I
FOR I=1 TO 18
PRINT I,18/A(I)
NEXT I
END
2：
RANDOMIZE TIMER
DIM A$(30)
FOR I=1 TO 30
A=INT(RND*12)+1
B=INT(RND*31)+1
A$(I）=STR$(A)+"'+STR$(B)
NEXT I
FOR I=1 TO 29
FOR J=I+1 TO 30
IF A$（I）=A$(J) THEN S=S+1
NEXT J,I
PRINT 30/S
END

randomize timer
cls
dim a(18)
for i =1 to 10000
for j =1 to 3
s=s+ int((rnd*6+1))
next j
a(s)=a(s)+1
next i
for i =1 to 18
print i;a(i)
next i
end
2.
cls
dim a(30)
for i =1 to 30
a(i)=int(rnd*365+1)
next i
for i =1 to 29
forj =1 to 30
if a(i)=a(j) then s=s+1
next j,i
pri