第8题: [单项选择]在窗体上画一个文本框,然后编写如下程序: Option Base 1 Private Sub Form_Click( ) Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1.Text:Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后,单击窗体,在文本框中显示的内容是 A. 1 B. 3 C. 6 D. 10 参考答案:D 答案解析:[分析] 在本题中,定义了一个一维数组Arr,并为其开辟了10个元素的空间,然后通过For循环为该数组的后5个元素赋值。不难看出,数组Arr后5个元素的值分别为3、4、5、6、 7。最后一个语句是为文
第19题: [单项选择]病毒性肝炎少见的病理学改变是 A. 肝细胞气球样变 B. 肝细胞脂肪变性 C. 成纤维细胞增生 D. Kupffer细胞增生 参考答案:B 答案解析:尽管肝细胞易发生脂肪变性,但除丙型肝炎偶可发生脂肪变性外,其他类型的病毒性肝炎很少发生脂肪变性。肝细胞气球样变是肝细胞水肿的结果,成纤维细胞和Kupffer细胞增生是间质增生性反应。