¡Urgente! Buscando respuestas a preguntas sobre programación de VB. El examen de tecnología de la información para el primer año de la escuela secundaria llegará pronto ~ ¡Responda las siguientes preguntas! !
Pregunta 2
¿Privado?Sub?Command1_Click()
¿Dim?a?As?Long
¿Dim?s?As? Long
Dim?i?As?Long
If?Trim(Text1.Text)?=?""?Then
MsgBox?"Por favor complete ¿El valor de N!!",?vbInformation,?"-Prompt-"
Salir?Sub
ElseIf?Trim(Text1.Text)?=?"0"? Entonces
MsgBox?"0 no está incluido en el cálculo!",?vbInformation,?"-Prompt-"
Salir?Sub
Else
p>a?=?CLng(Trim(Text1.Text))
s?=?1
For?i?=?1?To?a< / p>
s?=?s?*?i
Siguiente?i
Texto2.Texto?=?Str(s)
Fin ? If
End?Sub?
La tercera pregunta:
Private?Sub?Command1_Click()
If?Trim(Text1) . ¿Texto)?=?""?Entonces
MsgBox?"Por favor ingrese su edad",?vbInformation,?"-Prompt-"
Text1.SetFocus
Salir?Sub
Else
Dim?a?As?Integer
a?=?CInt(Text1.Text)
Seleccione?Caso?a
Caso?Es?
Texto2.Texto?=?"Joven?Año"
Caso?Es?< ?60
Text2.Text?=?"Joven y mediana edad"
Caso?Is?>=?60
Text2.Text?=? "¿Antiguo? Año"
¿Fin?Seleccionar
Fin?Si
Fin?Sub
Pregunta 4:
Pregunta 4:
Privado?Sub?Command1_Click()
If?Trim(Text1.Text)?=?""?Or?Trim(Text2.Text)?= ? ""?Entonces
MsgBox?"Por favor, complete el formulario completo"
ElseIf?CLng(Text1.Text)?=?CLng(Text2.Text)?Entonces
Label1.Caption?=?"¡¡Dos números son iguales!!"
ElseIf?CLng(Text1.Text)?>?CLng(Text2.Text)?Then
Etiqueta1.Caption ?=?Text1.Text
Else
Etiqueta1.Caption?=?Text2.Text
Fin?If
Fin?Sub
Privado?Sub?Command2_Click()
Texto1.Text?=?""?Y?Text2.Text?=?""
End?Sub
Pregunta 1: Ver la imagen/