Según el valor de calificación de la variable puntuación (Calificación>=90:Excelente calificación>=80:Buena calificación>=70Calificación media>=60 Calificación calificada<60 No calificada, se personaliza el valor inicial de la calificación.
Respuesta:
Seleccione el nivel de caso
caso & gt=90
Msgbox("Puntuación excelente")
case & gt=80
Msgbox("Calificación excelente")
case & gt=70
Msgbox("Calificación promedio")
p>case & gt=60
Msgbox("El resultado está calificado")
Case & lt60
Msgbox("El resultado es no calificado")
Fin de caso
2. La base de datos Acess Student.mdb existente 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 Muestra todo el contenido de los registros de la "tabla de estudiantes" en la tabla
Dim blnok As Boolean = False
Dim myconn como la nueva OleDbConnection
Dim. mycomm como el nuevo OleDbCommand
Atenuar myadpt como el nuevo OleDbDataAdapter
Marcar myds como el nuevo conjunto de datos
atenuar dtg como la nueva cuadrícula de datos
myconn . ConnectionString = " proveedor = Microsoft . jet . oledb . 4.0; fuente de datos = " & StartupPath & amp" \student.mdb "
myconn.
mi comm . commandtext = " seleccionar * de la tabla de estudiantes "
mycomm.connection = myconn
myadpt. SelectCommand = mycomm
myadpt. dtg.datasource=myds.tables(0)