Preguntas de programación de VB 1***3 preguntas

Suma del 1 al 100:

Private Sub Form_Click()

Suma = 0

Hacer

i = i + 1

Suma = Suma + i

Recorrido hasta i = 100

Imprimir suma

Fin Sub

Juzgar resultados:

Private Sub Command1_Click()

Si Texto1 >= 90 Entonces MsgBox "Excelente", vbOKOnly, "Puntuación"

Si Texto1 >= 70 y Texto1 < 90 Entonces MsgBox "Bueno", vbOKOnly, "Calificación"

Si Texto1 >= 60 y Texto1 < 70 Entonces MsgBox "Aprobado", vbOKOnly, "Calificación"

Si Texto1 < 60 Entonces MsgBox "Error", vbOKOnly, "Calificación"

Fin Sub

texto2 cambia con texto1:

Subcomando privado1_Click ( )

Texto1 = ""

Texto2 = ""

Fin Sub

Sub privado Text1_Change()

Texto2 = Texto1

Fin Sub