![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
じゃんけんのプログラミングを作っているのですがうまくいきません。
入力はボタンがグー、パー、チョキの三つがあり、一つ押し
勝つとLabel3に+1point
負けるとLabel3に-1point
引き分けるとLabel3に0point
というようなシステムなんですが
ボタンを連続して押すとLabel3の数値が-1、+1,0の3パターンが
出てくるだけでポイントが加算されません。
どうすればいいですか
Private Sub CommandButton1_Click()
Cells(1, 1) = Int(Rnd * 3)
Sum = 0
If Cells(1, 1) = 0 Then
Label1.Caption = "私もグー"
Label2.Caption = "DRAW"
Sum = Sum + 0
End If
If Cells(1, 1) = 1 Then
Label1.Caption = "私はチョキ"
Label2.Caption = "WIN"
Sum = Sum + 1
End If
If Cells(1, 1) = 2 Then
Label1.Caption = "私はパー"
Label2.Caption = "LOSE"
Sum = Sum - 1
End If
Label3.Caption = Sum
End Sub
Private Sub CommandButton2_Click()
Cells(1, 2) = Int(Rnd * 3)
If Cells(1, 2) = 0 Then
Label1.Caption = "私はグー"
Label2.Caption = "LOSE"
Sum = Sum - 1
End If
If Cells(1, 2) = 1 Then
Label1.Caption = "私もチョキ"
Label2.Caption = "DRAW"
Sum = Sum + 0
End If
If Cells(1, 2) = 2 Then
Label2.Caption = "WIN"
Sum = Sum + 1
End If
Label3.Caption = Sum
End Sub
Private Sub CommandButton3_Click()
Cells(1, 3) = Int(Rnd * 3)
If Cells(1, 3) = 0 Then
Label1.Caption = "私はグー"
Label2.Caption = "WIN"
Sum = Sum + 1
End If
If Cells(1, 3) = 1 Then
Label1.Caption = "私はチョキ"
Label2.Caption = "LOSE"
Sum = Sum - 1
End If
If Cells(1, 3) = 2 Then
Label1.Caption = "私もパー"
Label2.Caption = "DRAW"
Sum = Sum + 0
End If
Label3.Caption = Sum
End Sub
No.4ベストアンサー
- 回答日時:
簡単に直すなら、次のコードを書きかえれば良いかと・・・。
ただし、Label3.Captionの初期値は、ゼロにしておく必要があります。
Label3.Caption = Sum
↓
Label3.Caption = Label3.Caption + sum
余談ですが…。(この余談に対する補足などは一切不要です)
10回で勝負を決めるには、回数もカウントする必要がありますね。当然、回数もラベル表示ですよね。
勝負が決まった時は、どのような表示になるのでしょう。
まだまだ、考慮しなければならないことが多いと思いますが、頑張ってください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) VBA 同日で2回目(午後)の体温を登録するときのコード 3 2022/08/28 20:29
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたい 6 2023/01/23 12:00
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) excel VBA if文について 3 2022/03/27 17:42
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
[VB.net] ボタン(Flat)のEnable...
-
ユーザーフォームに別シートか...
-
VBA CommandButtonの文字ずれ
-
ボタンをマウスで押し続けたと...
-
閉じると「+」になり開くと「-...
-
他のアプリケーションとの連携
-
C#で動的に作ったtextboxを消す。
-
アイコンとボタンの違い
-
ダウンロードダイアログをVB...
-
コマンドボタンやイメージにマ...
-
button をクリックしてもへこま...
-
テラパッドを使ってるんですが...
-
VB6コントロール配列をパラメー...
-
VB2010 クリック数カウント
-
VBA IE ダウンロード ダイアロ...
-
excel シート上のボタンが動かない
-
DO~LOOP でのLOOP...
-
ボタンの文字色を変更したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
フォームの再読み込み
-
VBA CommandButtonの文字ずれ
-
ユーザーフォームに別シートか...
-
VBAのボタンの位置が変わって困...
-
Access VBA でデータペーストを...
-
Excel VBA Application.caller...
-
セルをマクロのボタンにしたい。
-
コマンドボタンやイメージにマ...
-
ボタン
-
プロシージャからイベントをコ...
-
ボタンをマウスで押し続けたと...
-
VBA でのボタンの移動について
-
C#で動的に作ったtextboxを消す。
-
バックスペース機能の作り方
-
アイコンとボタンの違い
-
VBAで多数のプログラムを一つの...
-
TextBoxでEnterキーを押すと、...
-
VBA IE ダウンロード ダイアロ...
おすすめ情報