主动脉听诊区闻及收缩期喷射样杂音，向颈部传导，最可能的诊断是A．二尖瓣狭窄 B．二尖

试述细菌对临床常用药物的耐药机制。

管线利用法兰连接时，法兰间要加密封垫圈。法兰连接处是管路中的（），日常工作中应加强检查，防止泄漏。

A.绝缘点

B.软连接点

C.静密封点

D.动密封点

以下说法不正确的是

A．Visual Basic是一种可视化编程工具

B．Visual Basic是面向过程的编程语言

C．Visual Basic是结构化程序设计语言

D．Visual Basic采用事件驱动编程机制

水稻穗颈瘟防治对象是所有感病品种田，在抽穗期气候有利于发病，且又是病区，必须在破口期与齐穗期各喷药一次。

[说明]
以下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"系统登录成功!" ’系统登录成功
Else
If TIM=3 Then
MESSAGE=MsgBox ("密码输入错误，请向系统管理员查询!",0,"")
If MESSAGE=vbOK Then End
End If
MsgBox ("密码错误，请重新输入密码!")
TIM=TIM+1 ’密码输入错误次数
password.SetFocus
End If
End If
End If
End Sub