12/01/17 03:00:42.86
>>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個までで作ったからテキトーに数は変えてね