El cuadro de selección múltiple de casilla de verificación Vb realiza la suma digital

Cree un Check1 y establezca su índice en 0. Crea otra etiqueta1. No se requiere configuración adicional.

El código es el siguiente.

==============

Marcar s como un número entero

Subcomprobación privada 1_Click (indexar como un número entero)

p>

s = IIf(Check1(índice)). Valor, Check1(índice). Título s, s - Check1(índice). Título)

Etiqueta1. Título = s

Conector final

Subform_Load() privado

Marcar I como un número entero

Check1(0) . Visible = Falso

Para i = 1 a 10

Cargar Check1(i)

Check1(i). Mover Check1(i - 1). Izquierda, Check1(i - 1). Comprobación superior 1 (i - 1). Altura

Comprobación 1(i). Título = i 2

Comprobación1(i). visible=true

entonces

conector final