変数の値について

質問

変数の値について教えてください。
VB2010

Private Sub Button１_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim A As Single
A = 2.0
MsgBox(A)
End Sub

上記のプロシジャを実行するとメッセージボックスに２と表示され

2.0と表示しません。

2.0と表示させるには、どのようにすればよいなでしょうか。

回答No.2

imogasi · ベストアンサー

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim F As Single = 2.0F
Dim s As String
s = String.Format("Data={0,7:#,##0.0}", F) '右詰め
MsgBox(s)
End Sub
End Class

http://msdn.microsoft.com/ja-jp/library/dd314347.aspx
Format メソッドで数値を文字列として挿入

http://msdn.microsoft.com/ja-jp/library/dd314343.aspx
など参照。

回答No.1

40000Km

>MsgBox(A)
を
MsgBox(Format（A,"0.0"))
とすればOKと思います

お礼

ありがとうございました