患者，女性，31岁。主诉：全口牙龈增生，影响进食1个月。1个月前咽痛，发热4天，近2个月乏力，体重减轻 5kg。若怀疑白血病，诊断前需做的一项检查是

A．测量血压

B．量体温

C．检查血象

D．X线片

E．活检

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 To 2For j=1 To 4 If j Mod 2＜＞0 Then a=a+1 End If a=a+1Next j Next i Print a End Sub 程序执行后，单击命令按钮，输出结果是 【7】 。