对特定疾病有显著疗效的中药是
A.医疗机构制剂室B.药品生产企业C.药品批发企业D.药品零售企业E.各级医疗机构
参考答案:B
健康教育的具体目标是()。
A.为实现总目标所要达到的具体结果,确定在一定的时间内完成
B.为实现总目标所要达到的具体结果,确定在一定的地点完成
C.为实现总目标所要达到的具体结果,确定在某个家庭或人群完成
D.为实现总目标所要达到的具体结果,有明确、具体、可测量的指标
E.为实现总目标所要达到的具体结果,确定采用某种方法能够完成
在考生文件夹下有工程文件djks043.vbp及窗体文件djks043.frm,该程序是不完整的,请在有的地方填入正确内容,然后删除及所有注释符(’),但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:在窗体上有两个标签、两个文本框、一个框架、三个单选框以及两个控制按钮。标签的名称分别为Label1与Label2,标题分别为“原文本”、“加密文本”;文本框的名称分别为Text1与Text2,Text属性均为空;两个控制按钮的名称分别为Command1与Command2,标题分别为“加密”与“读入”;单选框的名称统一为Option1,标题分别为2、4、6;框架名称为Frame1,标题为“加密类型”。单击“读入”按钮,程序将读入考生文件夹下的文本文件in043.txt,单击“加密”按钮,加密过的文本显示在Text2中。根据单选框中不同的数字,加密的方法不同。例如选择Option1,则逐一把Text1中的字符串改为它后面的第2个字母。
程序运行时的窗体界面如下图所示。
[试题源程序]
1 Private Sub Command1_Click( )
2 Text2.Text=""
3 Dim n As Integer
4 Dim i As Integer
5 Dim m As Integer
6 Dim Str As String
7 Dim StrText As String
8 For i=0 To 2
9 If Option1(i).Value Then
10 n=Val(.Caption)
11 End If
12 Next i
13 m=Len(Text1.Text)
14 For i=1 To m
15 Str=Mid S(Text1.Text, , 1)
16 Str=(1,Asc(Str)+n)
17 If Str>"z" Or Str>"Z" And Str<"a" Then
18 Str=String(1,Asc(Str)-26)
19 End If
20 StrText=StrText+Str
21 Next i
22 Text2.Text=StrText
23 End Sub
24
25 Private Sub Command2_Click( )
26 Dim s As String
27 Open App. Path & "\in043.txt" For Input As #1
28 Input #1,s
29 Text1.Text=s
30 Close #1
31 End Sub