おみくじを作ろう。
仕様
ボタンを押したらラベルの文字が変わり運勢が表示される。
まずラベルを配置します。
ボタンを一つ配置します。
配列を宣言して運勢を入れます。
ランダムクラスのインスタンスを作成。
0以上5未満の乱数を返します。
ラベルのテキストプロパティに配列の添字に乱数が入っているiを指定してます。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a() As String = {“大吉”, “中吉”, “小吉”, “末吉”, “凶”, “大凶”}
Dim Random As New System.Random()
Dim i As Integer = Random.Next(5)
Label1.Text = “今日の運勢は” + (a(i)) + “です! ”
End Sub