Keskustelu: Ohjelmointikysymykset: VB6: lukujen järjestely

elikkä miten teen tän saman jutut helpommalla tavalla. siihen pitäis olla yksi helpompi tapa mutta mikä?

Private Sub Command1_Click()
Dim luku1 As Integer
Dim luku2 As Integer
Dim luku3 As Integer
Dim max As Integer

luku1 = InputBox("Anna ensimmäinen luku: ", "luku1")
luku2 = InputBox("Anna toinen luku: ", "luku2")
luku3 = InputBox("Anna kolmas luku: ", "luku3")

If luku1 > luku2 Then
If luku1 > luku3 Then
max = luku1
Else: max = luku3
End If
Else
If luku2 > luku3 Then
max = luku2
Else
max = luku3
End If
End If
Print max
End Sub

No tässä on aina yksi jonkun verran helpompi (tai ainakin lyhyempi) tapa.

Private Sub Command1_Click()
ReDim luvut(3) As String
Dim max As Integer

For i = 1 To 3
luvut(i) = InputBox("Anna luku " & i & ": ", "Luku " & i)
  If Val(luvut(i)) > max Then
    max = luvut(i)
  End If
Next

Print max

End Sub