单项选择题：符合原发性血小板减少性紫癜表现的是( ) A．皮下结节 B．晨僵 C．皮肤紫癜 D

题型：单项选择题

在考生文件夹下有工程文件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

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

查看答案

符合原发性血小板减少性紫癜表现的是( ) A．皮下结节 B．晨僵 C．皮肤紫癜 D

问题：