Diferencia entre revisiones de «Bombilla»

De Wikipedia, la enciclopedia libre
Contenido eliminado Contenido añadido
Sin resumen de edición
Diegusjaimes (discusión · contribs.)
m Revertidos los cambios de 201.156.1.195 a la última edición de Maleiva
Línea 7: Línea 7:
{{wikcionario|bombilla}}
{{wikcionario|bombilla}}
{{desambiguación}}
{{desambiguación}}






Public Class Form1
Dim A(2, 3)
Dim i, j As Integer
Dim B(3, 2)
Dim C(2, 2)
Dim MatrizA As String
Dim MatrizB As String
Dim MatrizC As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 1 To 2
For j = 1 To 3
A(i, j) = InputBox("Enter the element")
Next
Next


End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MatrizA = ""
For i = 1 To 2
For j = 1 To 3
MatrizA = MatrizA & A(i, j) & Chr(9)

Next
MatrizA = MatrizA & Chr(13) & Chr(10)
Next
RichTextBox2.Text = MatrizA

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
For i = 1 To 3
For j = 1 To 2
B(i, j) = InputBox("Enter the element")
Next
Next
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
For i = 1 To 3
For j = 1 To 2
MatrizB = MatrizB & B(i, j) & Chr(9)

Next
MatrizB = MatrizB & Chr(13) & Chr(10)
Next
RichTextBox1.Text = MatrizB
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
For i = 1 To 2
For j = 1 To 2
C(i, j) = A(i, 1) * B(1, j) + A(i, 2) * B(2, j) + A(i, 1) * B(j, 1) + A(i, 2) * B(j, 2) + A(1, j) * B(1, j) + A(2, j) * B(2, j) + A(j, 1) * B(j, 1) + A(j, 2) * B(j, 2)

Next
Next
MatrizC = ""
For i = 1 To 2
For j = 1 To 2
MatrizC = MatrizC & C(i, j) & Chr(9)
Next
MatrizC = MatrizC & Chr(13) & Chr(10)
Next
RichTextBox3.Text = MatrizC
End Sub
End Class

Revisión del 15:27 22 abr 2010

Como bombilla se conoce a: