من تمارين vb : كيفية معرفة اكبر رقم من بين 10 ارقام مدخلة؟

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



Code:


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

 

فيجوال بيسك العرب

Share |

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