Enviar programación

Convierta todas las opciones en un control de matriz y luego determine cuántas opciones se seleccionan. Según la imagen de arriba, si desea completar todo, debe tener cinco opciones, porque cada casilla tiene una única opción, por lo que cinco opciones significa que las cinco casillas están seleccionadas.

Si hay menos de cinco, solicite y salga del proceso de envío.

Atenuar j siempre

Para i = 1 a 19

Si Opción1(i) = Verdadero, entonces j = j 1

Entonces

Si (Text1. Text = " ") o (j lt5) Entonces MsgBox "¡Por favor complete el formulario completamente!": Conector de salida