طريقة لمعرفة أكبر رقم من بين 10 أرقام مدخلة

Function ReturnLargest(ByVal i As Integer, ByVal Number As Integer, ByVal MaxNumber As Integer)

MaxNumber = 0

For i = 1 To 10

Number = InputBox("أدخل رقم بين 1 و 32000", "Number")

Print Number

If MaxNumber > i Then

    MaxNumber = MaxNumber

Else

    MaxNumber = Number

End If

Next i

Print vbNewLine

Print "أكبر رقم هو " & MaxNumber

End Function

Private Sub Command1_Click()

Dim Max, Count, Number, Largest As Integer

Max = ReturnLargest(Count, Number, Largest)

End Sub

 



http://www.arabteam2000-forum.com

Share |

معلومات إضافية