おみくじを作ろう。VB.NET入門


おみくじを作ろう。
仕様
ボタンを押したらラベルの文字が変わり運勢が表示される。

まずラベルを配置します。
ボタンを一つ配置します。
配列を宣言して運勢を入れます。
ランダムクラスのインスタンスを作成。
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

シェアする

  • このエントリーをはてなブックマークに追加

フォローする

Translate »