少数のある乱数

ki 2007-03-14 07:29:10 No: 135757

お邪魔させて頂きます。魔界の仮面弁士さん前回は回答ありがとうございました。

また判らなくなってしまったので質問させてください。

AccessのVBで作成しています。

Hyo(Accessがもっているテーブルです)・・・ずれてしまったら申し訳ないです

    桁(Hyo(0))        少数部(Hyo(1))
      ４
     １１
      ５                  ４
     １２                 ３

Dim HyoA As Recordset
Dim W As String
Dim Z As String

If IsNull (Hyo(1)) Then
  If (Hyo(0)) < 10 Then
    W = Int(Rnd * (10 ^ Rnd * (Hyo(0) + 1)))
    If Rnd * (Hyo(0)) + 1) < 3 Then
      W = W - 1
    End If
    Z = Right(Space(Hyo0) + 1) & W, Hyo(0) + 1)
  Else
    W = Int(Rnd * 100) Mod Hyo(0) + 1
    If Rnd * (Hyo(0) +  1) < 3 Then
      W = W * -1
    End If
    Z = Right(Space(Hyo(0) + 1) & W, Hyo(0) + 1)
  End If
Else
・
・
・
・

例えばHyoの1列目でいいますと
W(スペース4つのあとに乱数Wがくる)

これを順次出力していきます(ここも書いてあるのですが、省略しています)

少数部がNullのときの処理はなんとか書けて、実際に動いたので
問題ないのですが、小数部に値がある場合がどうしても書けません

宜しければ教えていただけますでしょうか。お願いします