S・I 2011-10-25 13:07:16 |
通報 |
よばれてとびでて、
Dim a As Integer
Randomize()
a = Math.Floor(Rnd() * 4)
If a = 1 Then
TextBox1.Text = "大吉"
ElseIf a = 2 Then
TextBox1.Text = "中吉"
ElseIf a = 3 Then
TextBox1.Text = "小吉"
ElseIf a = 0 Then
TextBox1.Text = "凶"
End If
まあ、がんばれ
トピック検索 |