じゃんけんゲームを作成するには？ (ID:81440)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Timer コントロールを使えばできるかと。 Timer1, Command1, Label1 をフォーム上に配置し、 下のコードを実行して、ボタンを押してみて下さい。 ラベルに、じゃん、けん、ぽんと順に表示されます。 Private Sub Command1_Click() Label1.Caption = "じゃん" Timer1.Interval = 700 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Select Case Label1.Caption Case "じゃん": Label1.Caption = "けん" Case "けん": Label1.Caption = "ぽん" Case "ぽん": Timer1.Enabled = False End Select End Sub