realizar las tablas de multiplicar de los datos de una matriz nxn
Publicado por ALEJANDRO (2 intervenciones) el 22/06/2021 02:06:19
hola que tal tengo este codigo y el objetivo es sacar las tablas de multiplicar de los datos que se inserten en la matriz
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim n, i, j, K As Integer
Dim a(100, 100) As Integer
Dim b(100, 100) As Integer
n = InputBox("dimensiones de la matriz:A(n x n) n=")
For i = 1 To n
For j = 1 To n
a(i, j) = InputBox("a(" & i & "," & j & ")=")
Next
Next
For K = 1 To 10 STEP 1
For i = 1 To n
For j = 1 To n
b(i, j) = a(i, j) * K
Next
Next
Next
For i = 1 To n
For j = 1 To n
MsgBox("a(" & i & "," & j & ")=" & b(i, j))
Next
Next
End
Valora esta pregunta


0