Gerekenler:Yok
*************************
Option Explicit
Dim x, i, ek, eb As Integer
Private Sub Form_Load()
While i < 10
i = i + 1
x = Val(InputBox("sayıyı gir="))
If i = 1 Then
ek = x
eb = x
ElseIf ek > x Then ek = x
ElseIf eb < x Then eb = x
End If
Wend
MsgBox ("eb = " & eb & " ek = " & ek)
End Sub
*************************
|