男性，28岁。既往有肺结核病史6年，经规律抗结核治疗，复查胸片，结核病灶已好转。1个月前患者出现低热、盗汗、乏力，右下腹隐痛，进食后加重，每天排3～4次糊样便，无黏液脓血。查体：消瘦，睑结膜苍白，心肺未见异常，腹软，右下腹有压痛，无反跳痛、肌紧张，未触及包块。

则该患者可能的诊断为（）

A.增生性肠结核

B.细菌性痢疾

C.肠伤寒

D.溃疡性结肠炎

E.溃疡性肠结核

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click()
s="ABBACDDCBA"
For i=6 To 2 Step-2
x=Mid(s,i,i)
y=Left(s,i)
z=Right(s,i)
z=X ＆ Y & Z
Next i
MsgBox Z
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是( )。

A．AABAAB

B．ABBABA

C．BABBAB

D．BBABBA