Explicación del código en la computadora de programación VB
Private Sub Command1_Click(Index As Integer) 'Eventos de la matriz de botones
Text1.SetFocus 'el cuadro de texto texto1 obtiene el foco
num = num Command1(Index) .Caption 'La variable num es igual al nombre del botón actual en sí mismo
Text1.Text = num 'Deja que el cuadro de texto text1 muestre el valor de la variable num
Fin Sub