Page 77 - أساسيات الحاسب الالي2

‫جمل التحكم‬ ‫الفصل الرابع‬

sum += i
i = Console.ReadLine
Loop
av = sum / count
Console.WriteLine(" You Entered " & count & " and their
average = " & av)
Console.Read()
End Sub

‫فى المثال السابق يمكننا تعديله ﻹيجاد اكبر هذه القيم‬
Sub Main()

Dim i, count, sum, max As Integer
i = Console.ReadLine
max = i
Do While (i <> 0)

count += 1
i = Console.ReadLine
If max < i Then max = i

٧٧