Duda con mshflexgrid

Hola experto, antes que nada agradezco tu disposición, mi consulta es la siguiente:

Realizo una aplicación donde pido un numero por inputbox y desde cero hasta ese numero ingresado calcular cuadrados y cubos.

Para mostrar el calculo uso un mshflexgrid, pero supongamos que el usuario introduce un 5

El mismo muestra:

Numero Cuadrado Cubo

0 0 0

1 1 1

2 4 8

5 25 125

Siempre me calcula hasta faltar dos números al numero ingresado y salta al final.

Mi código es:

Private Sub Form_Load()

'cabeceras columnas
With MSHFlexGrid1
.TextMatrix(0, 0) = "Número"
.TextMatrix(0, 1) = "Cuadrado"
.TextMatrix(0, 2) = "Cubo"
End With
End Sub

'cálculos

Private Sub Command1_Click()
numero = CInt(InputBox("Introducir número: "))
MSHFlexGrid1.Rows = numero
Dim j As Integer
j = 1
For i = 0 To numero
cuadrado = i ^ 2
cubo = i ^ 3
MSHFlexGrid1.TextMatrix(j, 0) = i
MSHFlexGrid1.TextMatrix(j, 1) = cuadrado
MSHFlexGrid1.TextMatrix(j, 2) = cubo
If j < numero - 1 Then
j = j + 1
End If
Next i
End Sub

Agradezco su ayuda!!!

1 respuesta

Respuesta
1

Acá esta:

Private Sub Command1_Click()
numero = CInt(InputBox("Introducir número: "))
MSHFlexGrid1.Rows = numero + 2 ' este era el problema
Dim j As Integer
j = 1
For i = 0 To numero
cuadrado = i ^ 2
cubo = i ^ 3
MSHFlexGrid1.TextMatrix(j, 0) = i
MSHFlexGrid1.TextMatrix(j, 1) = cuadrado
MSHFlexGrid1.TextMatrix(j, 2) = cubo
j = j + 1
Next i
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas