1. Faça um programa que permita visualizar a tabuada do 1 a 10, consoante o valor que o utilizador
introduzir. A tabuada deve se visualizada numa Listbox.
Option Explicit
Private Sub cmdTab_Click()
Dim x As Integer, num As Integer
List1.Clear
Do
num = Val(InputBox("introduza o valor da tabuada que deseja?", "Tabuada"))
Loop While (num < 1 Or num > 10)
For x = 1 To 10
List1.AddItem num & " x " & x & " = " & num * x
Next x
End Sub
2. Escreva um programa que permita saber se um determinado número é primo.
a) Rescreva o programa da linha anterior de forma a permitir ao utilizador gerar todos os n.ºs primos
até um determinado limite.
Option Explicit
Private Sub cmdPrim_Click()
Dim num As Integer, x As Integer, i As Integer, ndiv As Integer
List1.Clear
num = Val(txtNum.Text)
If num < 0 Then num = -num
For x = 1 To num
ndiv = 0
For i = 1 To x
If x Mod i = 0 Then ndiv = ndiv + 1
Next i
If ndiv <= 2 Then List1.AddItem x
Next x
End Sub
3. Faça um programa que permita achar o quociente e o resto da divisão de dois números positivos, sem
utilizar o operador de divisão e a função mod.
Option Explicit
Private Sub cmdIgual_Click()
Dim dividendo As Integer, divisor As Integer, quociente As Integer, resto As Integer
Dim dif As Integer
dividendo = Val(txtDividendo.Text)
divisor = Val(txtDivisor.Text)
If dividendo >= 0 And divisor >= 0 Then
dif = dividendo - divisor
If divisor <> 0 Then
If dif < 0 Then
quociente = 0
resto = dividendo
Else
quociente = 1
While (dif >= divisor)
quociente = quociente + 1
dif = dif - divisor
Wend
resto = dif
End If
lblRes.Caption = "quociente = " & quociente & " e resto = " & resto
Else
lblRes.Caption = "Divisão por 0"
End If
Else
lblRes.Caption = " Este programa só efectua divisões para valores positivos"
End If
End Sub