Visual Basic - CODIGO CON CICLO FOR

HOLA A TODOS NECESITO AYUDA QUIESIERA SABER COMO HAGO PARA QUE AL COLOCAR UN NUMERO EN UN CAMPO ME LO REPITA LAS VECES QUE LE INDICO Y ME LO GUARDE DE UNA VEZ, POR EJEMPLO

CANTIDAD DE VECES: 2
ALTURA : 3
BASE: 4

QUE AL INDICARLE QUE LA CANTIDAD DE VECES ES 2 ME LO GENERE 2 VECES LA ALTURA Y LA BASE , SI LA CANTIDAD DE VECES FUERA 3 ME LO GENERA 3 VECES LA ALTURA Y LA BASE EN EL DATA GRID Y AL DARLE AL BOTON GUARDAR ME LO GUARDE DE UNA VEZ, ESPERO ME ENTIENDAN.

NO ENTENDI

POR EJEMPLO ESTE ES EL FORMULARIO:

CANTIDAD DE VECES: 2

ALTURA : 3

BASE: 4

BOTON GUARDAR BOTON VER BOTON CERRAR

QUE AL PRESIONAR BOTON GUARDAR SE GENERE DE LA SIGUIENTE MANERA EL DATAGRID

CANTIDAD DE VECES: ALTURA: BASE:
2 3 4
3 4

SI TE DAS CUENTA GENERO DOS VECES LA ALTURA Y LA BASE AUTOMATICAMENTE CON SOLO DECIRLE QUE LA GENERARA DOS VECES

AGRADECIENDO TU APOYO DE ANTEMANO

por lo poquito que entendí, mi sugerencia es:

al presionar el botón GUARDAR generes un ciclo, se supone que VECES, ALTURA y BASE ya deben de tener un valor numérico válido.

For i = 1 to VECES
If i = 1 Then
'es la primera vez así que pon en el datagrid en la primer columna
' el número de veces, en la segunda columna BASE y en la tercera ALTURA
DataGrid1.Columns(0).Text = VECES
DataGrid1.Columns(1).Text = BASE
DataGrid1.Columns(2).Text = ALTURA
Else
' si no es la primera vez solo pon en la primer columna el valor de BASE
' y en la segunda el valor de ALTURA
DataGrid1.Columns(0).Text = BASE
DataGrid1.Columns(1).Text = ALTURA
Endif
Next i

En este ejemplo falta la forma de como ir agregando filas al datagrid, aunque yo por lo general no lo hago directamente en el el DATAGRID, si no que agrego registros a un RecordSet y luego los muestro en el DataGrid

Set Rs = New ADODB.RecordSet
Rs.Open "SELECT * FROM tablaX", Conexion, ....., ......
Set DataGrid1.DataSource = Rs

Si agrego una fila al datagrid...

Rs.AddNew
Rs("campo1")=valor1
Rs("campo2")=valor2
......
Rs.Update
DataGrid1.Rebind

Espero te sirva y si no le entiendes o no es lo que buscas, lo especifiques un poco mejor... aun no logro entender la utilidad de esto, pero en fin, eso ya es otra cosa. Suerte

IVAN MUCHAS GRACIAS POR TU AYUDA YA LO VOY A EJECUTAR