VBでつくられた2chブラウザ

387：1 ◆ExGQrDul2E：2008/09/16(火) 15:23:56 ID:COmXOrqI: ランダムクラスについて
http://jeanne.wankuma.com/tips/vb.net/random/next.html
乱数 (ランダムな数) を取得する
' Random クラスの新しいインスタンスを生成する
Dim cRandom As New System.Random()

' 0 以上の乱数を取得する
Dim iResult1 As Integer = cRandom.Next()

' 0 以上 512 未満の乱数を取得する
Dim iResult2 As Integer = cRandom.Next(512)

' 256 以上 512 未満の乱数を取得する
Dim iResult3 As Integer = cRandom.Next(256, 512)

' 取得した乱数を表示する
MessageBox.Show( _
iResult1.ToString() & System.Environment.NewLine & _
iResult2.ToString() & System.Environment.NewLine & _
iResult3.ToString() _
)

http://jeanne.wankuma.com/tips/vb.net/random/nextdouble.html
乱数 (ランダムな数) を浮動小数で取得する
VB.NET 全般
' Random クラスの新しいインスタンスを生成する
Random cRandom = new System.Random()

' 0.0 以上 1.0 以下の乱数を取得する
Dim dRandom As Double = cRandom.NextDouble()

' 取得した乱数を表示する
MessageBox.Show(dRandom.ToString())

http://jeanne.wankuma.com/tips/vb.net/random/nextbytes.html
VB.NET 全般
' Random クラスの新しいインスタンスを生成する
Dim cRandom As New System.Random()

' バイト型の配列を確保する
Dim btBytes(5) As Byte

' バイト型の配列の乱数を取得する
cRandom.NextBytes(btBytes)

' 取得した乱数をすべて表示する
For Each btByte As Byte In btBytes
MessageBox.Show(btByte.ToString())
Next btByte

新着レスの表示

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板