搜题请搜索小程序“爱下问搜题”
问题 单项选择题 A1/A2型题

县级以上人民政府卫生行政部门对传染病防治工作履行监督检查职责，卫生行政部门工作人员依法执行职务时，应当不少于多少人，并出示执法证件，填写卫生执法文书（）。

A.两

B.三

C.四

D.五

E.六

答案

参考答案：A

单项选择题 A2型题

患者精神极度疲惫，神志朦胧，困倦欲睡，肢冷脉微，其临床意义是（）。

A.心肾不交

B.痰湿困脾，清阳不升

C.脾失健运，清阳不升

D.正气未复

E.心肾阳虚，神失温养
查看答案
问答题

完成下列问题：

在考生文件夹下有一个工程文件sjt4.vbp，其窗体如图4所示。该程序用来对在上面的文本框中输入的项字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，把明文中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)，如图4所示。窗体中已经给出了所有控件和程序，但程序不完整，请在程序中的横线处填写正确的内容。
[*]
注意：不能修改程序中的其他部分和控件属性，最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Private Sub Command1_Click()
Dim n As Integer, k As Integer, m As Integer
Dim c As String, a As String
For k=0 To 2
If Op1(k).Value Then
n=Val(Op1(k). (1)
End If
Next k
m=Len(Text1.Text)
a=""
For k=1 To (2)
c=Mid $ (Text1.Text, (3) ,1)
c=String (1,Asc(c)+n)
If c＞"z" Or c＞"Z" And c＜"a" Then
c=String(1,Asc(c)-26)
End If
(4) =a+c
Next k
Text2.Text=a
End Sub
查看答案