X As Single,I As SingleDim CHARNUM As Integer,RANDOMINTEGER As IntegerDim SINGLECHAR As String *1,filen2 As Integer'取单字节If MA<0ThemMAMA=MA*(-1)End IfX=Rnd(-MA)'参数为负FILENUM=FreeFileOpen FILENAME$ For Binary A