Liczy liczbę największą. Na jego podstawie łatwo zrobić podobny programik liczący liczbę najmniejszą.
Dim x, n, i, max As Integer
Private Sub koniec_Click()
Unload Me
End
End Sub
Private Sub n1_Change()
'w tym polu obliczy, ta liczbę z podanych, która jest największa'
n = CInt(n1.Text)
End Sub
Private Sub podaj_Click()
'oblicza największą liczbę z podanych'
For i = 1 To n
x = CInt(InputBox("Podaj x", "Podaj liczbę kochanie"))
If x > max Then
max = x
End If
x1.Text = x1.Text + Str(x) + " "
Next i
wynik = Str(max)
End Sub
