Partial Class carro Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim pessoas As Integer = Convert.ToInt32(TextBox1.Text) Dim resultado As String Dim i As Integer Dim j As Integer Dim carro1 As Integer Dim carro2 As Integer If pessoas > 7 Then 'Primeiro verifico se é maior que a o maximo de lugares q tenho em um carro, caso seja maior eu faço a divisão Dim resto As Integer = 0 Dim dividen As Integer = 0 resto = pegaresto(pessoas) ' Função que me retorna o resto dividen = pegadividendo(pessoas) ' Função que me retorna a qnt de carro de sete lugares For j = 1 To 6 ' Aki eu pego o resto que claro vai ser menor que 7 ou seja vou pegar só mais um carro de 1,2,3,4,5 ou 6 lugares If resto = j Then carro2 = j End If Next resultado = "Quantidade de carros com 7 lugares= " & dividen & ", Quantidade de carros com " & carro2 & " lugares= 1" Else For i = 1 To 7 ' Aki é caso seja menor ou igual a 7 lugares ai é só verificar qual carro vou pegar If pessoas = i Then carro1 = i End If Next resultado = "Quantidade de carros com " & carro1 & " lugares = 1" End If Label1.Text = resultado End Sub Public Function pegaresto(ByVal numero As Integer) Dim resto As Integer = 0 resto = Math.Round(numero Mod 7) Return resto End Function Public Function pegadividendo(ByVal numero As Integer) Dim dividen As Integer = 0 dividen = Math.Round(numero / 7) Return dividen End Function End Class
Espero que isso resolva seu problema Qualuqer duvida poste aqui pra eu te ajudar. T+