根據分數變量Grade值輸出不同的等級（Grade>=90 :優秀 Grade>=80：良好Grade>=70 中等 Grade>=60 合格 Grade〈60 不及格 ，Grade 初值自定
答案:
select case grade
case >=90
msgbox("成績為優秀")
case >=80
msgbox("成績為優良")
case >=70
msgbox("成績為中等")
case>=60
msgbox("成績為合格")
case<60
msgbox("成績為不合格")
end case
2：現有壹ACEESS數據庫student.mdb有壹名為“學生表”的數據表，試用ODBC驅動或者OLEDB連接字符串訪問數據庫方式編程實現在表格輸出“學生表”的全部紀錄內容
Dim blnok As Boolean = False
Dim myconn As New OleDbConnection
Dim mycomm As New OleDbCommand
Dim myadpt As New OleDbDataAdapter
Dim myds As New DataSet
dim dtg as new datagrid
myconn.ConnectionString= "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\student.mdb"
myconn.Open()
mycomm.CommandText = "select * from 學生表 "
mycomm.Connection = myconn
myadpt.SelectCommand = mycomm
myadpt.Fill(myds)
dtg.datasource=myds.tables(0)