保卫人员在保护现场的过程中,应注意收集现场()人员的反应情况。
A.事主
B.发现人
C.事主、发现人
D.事主、发现人和现场周围群众
参考答案:D
关于半导体,下列说法错误的是( )
A.有的半导体在光照下电阻减小,利用这种半导体可以做成体积很小的光敏电阻
B.常用的电器,如收音机、电脑等都利用了半导体元件
C.半导体的导电性能介于导体和绝缘体之间
D.由半导体材料制成的二极管的导电性能很特殊,它只允许电流从负极流向正极
[说明] 以下Visual Basic代码实现了系统登录时对用户进行合法性检查。界面如图9-6所示。阅读下面代码,将 (n) 处代码补充完整。
[代码7-1] Begin VB.Form form1 BackColor = &H00808080& Caption = "系统登录" //...窗体描述(略) Begin VB.Labe1 Labe12 Backstyle = 0 ’Transparent Caption = "密 码: " //…窗体描述(略) End Begin VB.Labe1 Labe11 Backstyle = 0 ’Transparent Caption = "操作员: " //...窗体描述(略) End //...窗体描述(略) End [代码7-2] Dim TIM As Integer Dim mydb As Database Dim myrs As Recordset Dim sq1 As String Private Sub Form ACdvate ( ) Set mydb=Workspaces (0).OpenDatabase (App.Path&"\CIUID.mdb") ’打开数据库 sq1="select操作员from qxsz" Set myrs=mydb.OpenRecordset (sq1) If (1) Then myrs.MoveLast If (2) Then myrs.MoveFirst For i=0 TO myrs.RecordCount-1 (3) (4) Next i If (5) Then master.Listlndex=0 myrs.Close mydb.Close master.SetFocus End Sub [代码7-3] Private Sub Cmdok_Click ( ) ’确认操作员和密码 Dim MESSAGE As String If master.Text<>’’’Then Set mydb=Workspaces (0) .OpenDatabase (App.Path&"\CIUID.mdb") Set myrs=mydb.OpenRecordset ("qxsz", dbOpenDynaset) myrs.Findfirst"操作员="+Chr(34) +master.Text+Chr(34) +"" ’查找操作员 If (6) Then MsgBox ("无此操作员!") Else If password.Text=myrs.Fields("密码") Then ’确认密码MsgBox"系统登录成功!" ’系统登录成功 ElseIf TIM=3 Then MESSAGE=MsgBox ("密码输入错误,请向系统管理员查询!",0,"") If MESSAGE=vbOK Then EndEnd IfMsgBox ("密码错误,请重新输入密码!")TIM=TIM+1 ’密码输入错误次数password.SetFocus End If End IfEnd If End Sub