1-
Dim Today
Today = Date
Print " Today is " & Today
Dim RightNow
RightNow = Time
Print " the Time Now Is " & RightNow
IF Grad >=33 THEN
Result" ناجح " =
Else
Result" غير مجتاز " =
END IF
1- مانتيجة تنفيذ العلمية التالية على جهاز الحاسب