Programación del tipo de cambio Vb

Dale a LZ una calculadora simple del programa VB Comando1: Hay 11 elementos, los primeros 10 elementos representan números del 0 al 9 respectivamente y los 11 elementos representan el punto decimal. Comando2: Hay cinco elementos, cada elemento representa el operador , -, *, / y Mod respectivamente.

Comando3: El valor del atributo del título es Cls. Comando4: El valor del atributo del título es =. Comando5: El valor del atributo del título es Salir. Público a, b Como doble CalKey pública Como cadena Subcomando privado 1 _ Click(Índice como entero)' 0 1 2 3 4 5 6 7 8 9 texto 1. Texto = Recortar(Texto1.Texto) si Texto1. Texto = "0 "luego Texto1. Text = " " Si Index lt= 9 entonces envíe el mensaje de texto 1. Texto = Texto1. Formato de amplificador de texto(Índice)de lo contrario, si Índice = 10, entonces Texto1. Texto = Texto1. Amp de texto"."end IfEnd Sub Private Sub comando 2 _ Click(Índice como entero)' -*/\ a = Val(texto 1. Texto) Seleccionar índice de caso Caso 0 CalKey = " " Caso 1 CalKey = "-" Caso 2 CalKey = " * " Caso 3 CalKey = "/" Caso 4 CalKey = " \ " Fin Seleccione si Índice <= 3, luego ingrese 1. text = " " End IfEnd Sub Private Sub comando 3 _ Click()' Cls texto 1. text = " " End Sub Private Sub comando 4 _ Click()' = b = Val(texto 1. texto)Seleccionar caso CalKey Caso " " texto 1. texto = a b Caso "-" texto 1. Texto = a - b Caso "* " Texto1. texto = a * b Caso "/" Si b lt; >