[متميزه]

نونو ماختبرت البرنامج>>لانه ماعندي فجول
فاعلميني بالنتيجه^^

Private Sub Command1_Click( )
Dim s As Single
S= Text1.Text
SELECT CASE S
CASE 2000 to 2900
Text2.Text =360+S
CASE 3000 to 3900
Text2.Text=450+S
CASE 4000 to 5000
Text2.Text=600+S
CASE 5100 to 6000
Text2.Text=500+S
CASE 6100 to 8000
Text2.Text=700+S
CASE ELSE
(" السعر غير متاح ") Msgbox
END SELECT
End Sub




Private Sub Command1_Click( )
("اسعار المحمول .. مقدار غلاء الأسعار") MsgBox
End Sub