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

名前

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

本文 差し当たり、下記ではどう？ Private Sub Form_Load() Randomize '乱数初期化 End Sub Private Sub Command1_Click() Dim ran As Integer Dim ran2 As Integer ran = Ransuu(1, 99) '乱数(1-9)発生 Label1.Caption = ran ran2 = Ransuu(1, 99) '乱数(1-9)発生 Label2.Caption = ran2 End Sub Private Function Ransuu(lower As Integer, upper As Integer) As Integer Ransuu = Int((upper - lower + 1) * Rnd + lower) End Function