Crea un formulario con ocho etiquetas, ocho cajas de texto, un control Microsoft Hierarchical FlexGrid (haz clic con el botón derecho del ratón sobre la caja de herramientas y haz clic en Componentes, selecciona la casilla Microsoft Hierarchical FlexGrid Control 6.0 y haz clic en Aceptar) tres botones y escribe el siguiente código:

Doble clic sobre el formulario

Private Sub Form_Load()

grdmenu.Cols = 2

grdmenu.Rows = 8

grdmenu.FixedCols = 0

grdmenu.FixedRows = 1

grdmenu.TextArray(0) = "Menú"

grdmenu.TextArray(1) = "Precio"

grdmenu.TextArray(2) = "Burrito"

grdmenu.TextArray(3) = "9.50"

grdmenu.TextArray(4) = "Burger"

grdmenu.TextArray(5) = "12.75"

grdmenu.TextArray(6) = "Torta"

grdmenu.TextArray(7) = "8.25"

grdmenu.TextArray(8) = "Refresco"

grdmenu.TextArray(9) = "4.00"

grdmenu.TextArray(10) = "Cerveza"

grdmenu.TextArray(11) = "15.60"

grdmenu.TextArray(12) = "Ensalada"

grdmenu.TextArray(13) = "14.45"

grdmenu.TextArray(14) = "Hot Dog"

grdmenu.TextArray(15) = "6.90"

End Sub

El botón Aceptar

Private Sub Command1_Click()

Dim burrito As Integer, burger As Integer

Dim torta As Integer, refresco As Integer

Dim cerveza As Integer, ensalada As Integer

Dim hotdog As Integer, ventatotal As Double

burrito = Val(Text1)

burger = Val(Text2)

torta = Val(Text3)

refresco = Val(Text4)

cerveza = Val(Text5)

ensalada = Val(Text6)

hotdog = Val(Text7)

ventatotal = burrito * 9.5 + burger * 12.75 + torta * 8.25 + refresco * 4.60 + cerveza * 15.6 + ensalada * 14.45 + hotdog * 6.9

Text8 = Str(ventatotal)

End Sub

El botón Limpiar

Private Sub Command2_Click()

Text1 = "": Text2 = ""

Text3 = "": Text4 = ""

Text5 = "": Text6 = ""

Text7 = "": Text8 = ""

text9 = "": Text1.SetFocus

End Sub

El botón Salir

Private Sub Command3_Click()

Unload Me

End

End Sub