单击命令按钮时，下列程序的执行结果是()。　　Private Sub Commandl_Click( )　　　　BT 4　　End Sub　　PriVate Sub BT(x As Integer)　　　　X=X * 2 + 1　　　　If x ＜6 Then　　　　　Call BT(x)　　　　End If　　　　X=x * 2　　　　Print x；　　End Sub

A．'A'%6

B．'n'-3

C．a＞=4= = b＜l

D．'a'=8

病案分析题（请分析下列病案的中医诊断、证型、辨证分析；并写出治法、主方和用药）患者，女性，25岁。肛门潮湿不适2月余。肛门部可见 * * 状肿物，肿块表面糜烂有渗液，有臭味，肿块基底潮红，舌红，苔黄腻，脉濡数。