一、以For ...Next 技巧,產生10個1~50的亂數,存入陣列A() Dim A(10) As Integer Randomize() For i = 1 To 10 A(i) = Fix(Rnd() * 50) + 1 'Fix(n)無條件捨去小數For ...
確定! 回上一頁