[sendbad100]

السلام عليكم

تم نقل الموضوع لقسم الاسئلة

ارجوا ان تضع مواضيعك في القسم المناسب

انظر فكرة الكود التالي  هل هي المطلوب

PHP كود :

[align=center]Private Sub Command1_Click()[/align]

Dim n1, n2, n3 As Double
'n1 = 1500 / 2
n1 = 30000 / 4
If n1 < 1000 Then
    n2 = Val(Left(n1, 1)) * 100
    

ElseIf n1 < 10000 Then
 n2 = Val(Left(n1, 1)) * 1000

End If
n3 = n1 - n2
MsgBox n2, , n3

End Sub