下列程序段的执行结果是______。
option base 1
private eommand1_c1ick ()
Dim A(10)
Dim E(5)
For i = 1 To 10
A(i) = i
Next i
For j = 1 To 5
B(j) = j * 20
Next j
A(5) = B(2)
Print “A(5)=”; A(5)
End sub

A．A(5)=20

B．A(5)=30

C．A(5)=40

D．A(5)=50

慢性肾炎患者，近10天来出现厌倦、恶心、乏力，首先应查（）

A.内生肌酐清除率

B.HBsAg

C.钡餐检查

D.血尿素氮、肌酐，二氧化碳结合力

E.肝功能化验检查