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

名前

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

本文 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 = "ぽん" comcho Case "ぽん": Timer1.Enabled = False End Select End Sub で、ちゃんとできましたｖ ありがとうございました。