計算プリントを自動生成する その3 1桁繰り上がりなしの足し算
はじめに
今回は問題の難度を設定します。
簡単な問題、難しい問題って設定したいですよね。
手順
- 数字をひとつ決める
- それと足し合わせても繰り上がらない数字をひとつ決める
- 足し合わせた数字もとめる
- 計算式をつくる
今回は数字の選び方がちょっと難しい。
手動でやってみる
手順 | 具体的な数値 |
---|---|
数字をひとつ決める | 4 |
繰り上がらない数字をひとつ決める | 5 |
足し合わせた数を求める | 9 |
計算式を作る | 4+5=9 |
自動でやってみる
前回の関数「Int_Addition_Ver1」をちょっと書き換えます。
前回はこんな感じ。
Function Int_Addition_Ver2() As String '---------------------------------- '1ケタの二つの数を定義する 'それらの和を求める '計算式を文字列にして戻す '---------------------------------- '---------------------------------- '扱う変数の定義 '---------------------------------- Dim num1 As Integer '指定する数値 Dim num2 As Integer '指定する数値 Dim num3 As Integer '計算結果 Dim ans As String 'strに戻す値 '---------------------------------- 'num1とnum2の定義 '---------------------------------- num1 = Rnd_Num(1, 8) num2 = Rnd_Num(1, 9 - num1) '---------------------------------- 'num3を求める '---------------------------------- num3 = num1 + num2 '---------------------------------- '計算式を文字列にする '---------------------------------- ans = "a+b=c" ans = Replace(ans, "a", num1) ans = Replace(ans, "b", num2) ans = Replace(ans, "c", num3) '---------------------------------- '文字列を戻す '---------------------------------- Int_Addition_Ver2 = ans End Function
Num1とnum2の選び方が肝です。
まとめ
繰り上がらない数の選び方、わかりましたか?
これが難なくわかった方はセンス◎です!
次回いろんな足し算です。
足し算は次でいったん終わりかな。