UC知道高分问2个问题，答出一个就送
来源：百度知道 编辑：UC知道 时间：2024/06/21 06:00:42
1：VBScript脚本语言的IF...THEN...或者Select...CASE语句编写一个页面
根据分数变量Grade值输出不同的等级（Grade>=90 :优秀 Grade>=80：良好Grade>=70 中等 Grade>=60 合格 Grade〈60 不及格 ，Grade 初值自定
2：现有一ACEESS数据库student.mdb有一名为“学生表”的数据表，试用ODBC驱动或者OLEDB连接字符串访问数据库方式编程实现在表格输出“学生表”的全部纪录内容
根据分数变量Grade值输出不同的等级（Grade>=90 :优秀 Grade>=80：良好Grade>=70 中等 Grade>=60 合格 Grade〈60 不及格 ，Grade 初值自定
2：现有一ACEESS数据库student.mdb有一名为“学生表”的数据表，试用ODBC驱动或者OLEDB连接字符串访问数据库方式编程实现在表格输出“学生表”的全部纪录内容
1：VBScript脚本语言的IF...THEN...或者Select...CASE语句编写一个页面
根据分数变量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.