第12题: [填空题]设有命令按钮Command1的单击事件过程，代码如下：
Private Sub Command1_Click（ ）
Dim a(30)As Integer
For i=1 To 30
a(i)=i
Next
For Each arrItem 【13】 a
If arrItem Mod 7=0 Then Print arrItem：
If arrItem＞90 Then Exit For
Next
End Sub
请填空。 参考答案:In 答案解析:[解析] 本题考查了For Each…Next语句，与For… Next类似。但For Each…Next专门用于数组或对象“集合”其一般格式为：
For Each成员In数组
循环体
第21题: [多项选择]鉴别单纯性肥胖和皮质醇增多症的主要依据是 A. 尿17-羟皮质类固醇测定 B. 小剂量地塞米松抑制试验 C. 血浆皮质醇昼夜节律变化 D. 糖耐量试验 参考答案:B,C 答案解析:[解释] 单纯性肥胖和皮质醇增多症均可有糖耐量减低和尿17-羟皮质类固醇增高，但在单纯性肥胖病人，虽尿17-羟皮质类同醇增高，但可被小剂量地塞米松抑制，血浆皮质醇昼夜节律保持正常，而皮质醇增多症病人失
