計算プリントを自動生成する その3 1桁繰り上がりなしの足し算

はじめに

今回は問題の難度を設定します。
簡単な問題、難しい問題って設定したいですよね。

手順

1. 数字をひとつ決める
2. それと足し合わせても繰り上がらない数字をひとつ決める
3. 足し合わせた数字もとめる
4. 計算式をつくる

今回は数字の選び方がちょっと難しい。

手動でやってみる

手順	具体的な数値
数字をひとつ決める	4
繰り上がらない数字をひとつ決める	5
足し合わせた数を求める	9
計算式を作る	4+5=9

自動でやってみる

前回の関数「Int_Addition_Ver1」をちょっと書き換えます。
前回はこんな感じ。

taki-no-oto.hatenablog.com

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の選び方が肝です。

まとめ

繰り上がらない数の選び方、わかりましたか？
これが難なくわかった方はセンス◎です！

次回いろんな足し算です。
足し算は次でいったん終わりかな。