Quiz
Prueba corta
Este quiz tem tipos de pergunta que abrem no player de sempre.
Perguntas do quiz (20)
1¿Es una acción que realiza el usuario hacia un objeto?
- ABoton
- BEvento
- CRadio
2¿Controles que colocamos en un formulario que poseen propiedades, métodos y eventos se les llama?
- AEventos
- BBoton
- CObjetos
- DCheckbox
3¿Se produce al intentar grabar un registro que contenga algún campo vacío?
- AError de campos
- BIntroducir valores
- CActualizacion
- DMensaje de error
4¿Para que se utiliza el CommandButton?
- ACrear eventos
- BCrear formularios
- CCrear botones
- DCrear Controles
5¿Que realiza el siguiente codigo?
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n1, n2, n3, n4, v, p As Double
n1 = TextBox1.Text
n2 = TextBox2.Text
n3 = TextBox3.Text
n4 = TextBox4.Text
v = n1
If n2 < v Then
v = n2
End If
If n3 < v Then
v = n3
End If
If n4 < v Then
v = n4
End If
p = (n1 + n2 + n3 + n4 - v) / 3
TextBox5.Text = p
End Sub
End Class- AEncuentra el mayor de 4 Valores
- BCalcula el promedio de los valores
- CSuma los 4 y los divide
- DNada ya que el codigo esta mal escrito
6¿Que realiza el siguiente codigo?
Public Class Form1
Private Sub Form1_mousedoubleclick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDoubleClick
If MeBackColor = Color.Blue
MeBackColor = Color.Red
ElseIf MeBackColor = Color.Red
MeBackColor = Color.Blue
End If
End Sub
End Class- ACambia de color de Rojo a Azul
- BCambia de color de Azul a Rojo
- CError ya que el codigo esta mal escrito
- DCambia de Azul a Celeste
7Rellena los espacios en blanco para completar el texto
Public Class Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cod, [blank_start]nomb[blank_end], g, dpi, puesto, direccion, tel As [blank_start]String[blank_end]
cod = TextBox1.Text
nomb = TextBox2.Text
dpi = [blank_start]TextBox4.Text[blank_end]
direccion = TextBox5.Text
tel = TextBox6.Text
[blank_start]If[blank_end] RadioButton1.[blank_start]Checked[blank_end] = True [blank_start]Then[blank_end]
puesto = "Administracion"
[blank_start]Else[blank_end]
puesto = "Ventas"
End If
If RadioButton3.Checked = [blank_start]True[blank_end] Then
g = "Hombre"
Else
g = "mujer"
[blank_start]End If[blank_end]
Form4.[blank_start]Show()[blank_end]
Form4.TextBox1.Text = TextBox1.Text
[blank_start]Form4.[blank_end]TextBox2.Text = TextBox2.Text
Form4.TextBox8.Text = [blank_start]puesto[blank_end]
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class- Anomb
- BChecked
- CElse
- DEnd If
- ETextBox4.Text
- FThen
- Gpuesto
- HShow()
- IString
- JIf
- KTrue
- LForm4.
8Rellena los espacios en blanco
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[blank_start]Dim[blank_end] Usuario, Clave As String
Usuario = TextBox1.Text
Clave = TextBox2.Text
[blank_start]If[blank_end] Usuario = "Myldret" And Clave = "1807" [blank_start]Then[blank_end]
ProgressBar1.Value = 0.0
ProgressBar1.[blank_start]Maximum[blank_end] = 100
For contador = 1 To 100
contador = contador + 1
[blank_start]ProgressBar1[blank_end].Value = contador
Next
If ProgressBar1.Value = ProgressBar1.Maximum Then
MsgBox("Acceso Autorizado")
[blank_start]Form2.Show()[blank_end]
End If
[blank_start]Else[blank_end]
ProgressBar1.[blank_start]Value[blank_end] = 0.0
ProgressBar1.Maximum = 100
[blank_start]For[blank_end] contador = 1 To 100
contador = contador + 1
ProgressBar1.Value = contador
[blank_start]Next[blank_end]
MsgBox("Usuario o Clave Incorrecta.")
TextBox1.Clear()
TextBox2.Clear()
[blank_start]End If[blank_end]
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
[blank_start]End Sub[blank_end]- AThen
- BProgressBar1
- CForm2.Show()
- DMaximum
- ENext
- FIf
- GElse
- HValue
- IEnd If
- JEnd Sub
- KDim
- LFor
9¿Es correcto el siguiente codigo?
Public Class Form4
Private Sub IngresoDeEmpleadosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Form3.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bonif, incent, Hextras, i, unif, ant, Odes, Ingreso, Egreso, total As Double
CheckBox1.Checked = True Then
bonif = 250
End If
CheckBox2.Checked
incent = 350
End If
CheckBox3.Checked
Hextras = 250
Hextras = TextBox4.Text * Hextras
End If
Ingreso = bonif + incent + Hextras + TextBox7.Text
If CheckBox4.Checked Then
i = 4.83 * TextBox7.Text
CheckBox5.Checked Then
unif = 150
End If
CheckBox6.Checked Then
ant = TextBox5.Text
End If
CheckBox7.Checked Then
Odes = TextBox6.Text
End If
Egreso = i + unif + ant + Odes
total = Ingreso - Egreso
Form5.Show()
Form.TextBox1.Text = TextBox1.Text
Form.TextBox2.Text = TextBox2.Text
Form.TextBox3.Text = TextBox8.Text
Form.TextBox5.Text = TextBox7.Text
Form.TextBox6.Text = bonif
Form.TextBox7.Text = incent
Form.TextBox8.Text = Hextras
Form.TextBox11.Text = i
Form.TextBox12.Text = unif
Form.TextBox13.Text = ant
Form.TextBox14.Text = Odes
Form.TextBox10.Text = total
Form.TextBox9.Text = Ingreso
Form.TextBox15.Text = Egreso
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class- AVerdadeiro
- BFalso
10¿La extension de Textbox es .Text?
- AVerdadeiro
- BFalso
11¿Visual basic es un lenguaje de programacion dirigido por formularios?
- AVerdadeiro
- BFalso
12Rellena los espacios en blanco
Public Class Form4
Private Sub Button1_[blank_start]Click[blank_end](ByVal sender As System.Object, ByVal e As System.EventArgs) Handles [blank_start]Button1.[blank_end]Click
[blank_start]Dim[blank_end] n1, n2 As [blank_start]Double[blank_end]
n1 = TextBox1.Text
n2 = TextBox2.Text
[blank_start]If[blank_end] n1 [blank_start]>[blank_end] n2 [blank_start]Then[blank_end]
MessageBox.Show("El número mayor es " [blank_start]&[blank_end] n1)
Else
MessageBox.Show("El número mayor es " [blank_start]&[blank_end] n2)
[blank_start]End If[blank_end]
End Sub
End Class- A>
- BDim
- CButton1.
- DEnd If
- EClick
- FThen
- GIf
- H&
- I&
- JDouble
13¿El evento del boton es click?
- AVerdadeiro
- BFalso
14¿La propiedad que se utiliza para cambiar el estilo de letra o de fuente es caption?
- AVerdadeiro
- BFalso
15¿Es un documento, ya sea físico o digital, diseñado con el propósito de que el usuario introduzca datos estructurados?
- AEvento
- BFormulario
- CCommandButton
- DTabla
16¿Se utiliza generalmente para listar opciones y que el usuario pueda elegir entre ellas, y dependiendo del valor?
- ACaja
- BListbox
- CCombobox
- DCheckBox
17¿Es el que nos permite que un usuario pueda seleccionar una opción de entre varias?
- ACombobox
- BCaja
- CButton
- DRadio
18¿Nos da el valor que se ha seleccionado del combo?
- AStyle
- BTop
- CText
- DList
19¿El siguiente codigo es erroneo?
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim VSB, VDES As Double
VDES = 0
VSB = CDbl(TextBox4.Text)
If CheckBox1.Checked Then
VDES = VDES + VSB * 0.11
End If
If CheckBox2.Checked Then
VDES = VDES + 15
End If
If CheckBox3.Checked Then
VDES = VDES + CDbl(TextBox1.Text)
End If
TextBox2.Text = VDES
TextBox3.Text = CStr(VSB - VDES)
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
TextBox1.Enabled = CheckBox3.Checked
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Enabled = False
End Sub
Private Sub TextBox1_EnabledChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.EnabledChanged
TextBox1.Clear()
End Sub
End Class- AVerdadeiro
- BFalso
20¿ Es el que nos permite incluir palabras, letras o frases en la pantalla?
- ATextbox
- BLabel
- CCaption
- DName
Informações
- Descrição
- Esta es una prueba corta de Visual basic
- Autor
- mylvasquez18
- Idioma
- Español
- Visualizações
- 50
- Etiquetas
- Avaliação
- Ainda sem avaliações Avalie este quiz