Rnd関数で・・・ (ID:81065)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 自分でも色々と試して見たのでしょうか？ 下記は適当に書いて見ましたが．．．．。 Option Explicit Private Sub Form_Load() Randomize '乱数初期化 End Sub Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim i As Integer a = Int(Rnd * 30) + 1 Label1.Caption = a b = Int(Rnd * 30) + 1 For i = 0 To 10 If a = b Then b = Int(Rnd * b) + 1 If a <> b Then Exit For End If End If Next i Label2.Caption = b End Sub