EXCEL/VBA

四則演算の問題

加算の問題

Q.VBAのプロシージャ AdditionProblem を完成させてください。このプロシージャの目的は、ユーザーに加算の問題を提示し、ユーザーの回答が正しいかどうかを確認することです。

最初に、変数 num1num2 に対応する数値を設定します。その後、これらの数値の和を計算し、変数 correctAnswer に格納します。次に、InputBox 関数を使用してユーザーに問題を提示し、ユーザーの回答を userAnswer という変数に格納します。

最後に、ユーザーの回答が正解と一致する場合は “Correct! “と出力し、一致しない場合は “Incorrect. The correct answer is “と出力するプログラムを記載してください。

Sub AdditionProblem()
    Dim num1 As Double
    Dim num2 As Double
    Dim userAnswer As Double
    Dim correctAnswer As Double

    num1 = 10
    num2 = 5

    ' ここにコードを記述してください

End Sub
答え

Sub AdditionProblem()
    Dim num1 As Double
    Dim num2 As Double
    Dim userAnswer As Double
    Dim correctAnswer As Double

    num1 = 10
    num2 = 5

    correctAnswer = num1 + num2

    userAnswer = InputBox("What is " & num1 & " + " & num2 & "?")

    If userAnswer = correctAnswer Then
        Debug.Print "Correct! " & num1 & " + " & num2 & " = " & correctAnswer
    Else
        Debug.Print "Incorrect. The correct answer is " & correctAnswer
    End If
End Sub

 

 

減算の問題

 

乗算の問題

除算の問題

 

加算の問題

Q.VBAのプロシージャ AdditionProblem を完成させてください。このプロシージャの目的は、ユーザーに加算の問題を提示し、ユーザーの回答が正しいかどうかを確認することです。

最初に、変数 num1num2 に対応する数値を設定します。その後、これらの数値の和を計算し、変数 correctAnswer に格納します。次に、InputBox 関数を使用してユーザーに問題を提示し、ユーザーの回答を userAnswer という変数に格納します。

最後に、ユーザーの回答が正解と一致する場合は “Correct! “と出力し、一致しない場合は “Incorrect. The correct answer is “と出力するプログラムを記載してください。

 

 

減算の問題

乗算の問題

除算の問題