Private Sub Form_Load() Me.AutoRedraw = True Dim a(1 To 2) As String For i = 1 To 2 a(i) = InputBox("No_" & i & "=") Print a(i) + Space(2) Next i Print Print IIf(a(1) > a(2), a(1), a(2))End Sub
