Progra

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Command10_Click()
Unload Me
End Sub

Private Sub Command11_Click()
Form11.Show
End Sub

Private Sub Command2_Click()Form3.Show
End Sub

Private Sub Command3_Click()
Form4.Show
End Sub

Private Sub Command4_Click()
Form5.Show
End Sub

Private Sub Command5_Click()
Form6.Show
End Sub

Private SubCommand6_Click()
Form7.Show
End Sub

Private Sub Command7_Click()
Form8.Show
End Sub

Private Sub Command8_Click()
Form9.Show
End Sub

Private Sub Command9_Click()
Form10.Show
End Sub

VentasPrivate Sub Command1_Click()
Total = Val(V10) + Val(V11) + Val(V12)
Promedio = Val(Total) / 3
End Sub

Private Sub Command2_Click()
Unload Me
End Sub
Notas
Private Sub Command1_Click()
Total =Val(B1) + Val(B2) + Val(B3) + Val(B4)
Promedio = Val(Total) / 4
End Sub

Private Sub Command2_Click()
Unload Me
End Sub
Calculadora
Private Sub Command1_Click()
Suma = Val(A) + Val(B)
End SubPrivate Sub Command2_Click()
Resta = Val(A) - Val(B)
End Sub

Private Sub Command3_Click()
Multiplicacion = Val(A) * Val(B)
End Sub

Private Sub Command4_Click()
Division = Val(A) / Val(B)End Sub

Private Sub Command5_Click()
Unload Me
End Sub
Area de un Rectangulo
Private Sub Command1_Click()
Area = Val(L1) * Val(L2)
End Sub

Private Sub Command2_Click()
Unload Me
EndSub
Velocidad
Private Sub Command1_Click()
Velocidad = Val(Espacio) / Val(Tiempo)
End Sub

Private Sub Command2_Click()
Unload Me
End Sub
Area de un triangulo

Private Sub Command1_Click()Area = Val(Base) * Val(Altura) / 2
End Sub

Private Sub Command2_Click()
Unload Me
End Sub
Area de un hexaedro
Private Sub Command1_Click()
Area = Val(Lado) * Val(Lado) * 6
End Sub

PrivateSub Command2_Click()
Unload Me
End Sub
Volumen de un tetaedro
Private Sub Command1_Click()
Volumen = Sqr(Val(Arista) * Val(Arista)) / 12 * Sqr(2)
End Sub

Private Sub Command2_Click()...