Haz 2 preguntas para obtener puntuaciones altas y recibe un regalo si respondes una
1: Escriba una página usando la instrucción IF...THEN... o Select...CASE del lenguaje de escritura VBScript.
Genere diferentes calificaciones (Gradegt; =90 : Calificación excelente =80: Calificación buena; =70 Calificación media =60 Calificación aprobada<60 Reprobado, el valor inicial de la calificación lo determina usted mismo
Respuesta:
seleccione caso calificación
case gt;=90
msgbox("Excelentes resultados")
case gt;=80
msgbox("Excelente resultados") "Excelente")
case gt;=70
msgbox("Medio")
casegt;=60
msgbox ("Se pasa el resultado")
caselt; 60
msgbox("El resultado falla")
fin de caso
2: Existe una base de datos ACEESS Student.mdb con una tabla de datos denominada "Tabla de estudiantes". Utilice el controlador ODBC o la cadena de conexión OLEDB para acceder a la base de datos y generar mediante programación todos los contenidos de los registros de la "Tabla de estudiantes" en la tabla.
Atenuar blnok como booleano = False
Atenuar myconn como nueva OleDbConnection
Atenuar mycomm como nuevo OleDbCommand
Atenuar myadpt como nuevo OleDbDataAdapter
Dim myds como nuevo conjunto de datos
dim dtg como nueva cuadrícula de datos
myconn.ConnectionString= "provider=microsoft.jet.oledb.4.0; data source=" amp ; Application.StartupPath amp; " \student.mdb"
myconn.Open()
mycomm.CommandText = "seleccionar * de la tabla de estudiantes"
mycomm .Connection = myconn
myadpt.SelectCommand = mycomm
myadpt.Fill(myds)
dtg.datasource=myds.tables(0)