Programación VB en busca de respuestas

1. Cree un nuevo formulario sin realizar modificaciones ni agregar ningún control.

2 Coloque el siguiente código en la ventana de código

Privado con eventos Command1 como CommandButton.

Privado con eventos Command2 como botón de comando

Privado Sub Command1_Click()

If MsgBox("Confirme que es elegible para el descuento.

(Personal militar activo chino, personas discapacitadas, niños, estudiantes, ancianos)", 4, "Información rápida") = 6 Entonces

m = InputBox("Ingrese cuántos boletos planea comprar. ", "Billete con descuento")

Imprimir "Tipo de compra del boleto: Boleto con descuento Monto de la compra:"; 160 * m & "yuan"

Finalizar si

End Sub

Private Sub Command2_Click()

n = InputBox("Ingrese cuántas entradas planea comprar?", "Entradas normales")

d = MsgBox("¿Quieres comprar un boleto para un día designado?", 4, "Mensaje rápido")

Si d = 6 Entonces

Imprimir "Tipo de compra de boleto: ordinario Monto de compra de boletos: "; 200 * n & "yuan"

ElseIf d = 7 Then

Imprimir "Tipo de compra de boletos: Boleto ordinario Monto de compra: "; 900 * (n \ 7 ) + 400 * ((n - 7 * (n \ 7)) \ 3) + 160 * (n - 7 * (n \ 7) - 3 * ((n - 7 * (n \ 7)) \ 3 ) ) & "元"

Finalizar si

End Sub

Sub privado Form_Load()

Conmigo

.Izquierda = 7000

.Arriba = 3000

.Ancho = 5500

.Alto = 4000

.Caption = " "

Termina con

Establecer Command1 = Controls.Add("VB.commandbutton", "command1")

Establecer Command2 = Controls.Add("VB . botóndecomando", "comando2")

Con Comando1

.Visible = 1

.Izquierda = 1700

.Arriba = 1000

.Width = 2000

.Caption = "Comprar boletos con descuento"

Finalizar con

Con Command2

.Visible = 1

.Izquierda = 1700

.Arriba = 1000 + Comando1.Alto + 100

.Ancho = 2000

.Caption = "Comprar boletos regulares"

Finalizar con

End Sub

También puedes descargar la dirección de descarga que hice (copiar todo)

/ftn_handler/180eddb235a853e922f7c5c444d4bf196f16edf90ed92521396b9c226ff330e57ecc047952978910c02a9596a47dd987330b682d895d02e7207a6 7 a9ff5e28f6/piao.rar?k=0c303639b5d69d9a58cb751c1630504a54560f01520450001c000f0a091d565106531b5b530654480100570e0307575c5455530 86215585159174251106574&fr=01&&txf_fid=f9eba207

41c200568d6713d1f379475c6b27f718