If cbxlongitud1.Text = "centimetro" And cbxlongitud2.Text = "decimetro" Then
                 lblresultado.Text = txtquieroconvertir.Text / 10
                             Else
                          If cbxlongitud1.Text = "decimetro" And cbxlongitud2.Text = "centimetro" Then
                                    lblresultado.Text = txtquieroconvertir.Text * 10
                                    Else
                                        If cbxlongitud1.Text = "centimetro" And cbxlongitud2.Text = "milimetro" Then
                                            lblresultado.Text = txtquieroconvertir.Text * 10
                                        Else
                                            If cbxlongitud1.Text = "milimetro" And cbxlongitud2.Text = "centimetro" Then
                                                lblresultado.Text = txtquieroconvertir.Text / 10
                                            Else
                                                If cbxlongitud1.Text = "centimetro" And cbxlongitud2.Text = "micrometro" Then
                                                    lblresultado.Text = txtquieroconvertir.Text / 10000
                                                Else
                                                    If cbxlongitud1.Text = "micrometro" And cbxlongitud2.Text = "centimetro" Then
                                                        lblresultado.Text = txtquieroconvertir.Text / 10000
                                                    Else
                                                        If cbxlongitud1.Text = "centimetro" And cbxlongitud2.Text = "kilometro" Then
                                                            lblresultado.Text = txtquieroconvertir.Text / 100000
                                                        Else
                                                            If cbxlongitud1.Text = "kilometro" And cbxlongitud2.Text = "centimetro" Then
                                                                lblresultado.Text = txtquieroconvertir.Text * 100000
                                                            Else
                                                                If cbxlongitud1.Text = "centimetro" And cbxlongitud2.Text = "metro" Then
                                                                    lblresultado.Text = txtquieroconvertir.Text / 100
                                                                Else
                                                                    If cbxlongitud1.Text = "metro" And cbxlongitud2.Text = "centimetro" Then
                                                                        lblresultado.Text = txtquieroconvertir.Text * 10
                                                                    Else
                                                                        If cbxlongitud1.Text = "decimetro" And cbxlongitud2.Text = "milimetro" Then
                                                                            lblresultado.Text = txtquieroconvertir.Text * 100
                                                                        Else
                                                                            If cbxlongitud1.Text = "milimetro" And cbxlongitud2.Text = "decimetro" Then
                                                                                lblresultado.Text = txtquieroconvertir.Text / 100
                                                                            Else
                                                                                If cbxlongitud1.Text = "decimetro" And cbxlongitud2.Text = "micrometro" Then
                                                                                    lblresultado.Text = txtquieroconvertir.Text * 100000
                                                                                Else
                                                                                    If cbxlongitud1.Text = "micrometro" And cbxlongitud2.Text = "decimetro" Then
                                                                                        lblresultado.Text = txtquieroconvertir.Text / 100000
                                                                                    Else
                                                                                        If cbxlongitud1.Text = "decimetro" And cbxlongitud2.Text = "kilometro" Then
                                                                                            lblresultado.Text = txtquieroconvertir.Text / 10000
                                                                                        Else
                                                                                            If cbxlongitud1.Text = "kilometro" And cbxlongitud2.Text = "decimetro" Then
                                                                                                lblresultado.Text = txtquieroconvertir.Text * 10000
                                                                                            Else
                                                                                                If cbxlongitud1.Text = "decimetro" And cbxlongitud2.Text = "metro" Then
                                                                                                    lblresultado.Text = txtquieroconvertir.Text / 10
                                                                                                Else
                                                                                                    If cbxlongitud1.Text = "metro" And cbxlongitud2.Text = "deciometro" Then
                                                                                                        lblresultado.Text = txtquieroconvertir.Text * 10
                                                                                                    Else
                                                                                                        If cbxlongitud1.Text = "milimetro" And cbxlongitud2.Text = "micrometro" Then
                                                                                                            lblresultado.Text = txtquieroconvertir.Text * 1000
                                                                                                        Else
                                                                                                            If cbxlongitud1.Text = "micrometro" And cbxlongitud2.Text = "milimetro" Then
                                                                                                                lblresultado.Text = txtquieroconvertir.Text / 1000
                                                                                                            Else
                                                                                                                If cbxlongitud1.Text = "milimetro" And cbxlongitud2.Text = "kilometro" Then
                                                                                                                    lblresultado.Text = txtquieroconvertir.Text / 1000000

CUESTIONARIO 2 DE VISUAL BASIC

1.- ¿Que son las variables?

R= son las que almacenan valores temporal mente durante la ejecución de una aplicación

2.- ¿Que son las constante?

R= son valores que no cambian durante la ejecucino de un programa

3.- ¿Que son los tipos de datos?

R= son los que determinan la naturaleza del dominio de valores que puede tomar una variable

4.- ¿Menciona 3 tipos de datos?

R= date,decimal,byte

5.- ¿Que es la funcion inputbox?

R= Es un cuadro de dialogo, que espera que el usuario teclee un valor o una cadena de texto.

6.- ¿Que es un MSGBOX?

R= muestra mensajes de alerta o confirmaciòn en un cuadro de dialogo

7.- ¿Cual es la estructura de un MSGBOX?

R= msgbox(prompt[,buttons][,title][,helpfile,context])

8.- ¿Cuales son los operadores aritmeticos?

R= -,*,/.+,(),^

9.- ¿Cuales son los operadores logicos?

R= and,or,not

10.- ¿Que es una estructura de control?

R= es aquella que permite tomar una o mas de cisiones en un programa

11.- ¿Que es la es tructura IF THEN?

R= permite ejecutar una o mas instrucciones basadas en una condicion

12.- ¿Para que sirve la casilla de verificacion?

R= se utiliza para proporcionar al usuario opciones de tipo SI / NO

13.- ¿Que es el boton de opcion?

R= se seutiliza para que el usuario seleccione una opcion de un grupo de opciones

14.- ¿Para que sirve la propiedad TOOLTIPTEXT?

R= texto de ayuda, al colocar el cursor sobre el control

15.- ¿Para que sirve la estructura SELECT...CASE?

R= es una alternativa a IF THEN ELSE para ejecutar selectivamente un bloque de sentencias entre varios bloques

16.- ¿Funcion del metodo ADDITEM?

R= permite añadir nuevos elementos alalista

17.- ¿Que es la caja de listas?

R= muestra una lista de elementos entre los cuales el usuario puede seleccionar uno o mas elemtos

18.- ¿Cuando ocurre el evento clic?

R= ocurre cuando el usuario interactua con el control

19.- ¿Para que sirve el control cuadro combinado?

R= para combinar las caracteristicas de un control textbox y un control listbox

20.- ¿Para que sirve la propiedad STRETCH?

R= ajusta la imagen al area de control

CUESTIONARIO 1 DE VISUAL BASIC

1.- ¿Qué es Visual Basic?

R= Es un ambiente gráfico de desarrollo de aplicaciones para el sistema operativo       Microsoft Windows

2.- ¿Como acceder a visual basic?

R= inicio todos los programas programacion VB

3.- ¿Menciona las partes de la ventana del área de objeto?

R= Barra de menús, barra de herramientas, explorador de proyectos, ventana de propiedades

4.- ¿Menciona en que menú se encuentra la opción UserForm “CREAR NUEVO FORMULARIO”?

R= Insertar

5.- ¿Menciona 6 herramientas que se utilizan para el desarrollo de un programa?

R= label,textbox,picture,commandbutton,frame,optionbutton

6.- ¿Que es un proyecto?

R= Es una colección de archivos que se utiliza para construir una aplicación

7.- ¿Que es la ventana de propiedades de un objeto?

R= Es la lista de los valores de un formulario o control que pueden ser modificados       durante su diseño

8.- ¿Que es la propiedad BACKSTYLE?

R= Estilo del borde

9.- ¿Como se llama la propiedad que permite colocar una imagen de  fondo de formulario?

R= Picture

10.- ¿Para que sirven las propiedades NAME Y CAPTION?

R= Para colocar texto y nombre a un botón y/o control

11.- ¿Función de la propiedad PASSWORDCHAR?

R= Ocultar el texto que realmente tiene un control

12.- ¿Que es una label?

R= Un control de etiqueta

13.- ¿Menciona 3 propiedades que se le pueden asignar a una etiqueta?

R= Name, Font, BackColor

14.- ¿Que es el Textbox?

R= Control cuadro de texto

15.- ¿Menciona 3 diferentes propiedades que se le puede dar a una caja de texto?

R= BackColor, Text, Name

16.- ¿Que es un evento?

R= Son acciones reconocidas por un formulario o control a medida que el usuario  interactúa con los objetos de la aplicación

17.- ¿Que son los métodos?

R= Son las acciones que un objeto puede realizar sobre si mismo

18.- ¿Que es el COMMANDBUTTON?

R= Control de comando

19.- ¿Cual es el prefijo del botón de comandos?

R= cmd

20.- ¿Cual es el prefijo para la cuadro de texto?

R= txt