طلب كود بسيط لايجاد أكبر واصغر رقم

أولاً من صورة البرنامج واضح أنه للقسم الدوت نيت ولكن سأجيبك

توجه إلى هذا الرابط :إضغط هنا

ملاحظة عرف المصفوفة كمربعات النصوص أي

Dim x(3) As Integer

x(0) = TextBox1.Text

x(1) = TextBox2.Text

x(2) = TextBox3.Text

x(3) = TextBox4.Text

السلام عليكم

لإيجاد اكبر رقم

Max = 0
For i = 0 To 3
If Val(Text1(i).Text) > Max Then
  Max = Val(Text1(i).Text)
End If
Next
Text2.Text = Max

واصغر رقم

Min = Val(Text1(0).Text)
For i = 0 To 3
If Val(Text1(i).Text) < Min Then
  Min = Val(Text1(i).Text)
End If
Next
Text3.Text = Min

وبالتوفيق

مرفق البرنامج

project1.rar