1.
Código:
Private Sub Command1_Click()
Dim cont As Integer, soma As Integer
soma = 0
For cont = 1 To 100
soma = soma + cont
Next cont
MsgBox "A soma dos primeiros 100 números naturais é " & soma, vbInformation, "Saída"
End Sub
2.
Código:
Private Sub Command1_Click()
Dim cont As Integer, mult As Integer
For cont = 1 To 199
mult = 0
mult = cont * 7
If mult < 200 Then
Picture1.Print cont * 7
End If
Next cont
End Sub
3.
Código:
Private Sub Command1_Click()
Dim cont As Integer
Picture1.Cls
For cont = 1 To 99
If cont Mod 4 = 0 Then
Picture1.Print cont
End If
Next cont
End Sub
4.
Código:
Private Sub Command1_Click()
Dim num As Integer, cont As Integer
Picture1.Cls
num = Val(InputBox("Introduza o número que quer descobrir os divisores", "Entrada de dados"))
For cont = 1 To num
If num Mod cont = 0 Then
Picture1.Print cont
End If
Next cont
End Sub
5.
Código:
Private Sub Command1_Click()
Dim nalunos As Integer, idade As Integer, soma As Integer, media As Single, cont As Integer
cont = 0
soma = 0
Do
nalunos = Val(InputBox("Introduza o número de alunos na turma", "Entrada de dados"))
If nalunos <= 0 Then
MsgBox "O número de alunos é inválido", vbCritical, "Aviso"
End If
Loop While nalunos <= 0
Do
Do
idade = Val(InputBox("Introduza a idade do aluno", "Entrada de dados"))
If idade <= 0 Then
MsgBox "A idade introduzida é inválida", vbCritical, "Aviso"
End If
Loop While idade <= 0
soma = soma + idade
cont = cont + 1
Loop While cont <> nalunos
media = Round(soma / nalunos, 2)
MsgBox "A média das idades da turma é " & media, vbInformation, "Saída"
End Sub
6.
Código:
Private Sub Command1_Click()
Dim i As Integer, num As Integer
Picture1.Cls
Do
num = Val(InputBox("Introduza o número da tabuada", "Entrada de dados"))
If num < 0 Then
MsgBox "Não existe a tabuada desse número", vbCritical, "Aviso"
End If
Loop While num < 0
For i = 1 To 10
Picture1.Print i & " * " & num & " = " & i * num
Next i
End Sub
7.
Código:
Private Sub Command1_Click()
Dim i As Integer, soma As Integer, media As Single, cont As Integer
cont = 0
soma = 0
For i = 13 To 73
If i Mod 2 = 0 Then
soma = soma + i
cont = cont + 1
End If
Next i
media = Round(soma / cont, 2)
MsgBox "A média dos pares é " & media, vbInformation, "Aviso"
End Sub
8.
Código:
Private Sub Command1_Click()
Dim dentro As Integer, fora As Integer, i As Integer, num As Integer
dentro = 0
fora = 0
For i = 1 To 10
num = Val(InputBox("Introduza um valor", "Entrada de dados"))
If num >= 10 And num <= 50 Then
dentro = dentro + 1
Else
fora = fora + 1
End If
Next i
MsgBox "Há " & dentro & " números dentro do intervalo e " & fora & " números fora do intervalo", vbInformation, "Saída"
End Sub
9.
Código:
Private Sub Command1_Click()
Dim num As Integer, cont As Integer, i As Integer
num = Val(InputBox("Introduza um número", "Entrada de dados"))
cont = 0
For i = 1 To num
If num Mod i = 0 Then
cont = cont + 1
End If
Next i
If cont = 2 Then
Label1.Caption = "O número é primo"
Else
Label1.Caption = "O número não é primo"
End If
End Sub
10.
Código:
Private Sub Command1_Click()
Dim aleatorio As Integer, i As Integer
Picture1.Cls
For i = 1 To 20
Randomize
aleatorio = (Int(Rnd() * 999) + 1000)
If aleatorio Mod 11 = 5 Then
Picture1.Print aleatorio
End If
Next i
End Sub
Sem comentários:
Enviar um comentário