搜题请搜索小程序“爱下问搜题”
问题 多项选择题

发生危险化学品泄漏事故后，下列做法正确的是（）。

A.立即在事发地点周围设置警告标志，不要在周围逗留

B.尽快离开事故现场，撤离到上风口位置

C.留在现场，帮助救援

D.拨打报警电话，说清具体位置

答案

参考答案：A, B, D

单项选择题

普鲁卡因穿透力较弱,不宜用于

A．浸润麻醉

B．传导麻醉

C．蛛网膜下腔麻醉

D．表面麻醉

E．硬膜外麻醉
查看答案
问答题

在考生文件夹下有一个工程文件sjt4.vbp，及其窗体文件sjt4.frm，窗体上有一个标签和一个文本框，控件及其属性均已设置完毕。现使用KeyPress事件编写一个口令程序，程序运行后，在文本框中输入口令．如果正确，则显示相应的信息，单击“确定”按钮后，将显示一行信息；如果口令不正确，则要求重新输入。3次输入的口令都不正确，则停止输入，并结束程序。程序运行的画面如下图所示。

要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。

试题源程序如下：

1 Private Sub Form Load( )

2 Text1.Text=""

3 Text1.FontSize=10

4 Label1.FontSize=12

5 Label1.FontBold=True

6 Label1.Font0="隶书"

7 Label1.Caption="请输入口令..."

8 End Sub

9 Private Sub Text1_KeyPress(KeyAscii As Integer)

10 Static PWord As String

11 Static Counter As Integer

12 Static Numberftries As Integer

13 Numberftries=Numberftries+1

14 ’If Then End

15 Counter=Counter+1

16 ’PWord=PWord+

17 KeyAscii=0

18 Text1.Text=String$(Counter，"*")

19 If LCase$(PWord)="abcd"Then

20 Text1.Text=""

21 PWord=0

22 MsgBox"口令正确, 继续..."

23 Counter=0

24 Print "continue..."

25 ’Else If Then

26 Counter=0

27 PWord=""

28 Text1.Text=""

29 MsgBox"口令不对，请重新输入"

30 End If

31 End Sub
查看答案