Biblioteca Digital Ccf

1: Utilice IF para escribir una página... y luego... o elija... la declaración CASE del lenguaje de programación VBScript.

Según la variable puntuación valor de calificación (Calificación gt; =90: excelente calificación gt=80: buena calificación gt=70 calificación media>=60 calificación calificada < 60 no calificada, el valor inicial de la calificación es personalizado.

p>

Respuesta:

Seleccione nivel de caso

case gt=90

Msgbox("Excelentes resultados" )

case gt=80

Msgbox("Calificación excelente")

case gt=70

Msgbox("Calificación promedio" )

case gt=60

Msgbox("El resultado está calificado")

Case lt60

Msgbox("El resultado es no calificado")

Fin de caso

2. La base de datos de Acess existente estudiante.mdb tiene una tabla de datos llamada "Tabla de Estudiantes". La programación utiliza el controlador ODBC o la cadena de conexión OLEDB para acceder a la base de datos y genere los datos de la "Tabla de estudiantes" en la tabla. Todos los contenidos del registro

Dim blnok As Boolean = False

Dim myconn como nueva OleDbConnection. >Atenuar mycomm como nuevo OleDbCommand

Atenuar myadpt como nuevo OleDbDataAdapter

Anotar myds como nuevo conjunto de datos

atenuar dtg como nueva cuadrícula de datos

myconn ConnectionString = " proveedor = Microsoft . jet . oledb . 4.0; fuente de datos = " amp StartupPath amp" \student.mdb "

myconn.open()

mi. comm. commandtext = " seleccionar * de la tabla de estudiantes "

mycomm.Connection=myconn

myadpt.SelectCommand = mycomm

myadpt.fill(myds)

dtg.datasource= myds.tables(0)