在某地区健康教育促进项目中开展控烟行动。如果在青少年的控烟计划中提出“通过健康促进活

严重脂肪肝演变为肝硬化时超声表现需除外的是（）。

A.腹水

B.肝脏体积缩小

C.肝内胆管扩张

D.门静脉高压

E.血管显示不清

膀胱结石直径2cm，尿检白细胞3～5个/HP。最佳的治疗方法是（）

A.经 * * 膀胱碎石

B.膀胱切开取石

C.经膀胱镜取石

D.体外冲击波碎石

E.中药排石

以下四选项除了（）外，都是商品出库的复核形式。

A.专职复核

B.交叉复核

C.保管员复核

D.环环复核

已知数组A(4,4)，各个元素在运行程序时被赋值并打印，形成四除非方阵。请在 (13) 和 (14) 处填入所需的内容，使产生一个转置矩阵(即行列互换)，仍放在数组A中，并打印出来。例如：
1 2 3 4
1 2 3 4
1 2 3 4
1 2 3 4
1 1 1 1
2 2 2 2
3 3 3 3
4 4 4 4
Private Sub Command1_Click()
Dim a(4,4)
　　For k=1 To 4
　　　For j=1 To 4
　　　　a(k,j)=j
　　　Print a(k,j)；
　　Next
　　Print
　Next
　For k=2 To 4
　　For j=1 To (13)
　　　t=a(j,k)
　　　a(j,k)= (14)
　　　a(k,j)=t
　　Next
　Next
　For k=1 To 4
　　　Print a(k,1)；a(k,2)；a(k,3)；a(k,4)
　Next
End Sub