|
>よって、Mainプロシジャーだけちょっと変更します。
>'==============================================================
>Sub main()
> Dim 演算子 As String
> Dim Mol(0 To 1) As Long, Deno(0 To 1) As Long
> Randomize Timer
> For idx = 1 To 30 Step 3
> For jdx = 0 To 1
> Call get_Fract(Mol(jdx), Deno(jdx), 30) '分数の分子・分母の取得
> Next jdx
演算子 = Choose(Int(Rnd * 4) + 1, "+", "−", "×", "÷")
' ↑やっぱり4でよかった・・
' ボケてました 失礼しました
> If 演算子 = "−" Then '演算子が−だったら?
> If Mol(0) / Deno(0) - Mol(1) / Deno(1) < 0 Then '答えが-だったら?
> wk = Mol(0)
> Mol(0) = Mol(1)
> Mol(1) = wk
> wk = Deno(0)
> Deno(0) = Deno(1)
> Deno(1) = wk
>' ↑データを入れ替える
> End If
> End If
> Call set_計算式(Cells(idx, 1), Mol(), Deno(), 演算子) '計算式の表示
> Next
>End Sub
|
|