Urgente: ¡Cómo escribir estas dos preguntas secundarias de VB!

Subcomando privado1_Click()

Combo1.AddItem Text1.Text

Text1.Text = ""

Fin Sub

Subtexto privado1_ KeyPress(KeyAscii como entero)

Si KeyAscii > 57 o KeyAscii < 48 entonces

MsgBox "¡Ingrese un número!"

KeyAscii = 0

End Sub

Si KeyAscii > 57 o KeyAscii < 48 Entonces

MsgBox "¡Ingrese un número!

KeyAscii = 0

Finalizar si

Finalizar sub

II.

Subcomando privado1_Click()

Atenuar m como entero

Atenuar n como entero

Atenuar s mientras

Atenuar i como entero

m = Val(Texto1 .Texto)

n = Val(Texto2.

s = 0

Para i = m Para n

t = f( i)

s = s + t

Siguiente

lblResult.Caption = s

Fin Sub

Función privada f(ByRef x As Integer) Siempre

Dim t Mientras

t = 1

Para i = 1 a x

t = t * i

Siguiente

f = t

Función final