患者，男，30岁，因"关节弹响半年，食物嵌塞"就诊，缺牙两年余，已行胶托式RPD修复

在绩效管理准备阶段，除了需要明确考评者与被考评者之外，一项重要的任务就是（）。

A.培训专职工作人员

B.培训一般考评人员

C.培训中层干部

D.培训考评者与被考评者

中学生王某在上网聊天时，假冒本班同学赵某的姓名，并捏造本班同学孙某有小偷小摸行为。王某的行为侵犯了赵某的_____和孙某的_____。

A．姓名权　隐私权

B．姓名权名誉权

C．隐私权名誉权

D．荣誉权　肖像权

U型光滑金属导轨宽为40cm，与水平面夹角α=30°，其内串联接入一只规格为“6V，3W”的灯泡L，如图所示，垂直于导轨平面有向上的匀强磁场，有一长为50cm、质量为100g的金属杆MN在导轨上下滑时与导轨始终垂直，当杆MN有最大速度时灯泡L恰好正常发光，不计金属杆及导轨的电阻．求：

（1）磁场的磁感应强度B；

（2）金属杆的最大速度．

下列( )钻石交易所可以办理进出口钻石报关手续。

A．上海

B．深圳

C．广州

D．青岛

在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下：
32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37
程序运行后单击窗体，将把文件datain.txt中的数据输入到二维数组Mat中，在窗体上按5行、5列的矩阵形式显示出来，然后交换矩阵第二列和第四列的数据，并在窗体上输出交换后的矩阵，如图5所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。

要求：在程序中的横线处填写正确的内容(可以是多行)，使其实现上述功能，但不能修改程序的其他部分。最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Option Base 1
Private Sub Form_Click()
Const N=5
Const M=5
Dim (1)
Dim i,j,t
Open App.Path & "\" & "datain.txt" (2) As #1
For i=1 To N
For j=1 To M
(3)
Next j
Next i
Close #1
Print
Print "初始矩阵为:"
Print
For i=1 To N
For j=1 To M
Print Tab(5*j); Mat(i,j);
Next j
Print
Next i
For i=1 To N
t=Mat(i,2)
Mat(i,2)=Mat(i,4)
(4)
Next i
Print
Print "交换第二列和第四列后的矩阵为:"
Print
For i=1 To N
For j=1 To M
Print Tab(5*j); Mat(i,j);
Next j
Print
Next i
End Sub