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 programación VBScript

Genere diferentes calificaciones según la variable de puntuación Valor de calificación (Calificación>=90: Excelente Calificación>=80: Buena Calificación>=70 Calificación Media>=60 Calificación de Aprobado<60 Suspenso, el valor inicial de la Calificación lo determina usted mismo

Respuesta:

seleccione la calificación del caso

case >=90

msgbox("Los resultados son excelentes")

case >=80

msgbox("Los resultados son excelentes" ")

case >=70

msgbox("La nota es media")

case>=60

msgbox("La nota es media" se aprueba")

case<60

msgbox("se reproba")

end caso

2: Existe una base de datos ACEESS Student.mdb que tiene 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 todo el contenido del registro. la "Tabla de estudiantes" en la tabla

Dim blnok As Boolean = False

Dim myconn As New OleDbConnection

Dim mycomm As New OleDbCommand

Atenuar myadpt como nuevo OleDbDataAdapter

Atenuar myds como nuevo conjunto de datos

atenuar dtg como nuevo datagrid

myconn.ConnectionString= "provider=microsoft.jet.oledb .4.0;data source=" & Application.StartupPath & "\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)