Public Class Form1
Dim a As Integer
Function cuadrado(ByVal a As Integer) As Integer
cuadrado = a * a
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As system.EventArgs) Handles Button1.Click
a = TextBox1.Text
Dim B As Integer = cuadrado(a)
Label3.Text = B
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Show()
End Sub
End Class
miércoles, 7 de mayo de 2008
Función Cuadrado
Suscribirse a:
Enviar comentarios (Atom)
1 comentario:
Public Class Form1
Dim numero, tope, respuesta, c1 As Integer
Function multi(ByVal a As Integer) As Integer
multi = a
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
numero = TextBox1.Text
tope = TextBox2.Text
For c1 = 0 To tope
respuesta = c1 * multi(numero)
ListBox1.Items.Add(respuesta)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Clear()
End Sub
End Class
Publicar un comentario