>>99 もう少し基本的なゲーム作ったほうが結果的に早いと思うけど。といっても聞かないよな。俺も層だった Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' Random クラスの新しいインスタンスを生成する Dim cRandom As New System.Random() Dim unko As Long Dim hai(5) As String hai(0) = "萬1a" hai(1) = "萬1b" hai(2) = "萬1c" hai(3) = "萬1d" hai(4) = "萬2a" ' 0 以上 512 未満の乱数を取得する unko = cRandom.Next(5) tehaib1.Text = hai(unko) End Sub End Class テスト用に5個までで作ったからテキトーに数は変えてね
