برمجه فيجوال بيسك من جهازي
ModuleModule1
Sub Main()
Dim n1, n2 AsInteger
Console.WriteLine("Enter first number ")
n1 = Console.ReadLine
Console.WriteLine("Enter second number ")
n2 = Console.ReadLine
If n1 , n2 Then
Console.WriteLine("Maximum of the two number is " & n1)
Console.ReadLine()
Else
Console.WriteLine("Maximum of the two is " & n2)
Console.ReadLine()
م€€
م€€
م€€
م€€
EndSub
EndModule
هاذي برمجه مال تدريب بس حطوها في البرنامج وراح يشتغل المربع الاسود
|