前段时间，时间紧、任务重、自己懒，隔了那么久，也攒了很多干货，今天拿出来晾凉，省的发霉。好了，接下来一起步入正题吧！
错误一：
点击调试后显示标红部分：
Private Sub Form_Load()
comboCoursetype.AddItem = "必修"
comboCoursetype.AddItem = "考查"
End Sub
错误原因：VB编程中出现参数不可选是因为没有输入必要的参数，使用了错误的参数或错误赋值引起的。
解决方法：把“=”去掉，即：
comboCoursetype.AddItem "必修"
comboCoursetype.AddItem "考查"
错误二：
点击确定，显示如下红色部分：
If Not IsNumeric(Trim(txtCourseno.Text)) Then
MsgBox "请输入数字编号！", vbOKOnly + vbExclamation, "警告"
txtCourseno.Text
Exit Sub
End If
解决方法：把属性改为：.setFocus
错误三：
If Not Tesetxt(txtCoursedes.Text) Then
MsgBox "请输入课程描述信息！", vbOKOnly + vbExclamation, "警告"
txtCoursedes.SetFocus
Exit Sub
错误原因：代码敲错，应改为：Testtxt
错误四：
全部代码：
If (Trim(mrc.Fields(0))) = Trim(txtCourseno.Text) Then
MsgBox "课程编码已经存在，请重新输入课程编号！", vbOKOnly + vbExclamation, "警告"
'清空内容
txtCourseno.Text = ""
'获得焦点
txtCourseno.SetFocus
Exit Sub
End If
'移动到下一条记录
mrc.MoveNext
End If
错误原因：敲错，改为“Else”
错误五：
点击确定，出现错误显示红色部分：
Private Sub Form_Load()
flagselect = False
'添加班号到comboBox
txtSQL = "select*from class_Info"
Set mrc = ExecuteSQL(txtSQL, MsgText)
While (mrc.EOF = False)
comboClassno.Text mrc!class_No
mrc.MoveNext
Wend
解决方法：把属性改为“.AddItem”
这几次的错误看起来比较简单，但是芝麻再小也是精华啊，还是要好好总结，毕竟细节决定成败，勿以善小而不为嘛，接下来会及时更新的，敬请期待吧！