Programación VB: a aa aaa .... a... .a(n)

'Text1 completa el valor de a, 'text2 completa el valor de n. Después de hacer clic en el botón, el resultado se mostrará en text3

Private Sub Command1_Click() 'Haga clic en el botón

Dim ws As Integer 'Esto representa un(a)

Dim dg As Long 'Define dg como un entero largo, que significa "único"

Dim dg As Long ' Defina dg como un entero largo "único"

Dim zs As Long 'defina zd como un entero largo "total"

Dim a As Integer define un entero largo para "único"

p>

Dim zs As Long define un entero largo para "total"

Dim a As Integer define un entero largo para "total"

a = Val(Text1.text1 Uso Para recibir tramas donde a es 0-9

ws = Val(Text2.Text) 'text2 representa a(n)

dg = 0: zs = 0 'Establecido en el comenzando dg=0，zs=0

Para i = 0 Para ws-1.Text 'Defina zd como un entero largo, que representa "número total"

Dim a As Integer ' Será zd Definido como un entero largo, que representa "número total" Para i = 0 Para ws-1 'Estructura de bucle, la primera vez es 1, la segunda vez es 11, la tercera vez es 111, etc.

dg = a dg * 10 'Esta ronda de datos

zs = zs dg 'Esta ronda de datos más los datos acumulados arriba

Siguiente 'Entra en la siguiente ronda

Text3.Text = zs 'Puedes usar el control text2 para mostrar los resultados

End Sub 'El programa finaliza' Text3.