干湿球温度计湿球用脱脂纱布，每（）天换洗一次。

A.5

B.7

C.10

D.15

阅读下列程序。Option Base 1Private Sub Form CliCk() Dim x(3,3) For j=1 to 3 For k=1 to 3 If j=k then x(j,k)=1 If j＜＞ k then x(j,k)=3 Next k Next j Call fun(x())End SubPrivate Sub fun(a()) For j=1 to 3 For k=1 to 3 Print a (j,k)； Next k Next jEnd Sub运行程序时，输出的结果是 【12】 。