如图所示，当开关S闭合，变阻器滑片P由b端向a端移动过程中：

A.电流表示数增大，电压表示数不变

B.电流表示数增大，电压表示数减小

C.电流表示数减小，电压表示数增大

D.电流表示数不变，电压表示数增大

执行下列程序后输出如下所示矩阵，填空将程序补充完整。
1 0 0 2
0 3 4 0
0 5 6 0
7 0 0 8
Private SubCommand1_Click()
Dim a(4，4)
For i=1 To 4
For i=1 To 4
If 【9】 Then
【10】
a(i，j)=k
Else
a(i，j)=0
End If
Print a(i，j)；
Next i
Print
Next i
End Sub