Private Sub Command1_Click()
Dim bm, Msg
bm = 习题库.Recordset.Bookmark
Msg = InputBox("请输入习题序号", "查找习题")
If Len(Msg) = 0 Then Exit Sub
If 习题库.Recordset.RecordCount > 0 Then
bm = 习题库.Recordset.Bookmark
End If
习题库.Recordset.Seek "=", Msg
If 习题库.Recordset.NoMatch And Len(bm) > 0 Then
MsgBox "此习题不存在，请输入正确的习题序号！"
习题库.Recordset.Bookmark = bm
End If
End Sub
答：它在电缆电视的基础上，将分配网络的主干部分改为光缆，在各个服务节点处完成光电转换，再由同轴电缆将传输信号送到用户家里，可有效地实现Internet访问、电视点播...详情>>
答：高手 很难的问题详情>>
