Temas

bueno ese es mi problema que se introducen las matrices bien pero el problema es que cuando empuesa la primera operacion me marca un error me dice que el sub indice esta fuera del intervalo y me marca esta linea
d(k, l) = a(i, j) - c(i, j)

y segun el profe que me lo reviso estaba bien     aqui esta mi code

Código [Seleccionar] Expandir

For i = 1 To 3
For j = i To 3
a(i, j) = InputBox("introduce la matriz a")
Next j
Next i
For i = 1 To 3
For j = 1 To 3
b(i, j) = InputBox("introduce la matriz b")
Next j
Next i
For i = 1 To 3
For j = 1 To 3
c(i, j) = InputBox("introduce la matriz c")
Next j
Next i
For k = 1 To 3
For l = 1 To 3
d(k, l) = a(i, j) - c(i, j)
e(k, l) = 3 * b(i, j)
f(k, l) = 4 * a(i, j)
g(k, l) = e(i, j) - f(i, j)
h(1, 1) = d(1, 1) * g(1, 1) + d(1, 2) * g(2, 1) + d(1, 3) * g(3, 1)
h(1, 2) = d(1, 1) * g(1, 2) + d(1, 2) * g(2, 2) + d(1, 3) * g(3, 2)
h(1, 3) = d(1, 1) * g(1, 3) + d(1, 3) * g(2, 3) + d(1, 3) * g(3, 3)
h(2, 1) = d(2, 1) * g(1, 1) + d(2, 2) * g(2, 1) + d(2, 3) * g(3, 1)
h(2, 2) = d(2, 1) * g(1, 2) + d(2, 2) * g(2, 2) + d(2, 3) * g(3, 2)
h(2, 3) = d(2, 1) * g(1, 3) + d(2, 2) * g(2, 3) + d(2, 3) * g(3, 3)
h(3, 1) = d(3, 1) * g(1, 1) + d(3, 2) * g(2, 1) + d(3, 3) * g(3, 1)
h(3, 2) = d(3, 1) * g(1, 2) + d(3, 2) * g(2, 2) + d(3, 3) * g(3, 2)
h(3, 3) = d(3, 1) * g(1, 3) + d(3, 2) * g(2, 3) + d(3, 3) * g(3, 3)
Next l
Next k

y otra cosa no se como iprimirlo en un label sin que se borre el primer valor
osea que mi matriz sea
1,2,3
4,5,6
7,8,9
y se impima en ese orden por que si le doy
label1=a(1,1); a(1,2); a(1,3)
me marca error en el ;  me dice que se esperava fin de la instruccion 
y si le doy
label1=a(1,1)
label1=a(1,2)
etc etc  me borra el primer valor y solo se queda con el ultimo 

salu2

bueno lo que quiero saber es que como pongo el posision aleatoria el msgbox

lo que estoy asiendo es una broma que cuando el user pulse el boton de si aparescan 20 msgbox pero todos apareces en la parte de enmedio y quiero que cada vez que cierre uno aparezca otro en diferente posision de la pantalla

aqui les dejo el codigo para que vean mas o menos que es lo que quiero hacer

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
For a = 1 To 20
b = MsgBox("Y Ahora??", vbExclamation, "By Sadiko")
Next a
End Sub
'en esta parte del comand 2 si pulsa "no" la sentensia se repite infinitamente :P
Private Sub Command2_Click()
Dim a As Integer
For a = 1 To 20
a = MsgBox("Sha Como de que no", vbCritical, "By Sadiko")
Next a
End Sub



salu2