有一个单击按纽过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。请补充下面的程序：

Private Sub command1_click(   )

Dim X, N As Integer
Dim count As Integer   ' count用来保存能被6整除余2的数据的个数
Randomize Timer   ' 随机数初始化，以时钟为随机数种子

For N = 1 To 50

X = ___________ + int(Rnd * 40) ' 随机产生50个60～100的随机数

If  X Mod 6 = 2 Then

List1.AddItem Str(X)

_______________

End If

Next N

Label1.Caption = str (count)

End Sub

（加试题）某同学编写一个VB程序模拟音乐播放器的“随机排序”功能。单击“随机排序”按钮Command1，随机生成15个“歌曲名”（歌曲名由3-6个大写英文字母组成），在列表框list1输出原播放顺序，在列表框list2输出随机排序后的顺序。运行界面如下：

实现上述功能的VB代码如下，其中加框处代码有错，请改正。
(1)________________________;
(2)________________________;
Private Sub Command1_Click()
Dim a(1 To 15) As String, b(1 To 15) As Boolean, c(1 To 15) As String
'数组a和数组c分别代表排序前后的文件名
Dim i As Integer, j As Integer, k As Integer
For i = 1 To 15    ‘生成各文件名，存放在数组a
k =Int(Rnd*5)+2 （1）
a(i) = ""
For j = 1 To k
a(i) = a(i) + Chr(65 + Int(Rnd() * 26))
Next j
List1.AddItem Str(i) + " " + a(i)
Next i
For i = 1 To 15
b(i) = False
Next i
For i = 1 To 15
k = Int(Rnd() * 15) + 1
Do While b(k) = True
k = Int(Rnd() * 15) + 1
Loop
b(k) = True
c(i) = a(k) + " " + "原位置" + Str(k)
Next i
For i = 1 To 15
List2.AddItem Str(i) + "  " +str(a(i)) （2）
Next i
End Sub

上面这段程序描述的是已知圆半径r，计算面积s。当运行时，输入半径1，输出的面积与实际结果出现了偏差，程序和运行结果如下所示。
导致出现此问题的语句编号是 ，应该改成    。

将数学表达式写成Visual Basic表达式，正确的是(   )。

A．Sqr(b*b-4a*c)

B．Sqr(b*b-4*a*c)

C．Str(b*b-4*a*c)

D．Sqr(b*b-4ac)

VB表达式: Sqr(Abs(Int（-8.2）))+ 32 mod 10 \ 3的结果是

A．5

B．4

C．3

D．2