不意に抽せんをしなくてはならなくなったら、抽せんさん。
NumericUpDown と Labelを配置して、内容はこんな感じで。それから、スタートメニューにも設定をしましょう。
ソフトキーをダブルクリックしてコードを実装です。
乱数を発生させて結果に書き込みます。
|
Public Class Form1
Private Sub mnuStart_Click(ByVal sender As ...
Randomize()
Me.lblResult.Text = _
(Int((Me.nupNumber.Value * Rnd()) + 1)).ToString() _
+ " に決まりました"
End Sub
End Class
|
Randomize関数は重要です。これをやっておかないと結果が偏ってしまいます。「一度くじをシャッフル～♪」って感じですね。
デフォルトは2ですので、2択ができます。人生に迷ったら抽せんさん。