حاصل تقسیم به صورت اعشاری

[mona rahimi]

برنامه اي كه 2 عدد صحيح و2 عدد اعشاري با دقت بالا و پايين را از ورودي گرفته حاصل تقسيم دو عدد صحيح را با 4 رقم اعشار دقت و 2 عدد اعشاري را رند كرده و چاپ كند.
vb6

 

[the_king]

برنامه اي كه 2 عدد صحيح و2 عدد اعشاري با دقت بالا و پايين را از ورودي گرفته حاصل تقسيم دو عدد صحيح را با 4 رقم اعشار دقت و 2 عدد اعشاري را رند كرده و چاپ كند.
vb6

Private Sub Form_Load()
    Dim a As Long, b As Integer
    Dim x As Double, y As Single
    a = Val(InputBox("Please enter a number (long) :"))
    b = Val(InputBox("Please enter a number (integer) :"))
    x = Val(InputBox("Please enter a number (double) :"))
    y = Val(InputBox("Please enter a number (single) :"))
[B][COLOR="Blue"]    MsgBox Round(a / b, 4)[/COLOR][/B]
    MsgBox Round(x / y)
End Sub

برای نمایش با 4 رقم ثابت بعد از اعشار، حتی اگر صفر باشند :

    MsgBox Format(a / b, "0.0000")