¿Cómo personalizar funciones usando function en VB? ¿Cómo escribir el formato? Por ejemplo, ¿cómo escribir la función del cuadro de entrada usando la función?

1. Abra VB6.0, cree un nuevo proyecto, agregue un botón de comando en el formulario, cambie el título a "Función de llamada" y cambie el atributo de título de Form1 a "VB6.0 Auto". Definir función" y configure la interfaz como se muestra a continuación:

2. Haga doble clic en Form1 para ingresar a la ventana de edición de código, haga clic en el triángulo desplegable a la izquierda y seleccione General.

3. Introduce el siguiente código en la sección general:

Public Sub F1(n, ByVal m)

n = n Mod 10

m = m \ 10

End Sub

y elimine el evento Form_Load.

El código anterior define la función F1, que incluye dos parámetros, ambos de tipo entero, que indican el tipo entero corto. Byval indica el método de transferencia de valor, que indica la transferencia de valor, que corresponde a la transferencia de dirección. Este también es el método de entrega predeterminado.

4. Haga doble clic en el botón de comando "Llamar función" para ingresar a la ventana de edición de código e ingrese el siguiente código:

Dim x, y

x. = 12: y = 34

Llamar a F1(x, y)

Imprimir x, y

yongcall llama a la función y los parámetros corresponden a los parámetros en la función personalizada uno a uno.

5. Luego cierre la ventana de código, presione F5 para ejecutar el programa, haga clic en el botón de comando "Llamar función" e imprima 2 ?34 en el formulario. Está relacionado con el método de transferencia de valor de la función.