投稿日 | : 2006/04/23(Sun) 08:54 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: 乱数について |
> Rndは0〜1未満の数の取得だとすると
> Rndの最高値 0.9の場合
1 未満の最大値は 0.9 ではありません。
聞くまでも無く自分で試してみれば解る事ではないでしょうか?
Private Sub Command1_Click()
Dim i As Long
For i = 1 To 100
Dim R As Single
R = Rnd
Debug.Print Int((R * 26) + 65), R
Next i
End Sub
テストコードを作っている間にかぶってしまったようですね。m(__)m