Accord to that grade value of the fractional variable (Grade & gt；; =90: excellent grade & gt=80: good grade & gt=70, medium grade > =60, qualified grade < 60, unqualified grade, and the initial value of the grade is self-determined.
Answer:
Select case level
case & gt=90
Msgbox ("excellent results")
case & gt=80
Msgbox ("excellent results")
case & gt=70
Msgbox ("average score")
case & gt=60
Msgbox ("result qualified")
Case & lt60
Msgbox ("unqualified result")
Close the case
2. The existing Acess database student.mdb has a data table named "Student Table". Programming uses ODBC driver or OLEDB connection string to access the database and output all the records of "Student Table" in the table.
Dim blnok As Boolean = False
Dim myconn as the new OleDbConnection
Dim mycomm as the new OleDbCommand
Dim myadpt as the new OleDbDataAdapter
Mark myds as a new data set
Dim dtg as a new data grid
myconn。 ConnectionString = " provider = Microsoft . jet . oledb . 4.0； Data source = "& Application. StartupPath & amp" \student.mdb "
myconn。 Open ()
my comm . commandtext = " select * from student table "
mycomm。 Connection = myconn
myadpt。 SelectCommand = mycomm
myadpt。 Filling (myds)
dtg.datasource=myds.tables(0)