Dim T As Integer
Dim A, B, C, D, F As String
Sub Main()
T = 0
For T As Integer = 0 To 10
Exit For
Next
If T >= 90 Then
Console.WriteLine("A")
ElseIf T >= 80 Then
Console.WriteLine("B")
ElseIf T >= 70 Then
Console.WriteLine("C")
ElseIf T >= 60 Then
Console.WriteLine("D")
ElseIf T >= 0 And T <= 59 Then
Console.WriteLine("F")
End If
Console.ReadLine()
End Sub
ارجو المساعده
السلام عليكم ورحمة الله وبركاته
أخوي "فقير لله" كلنا فقراء إلى الله هههه ... طبيعي أن البرنامج لا يعمل ... لأن به أخطاء
هل البرنامج هذا من مصدر معين أم هي محاولات شخصية ؟؟؟؟
يبدو لي أنه لمعرفة تقدير الطالب من خلال درجته ... عموما جرب هذا الكود
Sub Main()
1:
Dim Mark As Integer
Console.Write("Enter Your Mark: ")
Mark = Val(Console.ReadLine())
If Mark >= 90 Then
Console.WriteLine("A")
ElseIf Mark >= 80 Then
Console.WriteLine("B")
ElseIf Mark >= 70 Then
Console.WriteLine("C")
ElseIf Mark >= 60 Then
Console.WriteLine("D")
ElseIf Mark >= 0 And Mark < 60 Then
Console.WriteLine("F")
End If
GoTo 1و والله والله اني اتعلم انا الحمد لله توني تخرجت من الجامعه العربيه المفتوحه تقنية معلومات وحاسب الي
وودي اعمق فالبرمجه
اخ اخوي دخل بسمي مرتين هو اول سنه فالجامعه وحاول يحل واجبات قدر
لكن ما
ا اشكرك
حصل خير هههههه ... المهم ظبط معك الكود!!