咋没人回呢？帮帮忙！！！！！！！！！！

1.CLS
S=0:K=0
FOR I=0 TO 14
  S=S+2^I
NEXT I
PRINT "ZH=";S
END 
2.CLS
RANDOMIZE TIMER
INPUT N
FOR I = 1 TO N
   X = INT(RND * 4) + 1
   A(X) = A(X) + 1
NEXT I
FOR I = 1 TO 4
 PRINT CHR$(64 + I); ":"; A(I)
NEXT I
END