تعيين تعداد اعشار براي متغيير double

[relax_cp]

سلام
به چه روشي مي توان متغيري تعريف كرد كه بتواند تا 2 رقم اعشار را نمايش دهد.

[mohsen0025]

با سلام با استفاده از دستور Format

کد:

Private Sub Command1_Click()
Dim DC As Double
DC = 5 / 3
Text1.Text = Format(DC, "###.##")
End Sub