vbi-56

Private Sub Command1_Click()
    Dim i, s, n(0 To 9) As Integer
    s = 0
    For i = 0 To 9
        n(i) = InputBox("Enter Number", "Integer Needed")
    Next i
    For i = 0 To 9
        If n(i) > s Then
            s = n(i)
        End If
    Next i
    Text1.Text = s
End Sub
Private Sub Command2_Click()
    End
End Sub

VBO 56.PNG

Advertisements