じゃんけんのプログラミングを作っているのですが、今できているじゃんけんの
プログラムの追加機能として得点式のゲームにしたいと思っています。
ルールとしては、10回じゃんけんをしてポイントを0から
勝ったら 得点+1
引き分けたら 得点 +0
負けたら 得点 -1
というふうにして
最終的に合計点数が0より大きければ勝ち0より小さければ負け
というようなものにしたのですが
どうすればよいですか?
ついでに完成したじゃんけんプログラムは下のような感じです。
Private Sub CommandButton1_Click()
Cells(1, 1) = Int(Rnd * 3)
If Cells(1, 1) = 0 Then
Label1.Caption = "私もグー。だから引き分けです。"
End If
If Cells(1, 1) = 1 Then
Label1.Caption = "私はチョキ。だからあなたの勝ちです。"
End If
If Cells(1, 1) = 2 Then
Label1.Caption = "私はパー。だからあなたの負けです。"
End If
End Sub
No.1ベストアンサー
- 回答日時:
お疲れさまです
入力がないので、こちらが出すのはグーときめているのでしょうか?
一応、10回勝負を考えてみました。
Private Sub CommandButton1_Click()
Dim i As Integer
Dim ft As Integer
ft = 0
For i = 1 To 10
MsgBox i & "回目"
Cells(1, 1) = Int(Rnd * 3)
If Cells(1, 1) = 0 Then
Label1.Caption = "私もグー。だから引き分けです。"
ft = ft
End If
If Cells(1, 1) = 1 Then
Label1.Caption = "私はチョキ。だからあなたの勝ちです。"
ft = ft + 1
End If
If Cells(1, 1) = 2 Then
Label1.Caption = "私はパー。だからあなたの負けです。"
ft = ft - 1
End If
Next i
If ft > 0 Then
Label1.Caption = "10回勝負結果=あなたの勝ちです"
Else
Label1.Caption = "10回勝負結果=あなたの負けです"
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) excel VBA if文について 3 2022/03/27 17:42
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vba listviewにおけるtextのAli...
-
指定したフォルダーを最前面表...
-
C言語で1000までの素数を求める...
-
プロダクションコードとは?
-
VBAプログラミング
-
2値化した画像の黒い部分のピク...
-
世界一美しいソースコード
-
Webプログラムってネイティブア...
-
大学で、泡の粗大化のシミュレ...
-
VBAにてTIFFから画像を取込みた...
-
マイコンからプログラムを読み...
-
XPathの関数「text()="value"」...
-
【ヒストグラムのプログラミン...
-
"サービス"と"常駐プログラム"...
-
無限ループ中にある任意のキー...
-
URLの最初の「h」を略す
-
VBA
-
javaで辞書プログラムを作りたい.
-
パズルのバグ
-
VB6 画面サイズ変更について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vba listviewにおけるtextのAli...
-
プロダクションコードとは?
-
指定したフォルダーを最前面表...
-
Webプログラムってネイティブア...
-
COBOLのS9タイプからXタイプへ...
-
VBコンソールアプリ(.NET Frame...
-
VBA
-
2値化した画像の黒い部分のピク...
-
初級者の質問――time_tについて
-
無限ループ中にある任意のキー...
-
Arduino nano(アルドゥイーノ ...
-
世界一美しいソースコード
-
VBAにてTIFFから画像を取込みた...
-
C言語でpingを実行してその結果...
-
三次元のグラフを書きたいので...
-
マイコンからプログラムを読み...
-
XPathの関数「text()="value"」...
-
C言語→MATLABへの変換で、困っ...
-
URLの最初の「h」を略す
-
プログラミングの問題と解答例...
おすすめ情報