控件数组的名字由Name属性指定，而数组中的每个元素由【 】属性指定。

下面程序是用冒泡法将数组a中的10个整数按升序排列，请将程序补充完整。 Private Sub Command1_Click( ) Dim a, Tmp As Integer a = Array (678,45,324,528,439,387,87,875,273,823) For i =【 】 Forj =0 To 9 Ifa (i)＜a(j) Then Tmp = a(i): a(i) = a(j) i a(j) = Tmp End If Next j,i For i = 0 To 9 Print a(i) Next End Sub

请帮忙给出正确答案和分析，谢谢！

有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NM1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。 Private Sub Form_Click() Dim x As Single，y As Single Open "NM1.txt" For Input As 1 Open "NM2.txt "For Input As 2 Do While Not EOF(1) 【 】 Print x y=x^2 【 】 Print y Loop Close 1, S2 End Sub

请帮忙给出正确答案和分析，谢谢！

有下列程序，运行后变量x1、y1和z1的结果分别是【 】、【 】和【 】。 Private Sub fun1(s，m，n) s = m + 1 m = n + 2 n = s + 3 End Sub Private Sub form. Click() Dim x1， y1 x1 = 1 ：y1 = 1 ：z1 = 1 Call fun1(x1，y1 + 1，(z1)) Debug．Print x1； y1； z1 End Sub

请帮忙给出正确答案和分析，谢谢！

在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Dhvel、 Dirl和File1。为了使它们同步操作，必须触发Drive1_Change()事件和Dir1_Change()事件，在这两个事件中执行的语句分别是【 】和【 】。

请帮忙给出正确答案和分析，谢谢！