¡Urgente! programación VB

Subcomando privado1_Click()

Recuento atenuado, TCount como entero

Atenuación i, j, k como entero

i = 1

j = 1

k = 1

Me.Cls 'Borrar pantalla

Para i = 1 a 50 / 10 '10 Valor máximo posible de yuanes

Count = 10 * i

Si Count gt; (50 - 5 - 1) Then Exit For 'El número de los 10 yuanes no puede ser mayor que 50 yuanes menos al menos 5 yuanes y 1 yuan

Para j = 1 A 50/5 'El valor máximo posible de 5 yuanes

Cuenta = 10 * i 5 * j

Si Count gt; (50 - 1) Luego salga por 'La cantidad de los 10 yuanes y los 5 yuanes no puede ser mayor que 50 yuanes menos al menos 1 yuan

Para k = 1 Hasta 50 / 1

Cuenta = 10 * i 5 * j 1 * k

Si Cuenta = 50 Entonces

Imprime "Encuentra el método: 10 yuanes" amp; i amp; "Zhang; 5 yuanes" amp; j amp; "Zhang; 1 yuan" amp;

Imprimir "Completo.***" amp TCount "Método"

End Sub

Private Sub Command2_Click()

Dim x(10), i, j, k como entero

Aleatorio 'Inicializar número aleatorio semilla

For i = 1 To 10 'Generar números aleatorios

x(i) = 10 CInt(Rnd * 89)

'Ordenar

Para i = 1 a 9

Para j = 1 a 9

Si x(j) gt;

k = x(j 1)

x(j 1) = x(j)

x(j) = k

Finalizar si

'Salida

Me.Cls 'Borrar pantalla

Para i = 1 a 10

Imprimir "x(" amp; i amp; ") = " amp vbTab x(i)

Fin; Sub