Ficha 14-1 à 14-9

Private Sub Command1_Click()
Dim n As Integer, num As Integer, i As Integer

num = Val(InputBox("Introduza o número", "Form1"))

If num = 0 Then
num = MsgBox("Introduza um número!", vbOKOnly + vbInformation, "Informação")
ElseIf num > 0 Then
For n = 2 To num - 1
If num Mod n = 0 Then
i = 1
End If
Next n
If i = 1 Then
Picture1.Print Tab(7); num; "nao é primo"
Else
Picture1.Print Tab(8); num; "é primo"
End If
End If

End Sub





Private Sub Command1_Click()

Dim i As Integer, cont1 As Integer, cont2 As Integer, n As Integer

cont1 = 0
cont2 = 0

Picture1.Cls
Picture1.Print "| ";

For i = 1 To 10
n = Val(InputBox("introduza " & i & "º número", " "))
If n >= 10 And n <= 50 Then
cont1 = cont1 + 1
End If

If n < 10 Or n > 50 Then
cont2 = cont2 + 1
End If

Picture1.Print n & " | ";
Next i

Picture1.Print ""
Picture1.Print "Dentro do intervalo: "; cont1
Picture1.Print "Fora do intervalo: "; cont2

End Sub

Private Sub Command2_Click()

Picture1.Cls

End Sub




Private Sub command1_click()
Dim n As Integer, pares As Integer, cont As Integer, med As Single

cont = 0
soma = 0

For pares = 13 To 73
If pares Mod 2 = 0 Then
npares.Print pares;
soma = soma + pares
cont = cont + 1
End If

If cont = 6 Then
npares.Print Chr(13)
cont = 0
End If
Next pares

med = soma / pares

media.Print Tab(3); Round(med, 0)

End Sub

Private Sub Command2_Click()

End

End Sub




Private Sub Command1_Click()

Dim n As Integer, num As Integer

num = Val(InputBox("Introduza a numero"))

If num = 0 Then
num = MsgBox("Introduza um nº para corresponder á tabuada!", vbOKOnly + vbExclamation, "Informação")
Else
For n = 1 To 10
soma = n * num
Picture1.Print num & " * " & n & " = " & soma
Next n

End If

End Sub



Private Sub cmd1_Click()

Dim n As Integer, soma As Integer, idade As Integer, num As Integer, media As Single

num = Val(InputBox("Quantos alunos são??", "Idades"))
If num = 0 Then
num = MsgBox("Digite um número correspondente ao nº de alunos", vbOKOnly + vbInformation, "Informação")
Else
For n = 1 To num
idade = Val(InputBox("Introduza a " & n & "º idade", "Idades"))
soma = soma + idade
If idade = 0 Then
MsgBox "Introduza uma idade válida", vbOKOnly + vbInformation, "Informação"
End If
Next n

media = soma / num

Picture1.Print "A média das idades da turma de " & num & " é: " & media
Picture1.Print ""
If idade = 0 Then
Picture1.Cls
End If
End If
End Sub

Private Sub cmd2_Click()

Picture1.Cls

End Sub



Private Sub Command1_Click()

Dim num As Integer, soma As Integer, n As Integer

num = Val(InputBox("Introduza um numero!", "Form1"))
If num = 0 Then
MsgBox "Digite um número válido", vbOKOnly + vbInformation, "Informação"
End If
For n = 1 To num
If num Mod n = 0 Then
Picture1.Print n;
soma = soma + n
End If
Next n

Picture1.Print ""

End Sub

Private Sub Command2_Click()

Picture1.Cls

End Sub




Private Sub Command1_Click()

Dim num As Integer, soma As Integer, n As Integer

For n = 4 To 100
If n Mod 4 = 0 Then
Picture1.Print n;
soma = soma + n
End If
Next n

End Sub



Private Sub cmd2_Click()

Dim num As Integer, soma As Integer, n As Integer

For n = 7 To 200
If n Mod 7 = 0 Then
Picture1.Print n;
End If
Next n

End Sub




Private Sub cmd1_Click()

Dim n As Integer, i As Integer

For i = 1 To 100
n = n + i
Next i

Picture1.Print Tab(6); n

End Sub