Visual Basic

¿Esto es una CheckBox?

Seleccione la(s) correctas de ingresar el código de limpiar dentro de un botón:

Completa el código; [blank_start]Dim[blank_end] n1, n2, n3, n4, v, p [blank_start]As[blank_end] Double n1 = TextBox1.Text n2 = [blank_start]TextBox2[blank_end].Text n3 = TextBox3.Text n4 = TextBox4.Text v = n1 [blank_start]If[blank_end] n2 < v Then v = n2 End If If [blank_start]n3[blank_end] < v Then v = n3 End If If n4 < v [blank_start]Then[blank_end] v = n4 [blank_start]End[blank_end] If p = (n1 + n2 + n3 + n4 - [blank_start]v[blank_end]) / 3 [blank_start]TextBox5.Text = p[blank_end]

¿Este código es para colocar mensajes en el programa? MessageBox.Show()

Complete; Dim n1, n2 As [blank_start]Double[blank_end]n1 = [blank_start]TextBox1[blank_end].Text n2 = TextBox2.Text If n1 > n2 Then MessageBox.Show("El número mayor es "& [blank_start]n1[blank_end]) Else [blank_start]MessageBox[blank_end].Show("El número mayor es "& n2) End If

Seleccione la respuesta correcta; Dim C As [blank_start]Integer[blank_end]

¿Es un Progress Bar?

Dim x, y, z, r As [blank_start]Double[blank_end] x = [blank_start]TexBox1.Text[blank_end] [blank_start]y[blank_end] = TexBox2.Text z = TexBox3.Text r = ((2 * [blank_start]Math.[blank_end]Pow(x, 4)) + [blank_start]3 *[blank_end] Math.Pow(x, 2) * [blank_start]Math.Pow[blank_end](y, 2)) / (y+(Math.[blank_start]Sqrt[blank_end](4 * x * y * Math.Pow[blank_start](z, 2)[blank_end])) - 2 * z) TexBox4.Text = [blank_start]r[blank_end]

El siguiente código sirve para resolver ecuaciones de 3 variables? Dim x, y, z, r As Double x = TexBox1.Text y = TexBox2.Text z = TexBox3.Text r = ((2 * Math.Pow(x, 4)) + 3 * Math.Pow(x, 2) * Math.Pow(y, 2)) / (y+(Math.Sqrt(4 * x * y * Math.Pow(z, 2))) - 2 * z) TexBox4.Text = r

Complete; [blank_start]If[blank_end] Me.BackColor = Color.[blank_start]Blue[blank_end] Then Me.BackColor = Color.Red ElseIf Me.[blank_start]Back[blank_end]Color = [blank_start]Color[blank_end].Red Then [blank_start]Me.BackColor[blank_end] = Color.Blue

El siguiente fragmento de código sirve para cambiar de color el formulario; If Me.BackColor = Color.Blue Then Me.BackColor = Color.Red ElseIf Me.BackColor = Color.Red Then Me.BackColor = Color.Blue

¿El siguiente código sirve para calcular promedios y eliminar la nota menor? 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

[blank_start]Dim[blank_end] n1, n2, n3, n4, v, p As [blank_start]Double[blank_end] n1 = [blank_start]Text[blank_end]Box1.Text [blank_start]n2[blank_end] = TextBox2.Text n3 = TextBox3.Text [blank_start]n4[blank_end] = [blank_start]TextBox4[blank_end].Text v = n1 [blank_start]If[blank_end] n2 < v [blank_start]Then[blank_end] v = n2 End If If n3 < v Then v = n3 [blank_start]End[blank_end] If If n4 < v Then v = n4 End If p = (n1 + n2 + n3 + n4 - v) / 3 [blank_start]TextBox5.Text = p[blank_end]

¿Está bien estructurado este código? Dim n1, n2 As Doublen1 = TextBox1.Text n2 = TextBox2.Text If n1 > n2 Then MessageBox.Show("El número mayor es "& n1) Else MessageBox.Show("El número mayor es "& n2) End If

[blank_start]Dim[blank_end] C As [blank_start]Intinger[blank_end]C = 0 If [blank_start]CheckBox1[blank_end].Checked Then C = C + 1 If CheckBox2.[blank_start]Checked[blank_end] Then [blank_start]C = C + 1[blank_end] End If If CheckBox3.Checked [blank_start]Then[blank_end] C = C + 1 End If MessageBox.Show("Han sido seleccionados " + Strc(C) + [blank_start]" checkbox"[blank_end]) [blank_start]End If[blank_end]

¿El siguiente código esta bien estructurado? Dim C As Intinger C = 0 If CheckBox1.Checked C = C + 1 CheckBox2.Checked Then C = C + 1 End If If CheckBox3.Checked Then C = C + 1 MessageBox.Show("Han sido seleccionados " + Strc(C) + " checkbox") End If

Dim C As IntingerC = 0 If Check[blank_start]Box1[blank_end].Checked Then C = C + 1 If Check[blank_start]Box2[blank_end].Checked Then C = C + 1 End If If CheckBox3.[blank_start]Checked[blank_end] Then C = C + 1 End If [blank_start]MessageBox[blank_end].Show("Han sido seleccionados " + Strc(C) + " checkbox") End If

¿Qué opciones podemos ver en el siguiente Form?

Complete CheckBox1.

¿Cómo se llama ésta parte de Visual Basic?