Test
Prueba corta
Este test tiene tipos de pregunta que se abren en el reproductor de siempre.
Preguntas del test (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- AVerdadero
- BFalso
10¿La extension de Textbox es .Text?
- AVerdadero
- BFalso
11¿Visual basic es un lenguaje de programacion dirigido por formularios?
- AVerdadero
- 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?
- AVerdadero
- BFalso
14¿La propiedad que se utiliza para cambiar el estilo de letra o de fuente es caption?
- AVerdadero
- 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- AVerdadero
- BFalso
20¿ Es el que nos permite incluir palabras, letras o frases en la pantalla?
- ATextbox
- BLabel
- CCaption
- DName
Información
- Descripción
- Esta es una prueba corta de Visual basic
- Autor
- mylvasquez18
- Idioma
- Español
- Visitas
- 50
- Etiquetas
- Valoración
- Aún sin valoraciones Valora este test