1.
Código:
Private Sub Command1_Click()
Dim cont As Integer, num As Integer
cont = 0
MsgBox "Introduza -1 para acabar de introduzir dados", vbInformation, "Aviso"
Do
Do
num = Val(InputBox("Introduza números inteiros", "Entrada de dados"))
If num < -1 Then
MsgBox "O valor que introduziu é inválido", vbInformation, "Aviso"
End If
Loop While num < -1
If num Mod 2 = 0 Then
cont = cont + 1
End If
Loop While num <> -1
MsgBox "Foram introduzidos " & cont & " números par.", vbInformation, "Saída"
End Sub
2.
Código:
Private Sub Command1_Click()
Dim soma As Integer, media As Single, num As Integer
soma = 0
cont = 0
Do
num = Val(InputBox("Introduza um número", "Entrada de dados"))
If num Mod 2 <> 0 Then
soma = soma + num
End If
cont = cont + 1
Loop while cont < 10
media = soma / 10
MsgBox "A média dos números impares que introduziu é " & media, vbInformation, "Saída"
End Sub
3.
Código:
Private Sub Command1_Click()
Dim i As Integer
i = 1
Do While i <= 20
MsgBox "O quadrado do número " & i & " é: " & i ^ 2, vbInformation, "Saída"
i = i + 1
Loop
End Sub
4.
Código:
Private Sub Command1_Click()
Dim soma As Integer, media As Single, num As Integer, i As Integer
i = 0
soma = 0
MsgBox "Para acabar a sequência introduza um número positivo", vbInformation, "Aviso"
Do
num = Val(InputBox("Introduza um número negativo", "Entrada de dados"))
If num < 0 Then
soma = soma + num
i = i + 1
End If
Loop While num < 0
media = soma / i
MsgBox "A soma dos " & i & " números é " & soma & " e a média é " & media, vbInformation, "Saída"
End Sub
5.
Código:
Private Sub Command1_Click()
Dim soma As Integer, media As Double, maioridade As Integer, menoridade As Integer, i As Integer
soma = 0
i = 0
maioridade = 0
menoridade = 100
MsgBox "Introduza 0 para acabar a sequência de idades", vbInformation, "Aviso"
Do
Do
num = Val(InputBox("Introduza uma idade", "Entrada de dados"))
If num < 0 Or num > 120 Then
MsgBox "A idade introduzida é inválida", vbInformation, "Aviso"
End If
Loop While num < 0 Or num > 120
soma = soma + num
If num > maioridade Then
maioridade = num
End If
If menoridade > num And num <> 0 Then
menoridade = num
End If
If num <> 0 Then
i = i + 1
End If
Loop While num <> 0
media = soma / i
MsgBox "Foi introduzido as idades de " & i & " pessoas, sendo a maoir idade " & maioridade & " e a menor idade " & menoridade & ". A média das idades é " & media, vbInformation, "Saída"
End Sub
Sem comentários:
Enviar um comentário