GoConqr has a new look! Let us know what you think.

Sign up free

Quiz

PROGRAMATON

Jonathan Rafael 10 questions

Take the quiz

This quiz has a time limit, so it opens in the usual player.

Questions in this quiz (10)

  1. 11.- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    REM ¿QUÉ VALOR DE X SE IMPRIME?
    Dim X As Integer
    For X = 1 To 5
    Next
    MessageBox.Show(" X = " & X)

    End Sub
    1. AX=6
    2. BX= 5
    3. CX= 4
    4. DX= 0
  2. 2
    2.- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    REM CUANTOS ASTERISCOS IMPRIME EL PROGRAMA?

    Dim X As Integer
    For X = 3 To 1
    MessageBox.Show("*")
    Next
    End Sub
    1. A3
    2. B2
    3. C1
    4. D0
  3. 3 3.- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    REM ¿QUÉ VALOR DE X SE IMPRIME?

    Dim X As Integer
    X = 5
    X = X + 2
    X = -1
    MessageBox.Show("X = " & X)

    End Sub
    1. A6
    2. B-1
    3. C-6
    4. D1
  4. 4
    4.- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    REM CUANTOS ASTERISCOS IMPRIME EL PROGRAMA?
    Dim X As Integer
    For X = 5 To 7 Step 2
    MessageBox.Show("*")
    Next
    End Sub
    1. A7
    2. B5
    3. C1
    4. D2
  5. 5 5.- Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    REM ¿QUÉ IMPRIME ESTE PROGRAMA?
    Dim X As Integer
    X = 5 + 3
    X = X + X
    If X > 16 Then
    MessageBox.Show(" # ")
    Else
    MessageBox.Show(" $ ")
    End If
    End Sub
    1. A16
    2. B#
    3. C$
    4. DERROR
  6. 6 6.- Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    REM ¿QUÉ VALOR DE Y SE IMPRIME? 2

    Dim X As Integer
    Dim Y As Integer
    X = 5
    Y = 2
    X = Y
    Y = X
    MessageBox.Show("Y = " & Y)
    End Sub
    1. AY
    2. B2
    3. CX
    4. D5
  7. 7 7.- Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    REM ¿QUÉ SECUENCIA DE CARACTERES IMPRIME ESTE PROGRAMA?
    Dim X As Integer
    Dim Y As Integer
    MessageBox.Show("%")
    If X > Y Then
    MessageBox.Show(">")
    Else
    MessageBox.Show("<")
    End If
    MessageBox.Show("*")

    End Sub
    1. A%> *
    2. B%*
    3. C%<> *
    4. D% < *
  8. 8 8.- Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    REM ¿QUÉ VALOR DE X IMPRIME ESTE PROGRAMA?
    Dim X As Integer
    X = 8
    Select Case X
    Case 1 To 7
    X = X + 1
    Case Is > 7
    X = X + 2
    Case Else
    X = X + 3
    End Select
    X = X + 1
    MessageBox.Show("X = " & X)
    End Sub
    1. A8
    2. B11
    3. C9
    4. D13
  9. 9 9.- Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
    REM ¿CUÁNTOS * IMPRIME ESTE PROGRAMA?
    Dim X As Integer
    Do
    MessageBox.Show(" * ")
    Loop While X > 1

    End Sub
    1. A0
    2. B1
    3. C2
    4. DINFINITO
  10. 1010.- Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
    REM ¿QUÉ IMPRIME EL SIGUIENTE PROBLEMA?

    Dim X As Double
    Dim Y As Integer
    X = 3.1416
    Y = X + 1
    MessageBox.Show(" Y = " & Y)
    End Sub
    End Class
    1. A3
    2. B3.1416
    3. C4
    4. D4.1416

Information

Description
PROGRAMATON UAT 2016
Language
Español
Views
16
Rating
No ratings yet
Rate this quiz
Rate this quiz

Feedback

What is it about?

What do you think of the new look?

How do you like it?