Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

63480 / 76738

←次へ　｜　前へ→


	【17854】Re:分数の表示は？　訂正の訂正

ichinose - 04/9/8(水) 20:04 -


	引用なし

	パスワード

>よって、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

0 hits

▼

【17788】分数の表示は？ ponpon 04/9/7(火) 18:34