在窗体中添加一个命令按钮，编写如下程序： Private Sub Test(p，m，n)p=p+1：m=m+1：n=n+1Print "Sub: ";p；m；n End Sub Private Sub Command1.Click()a1=1：b=2：c1=3Call Test((a，b1+3，(c1))Print "Main："；a1；b1；c1 End Sub 程序运行后，输出结果为

A．Sub： 2 6 4 Main： 2 6 4

B．Sub： 2 6 4 Main： 2 6 4

C．Sub： 2 6 4 Main： 1 2 3

D．Sub： 2 6 4 Main： 2 2 3

消渴病并发白内障的机理是

A．燥热内结，营阴被灼，络脉瘀阻，蕴毒而成
B．肾阴亏损，肝失濡养，肝肾精血不足，无以上承
C．阴虚燥热，肺失滋润
D．阴虚热炽，炼液成痰，痰阻经络，蒙蔽心窍
E．阴损及阳，脾肾衰败