1.: Construa um programa em visual basic que solicite dez números e ao clicar em um botão de comando, o computador deve mostrar qual é o maior valor digitado e qual é o menor valor. O programa deve verificar também se não existem valores repetidos, ou seja, não podem existir dois números iguais na lista digitada pelo usuário, se isso acontecer, o programa deve pedir ao usuário que digite novos números nas caixas de texto correspondentes.

Boa noite!!

Veja se da para tirar proveito dessa rotina...


Sub ValorMinimo()
Dim Minimo
Dim i As Long

Minimo = "A"
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, "D").Value <> 0 And Cells(i, "D").Value <> "" Then
If Minimo = "A" Then
Minimo = Cells(i, "D").Value
Else
If Cells(i, "D").Value < Minimo Then
Minimo = Cells(i, "D").Value
End If
End If
End If
Next
MsgBox "Mínimo: " & Minimo
End Sub


Att..