文档介绍:编写添加新课程的小程序
Private mand1_Click()
''' 不得删改本行注释
Dim rs As
Dim strSQL As String
Set rs = New
strSQL = "select * from course" '本行需要补充代码
strSQL, , 2, 2 '本行需要补充代码
If Not () Then
rs("课程编号") =
rs("课程名称") =
rs("学时") =
rs("学分") = '本行需要补充代码
End If
Set rs = Nothing
End Sub
Private mand1_Click()
''' 不得删除本行注释
= Date
End Sub
Private mand1_Click()
''' 不得删除本行注释
If > Then
= "a>b"
ElseIf = Then
= "a=b"
ElseIf < Then
= "a<b"
End If
Private mand1_Click()
Dim rs As
Set rs = New '本行需补充代码
"select * from Stu", , 2, 2
Do While Not '本行需补充代码
Select Case rs("综合分")
Case Is >= 90
rs("等级") = "优秀"
Case Is >= 80
rs("等级") = "良好" '本行需补充代码
Case Is >= 70
rs("等级") = "中等"
Case Is >= 60
rs("等级") = "及格"
Case Else
rs("等级") = "不及格"
End Select
Loop
Set rs = Nothing
= "select * from Stu"
End Sub
Private Sub List0_Click()
''' 不得删除本行注释
=
End Sub
Private mand1_Click()
''' 不得删除本行注释
sum = 0
For n = 1 To 100 Step 2
sum = sum + n
Next
= sum
End Sub
Private bo1_Change()
''' 不得删改本行注释
Dim rs As
Dim strSQL As String
Set rs = New
strSQL = "select * from player where 组别='" & bo1 & "'" '本行需要补充代码,实现构造SQL语句
strSQL, , 2, 2
For i = - 1 To 0 Step -1
(i)
Next i
Do While Not () '本行需补充代码,设置循环终止条件
rs("姓名")
'本行需补充代码,实现移到下一条记录
Loop
Set rs =