VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/04/02(Wed) 12:35 |
| 投稿者 | ： zkei |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 結果表示が不正確 |
ｖｂ初心者です。いつも 問題があります。教えてください。
次のプログラムはボタンをクリクしてから、結果はいつも
「まちがいー（正解は" & A*Dの値 & "でした！）」と言います。
なぜですか？
Private Sub Command2_Click()
Dim A, B, C, D As Long
Dim Q As Integer
C = 0
Start:
MsgBox "はじめます。"
A = InputBox("好きな数字を入力してください。", スタート, "半角数字を入力してね")
D = Int(Rnd * 10) + 1
B = InputBox(A & "×" & D & "は？", "?", "半角数字を入力してね")
If A * D = B Then
MsgBox "A * D"
MsgBox "B"
MsgBox "正解！"
C = C + 5
Label1.Caption = "ポイント：" & C
Else
MsgBox "まちがいー（正解は" & A * D & "でした！）"
C = C - 3
Label1.Caption = "ポイント：" & C
End If
Q = MsgBox("まだやる？", vbYesNo, "??")
If Q = vbYes Then GoTo Start
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）