Red de conocimiento informático - Consumibles informáticos - Haz 2 preguntas para obtener puntuaciones altas y recibe un regalo si respondes una

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)