Universitario
Private Sub btnVerTabla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerTabla.Click
For a As Integer = 1 To 10 Step 1txtRes.Text = txtRes.Text & txtDato.Text & " x " & a & vbTab & " = " & vbTab & txtDato.Text * a & vbCrLf
Next a
txtNum.Text = txtDato.Text
End Sub
Private SubbtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
Private Sub btnNueva_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnNueva.Click
txtRes.Text = ""
txtDato.Text = ""
txtNum.Text = ""
txtDato.Focus()
End Sub
Private Sub Form1_Load(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Created by GeSHI 1.0.8.6
En lo que puedan aportar y colaborar, muchas gracias... &
Dimresultado As Double
Dim num, lim As Double
Private Sub Botonborrar_Click()
Limite.Text = " "
Numero.Text = " "
Tabla.Clear
num = 0
lim = 0
Numero.SetFocus
End Sub
Private SubBotoncalcular_Click()
If Numero.Text = " " Then
MsgBox "Debe digitar un numero", 32, "Error"
Numero.SetFocus
Else
For cont = 1 To lim
resultado = num * cont
Tabla.AddItem " " & num & " x " & cont & " = " &resultado
Next
End If
End Sub
Private Sub Botonsalir_Click()
End
End Sub
Private Sub Form_Load()
Numero.Text = " "
End Sub
Private Sub Limite_Change()
If Numero.Text " " Then
lim =Limite.Text
End If
End Sub
Private Sub Limite_KeyPress(KeyAscii As Integer)
If KeyAscii 57 Then
KeyAscii = 0
End If
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
1 etiqueta
2 cajas de texto
1...
Regístrate para leer el documento completo.