Red de conocimientos sobre prescripción popular - Salud y bienestar - Por favor ayuda con preguntas sobre vb. No precisamente.

Por favor ayuda con preguntas sobre vb. No precisamente.

No puede ser estudiante, ¿verdad? Proporcionarle el código más básico para que lo comprenda.

Subform_Load privado()

Formulario 1. Caption = "Pedido"

Marco1. Caption = "Menú"

Comprobación1. Caption = "Menú fijo para niños 18 yuanes"

Marque 2. Caption = "Paquete estándar 23 yuanes"

Marque 3. Caption = "Paquete empresarial 28 yuanes"

Etiqueta1 = "Número de copias"

Etiqueta2 = "Número de copias"

Etiqueta3 = "Número de copias"

Texto1 = "": Texto2 = "": Texto3 = " " "

Conector final

Subcomando privado 1_Click()

Dim a ! b! , c!

Si valor = 1

a = 18 * Val (texto 1)

a = 0

Finalizar si...

Si marca 2. Entonces valor = 1

b = 23 * Val(text2)

p>

Otro

b = 0

Finalizar si...

Si marca 3 entonces valor = 1

c = 28 * Val(Texto 3)

Otro

c = 0

Terminará si...

Si a = 0 , b = 0, c = 0, luego

MsgBox "Por favor elija uno"

Otro

MsgBox "one * * *"& a+b +c &

Terminará si...

Finalizar conector