某食品连锁店5位顾客贵宾消费卡的积分依次为810，512，613，700，900。采用选择排序算法对其排序，若完成第一遍时的结果为：512，810，613，700，900，则完成第二遍的结果是(  )

A．512，613，700，900，810

B．512，810，613，900，700

C．512，900，613，700，810

D．512，613，810，700，900

工资问题：某古老的工作和工资计算方式比较奇特，其工作要求如下：必须从1月1日当天开始工作，且连续工作n（n<=365）天才一次性结算得到工资。某年（假设当年为平年）的工资计算细则是：第1天获得1枚金币，接下来的2天（第2天和第3天）每天获得2枚金币，再接下来的3天（第4、5、6天）每天获得3枚金币，……，依次类推，即当连续n天每天获得n枚金币后，会在之后的连续n+1天里，每天获得n+1枚金币。
小王用VB编写了工资计算程序，当输入连续工作的最后一天的日期后，单击“计算”按钮Command1，程序自动计算工资总额，其运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题：
（1）下列选项中，属于鼠标“单击”事件的是_______。（单选，填字母：

A．DblClick/

B．Load/

C．Click）

（2）请在划线处填入合适的代码。
①__________
②__________
（3）加框处的代码有错误，请改正。
__________
Private Sub Command1_Click()
Dim i As Integer,j As Integer,k As Integer
Dim m As Integer,d As Integer,n As Integer
Dim md As String,sum As Integer
md = "312831303130313130313031"
n = 0
m = Val(Text1.Text)
d = Val(Text2.Text)
For i = 1 To m - 1
n =  ①  
Next i
n = n + d
i = 0:j = 0
sum = 0:k = 1
Do While i < n
sum =
j = j + 1
If  ②  Then
j = 0
k = k + 1
End If
i = i + 1
Loop
Text3.Text = Str(sum)
End Sub

   （加试题）n个数从小到大选择排序需要经过n-1遍加工，每遍加工从未排序的数据元素中找出最小的元素与当前元素进行交换。小天同学学习了选择排序算法和函数的知识后，编写了一个VB程序，功能如下：运行程序时首先在列表框List1中显示10个不小于10且不大于99的随机自然数，单击“排序”按钮Command1后，在列表框List2中显示这些数据按从小到大排序后的结果，运行结果如图所示。

实现上述功能的VB代码如下，但划线处有错，请改正。
Dim a(1 To 10) As Integer '定义数组a
Private Sub Form_Load()
Randomize
For i = 1 To 10  '产生10个不小于10且不大于99的随机自然数，并依次存放在数组a中
a(i) = Int(Rnd * 100) '①
List1.AddItem Str(a(i))
Next i
End Sub
'Find_min函数寻找与当前元素a(x)需要交换的数组元素下标
Function Find_min(x As Integer)
Dim k As Integer, j As Integer
k = x
For j = x + 1 To 10
If a(j) < a(k) Then k = j
Next j
Find_min = k
End Function
Private Sub Command1_Click()
Dim i As Integer, k As Integer, t As Integer
For i = 1 To 9
k = Find_min(i+1)     '②
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
For i = 1 To 10
List2.AddItem Str(a(i))
Next i
End Sub
（1）加框处①有错，应改为__________________________。
（2）加框处②有错，应改为__________________________。

如果一个整数是另一个整数的平方，则称该数是“完全平方数”。如：1=1×1，4=2×2，9=3×3，所以1、4、9是完全平方数。编写程序，统计100到10000之间的所有完全平方数的和。（4分）

有如下Visual Basic程序：
Private Sub Command1_Click( )
Dim  s  As  Integer
Dim  I  As  Integer
S=0
For i="1" To 10
s=s+i\7
Next i
Text1.text=str(s)
End sub
该程序段运行后，文本框Text1中显示__________