Excel VBA質問箱 IV

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

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


63474 / 76732 ←次へ | 前へ→

【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 質問
【17796】Re:分数の表示は? ichinose 04/9/7(火) 23:55 回答
【17798】Re:分数の表示は? 訂正 ichinose 04/9/8(水) 0:23 発言
【17844】Re:分数の表示は? ponpon 04/9/8(水) 18:35 お礼
【17852】Re:分数の表示は? ichinose 04/9/8(水) 19:36 発言
【17854】Re:分数の表示は? 訂正の訂正 ichinose 04/9/8(水) 20:04 発言
【17855】Re:分数の表示は? ponpon 04/9/8(水) 20:26 発言
【17797】Re:分数の表示は? ちゃっぴ 04/9/7(火) 23:58 回答
【17845】Re:分数の表示は? ponpon 04/9/8(水) 18:52 お礼
【17799】Re:分数の表示は? ponpon 04/9/8(水) 0:31 発言

63474 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free