Cada código tiene una explicación, espero que te sea de ayuda.
-
' Option Explicit 'El efecto de esta declaración es que requiere que se definan todas las variables del programa.
Dim num1, num As String 'define dos cadenas num1 y num.
' Dim c As Integer 'Define c como un número entero.
Subcomando privado 1_click (el índice es un número entero) 'El comando 1_click es el grupo de control (según el programa, se puede juzgar que es un número 1234567890), y el índice indica que el botón del control El grupo se obtiene automáticamente.
Texto1. 'SetFocus' hace que el cuadro de texto 1 sea el foco, lo que facilita la entrada, etc.
Núm = núm+comando1 (índice). "Título" coloca cada valor ingresado después del valor anterior. Por ejemplo, si hace clic en 1 por primera vez e ingresa 1 por segunda vez, el valor en este momento es 12. Piensa en el principio de una calculadora y lo entenderás.
Texto1. 'Text = num' muestra el valor final en el cuadro de texto text1.
Conector final
Subcomando privado 2 _ clic (índice como número entero)' es +-*/ varios botones de operación, obtiene automáticamente el valor del índice e ingresa al proceso.
num1 = num 'Haga que num1 sea igual a Num, guarde el valor de Num primero, para que Num pueda aceptar la segunda entrada y los números ingresados anteriormente no se perderán. Por ejemplo, 1*2, el número que ingresa primero es 1 y luego presiona [Multiplicar] para ingresar el segundo valor 2. Si no guarda el valor anterior primero, la segunda vez que ingrese 2, se sobrescribirá 1.
Texto1. Texto = " " 'Borrar el valor de texto1.
Num=" " 'Borrar el valor de Num.
C = Índice 'Según el índice, determine qué botón se ingresa en +-*/
Finalizar conector
Subcomando privado 3_Click()' comando del botón 3 es el botón raíz.
Si Val(Text1.Text)& ltSi el número ingresado es un número negativo, es 0.
MsgBox "Número negativo", signo de exclamación VB, " ^_^ " 'El mensaje no puede ser un número negativo.
Utilice Else para números positivos.
Texto1. text = sqr (val (text1.text))' encontrará la raíz del número y la mostrará en text1.
Terminará si...
Finalizar conector
Subcomando privado Botón 4_Click()' comando 4 buscar bloque.
' Texto1 . texto = val(texto 1 . texto)* val(texto 1 . texto)' hace que el valor del texto 1 sea igual a su propio cuadrado.
Núm = Texto1. 'Texto' asigna el valor obtenido al num.
Conector final
Subcomando privado 5_Click()' El comando 5 del botón se utiliza para ingresar un punto decimal.
Si instr (num, " ")T se usa para determinar si hay un punto decimal en el número de entrada num.
MsgBox "Ya tiene un punto decimal", signo de exclamación VB, mensaje "^_^" si existe.
Otro
Num = num+". Si no hay punto decimal, inserte un punto decimal después del número.
Terminará si...
Conector final
Subcomando privado6_Click()' Ingrese un signo negativo para convertir un número positivo en un número negativo
Texto1. Texto1.Texto)
núm = Texto1.
Texto
Conector final
Subcomando privado 7_Click()
select case c 'Juzga el valor de c instrucción típica de Select Case, que comienza con Select Case, End con Selección final.
Caso 0:
Texto1. text = trim(str(val(num1)+val(num))'Cuando c es 0, num 1 se agrega a num.
Caso 1:
texto 1. texto = str(val(num 1)-val(num))'Cuando c es 1, num1-num.
Caso 2:
' texto 1. texto = str( val. (num 1)* val(num))'Cuando c es 2, los dos números se multiplican
Caso 3:
"Ir a mí en caso de error" si se produce un error. ocurre en la siguiente declaración durante el proceso de corrección, salte a mes:
Texto 1. texto = str(val(num 1)/val(num))' Cuando c es 3, los dos números son iguales
mes:
MsgBox("El divisor no puede ser 0"), vbOKOnly, "mensaje" 'Mensaje de error
Finalizar selección
Num = Texto1. 'Texto' hace que el valor de texto1 se asigne a num.
Conector final
SubPicture1_Click() privado
Pulsa Imagen1. Cierra el programa
Finalizar adaptador
.