miércoles, 12 de noviembre de 2008

TABLAS DE MULTIPLICAR HASTA 1000



Dim num As Integer
Dim resultado As Double

Private Sub BOTONBORRAR_Click()
NUMERO.Text = " "
TABLA.Clear
NUMERO = 0
NUMERO.SetFocus
End Sub

Private Sub BOTONCALCULAR_Click()
If NUMERO.Text = " " Then
MsgBox "DEBE DIGITAR UN NUMERO", 16, "ERROR"
NUMERO.SetFocus
Else
For CONT = 1 To 1000
resultado = num * CONT
TABLA.AddItem " " & num & " x " & CONT & " = " & resultado
Next
End If
End Sub

Private Sub BOTONSALIR_Click()
End
End Sub

Private Sub NUMERO_Change()
If NUMERO.Text <> " " Then
num = NUMERO.Text
End If
End Sub

Private Sub NUMERO_KeyPress(KeyAscii As Integer)
If KeyAscii <> 57 Then
KeyAscii = 0
End If
End Sub