テキストファイル出力で、Double型の1を 1.0 と出力するには？

解決

ことえり 2007-05-10 21:20:30 No: 98723

下記内容の実現方法をご存じの方にお知恵を借りられれば幸いです。

◆質問内容
Double型の変数に 1 が入っています。
それを「数値」としてファイル出力するときに、
小数点第一位までを含めて「1.0」と出力させたいのですが、どうすれば良いでしょうか？

◆参考までに私が試したコード
    Dim Ff As Integer
  Dim DX as Double
  Dim AX as Double

DX = 1
AX = 1.5

Ff = FreeFile
Open "c:\test.txt" For Output As Ff

        Write #Ff, (Format(DX, "#0.0"))  ←  ※１
        Write #Ff, val(Format(DX, "#0.0"))  ←  ※２
    Write #Ff, AX            ←  ※３

Close Ff

※１  これだと  "1.0"  のように文字列として書きこまれてしまいます。ＮＧです。
※２  これだと  1      のように小数点第一位の０が書き込まれません。ＮＧです。
※２  これは    1.5    と意図通りに書き込めます。

ことえり 2007-05-10 21:24:07 No: 98724

間違えて二重投稿してしまいました。
こちらの質問は間違いです。
申し訳ありません。