在Visual Basic中，有整型变量a=5，b=3，要在标签控件中显示结果为8，则执行下列语句能正确显示结果的是：（   ）

A．Label1.Caption=Str(a+b)

B．Text1.Text=Len(a)+Val(b)

C．Text1.Text= Sqr(a+b)

D．Label1.Caption=" Str(a)+" Str(b)

下面的程序代码是通过函数求出二个整数型变量a、b中的较大值，其中所定义的函数名是（   ）
Function max(a, b As Integer) As Integer
If a > b Then max = a  Else  max = b
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer, s as integer
a =" Val(Text1.Text):" b = Val(Text2.Text)
s =" max(a," b)
Text3.Text = s
End Sub

A．Command1_Click

B．function

C．max

D．max(a, b As Integer)

（加试题）某同学编写一个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

（加试题）异或的数学符号为“⊕”，其运算法则相当于不带进位的二进制加法：0⊕0=0，1⊕0=1，0⊕1=1，1⊕1=0（即符号两侧数值相同时，计算结果为0；数值不同时为1）。
如果要对两个十进制数进行异或运算，可以按以下步骤进行：
①   先将要进行异或运算的两个十进制数分别转换为二进制；
②   对两个二进制数按位进行异或运算；例：(101101)₂⊕(111)₂=(101010)₂
③   再把步骤②中的运算结果转换为十进制，该十进制数即为运算结果。
小明编写了一个VB程序来模拟上述运算过程，程序功能如下：在文本框Text1和Text2中分别输入要参加异或运算的十进制数，单击计算按钮Command1，程序对输入的两个数进行异或运算，并将运算结果显示在文本框Text3中，程序运行界面如图所示。

（1）通过以上关于异或运算的描述，可知10⊕6的结果是___________。
（2）实现上述功能的VB程序如下。请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim a1 As String, b1 As String
Dim lena1 As Integer, lenb1 As Integer, i As Integer
Dim result As String
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then
c = a: a = b: b = c
End If
result = ""
a1 = DtoB(a): b1 = DtoB(b)
lena1 = Len(a1): lenb1 = Len(b1)
i = 1
Do While i <= lena1
If Mid(a1, lena1 - i + 1, 1) = Mid(b1, lenb1 - i + 1, 1) Then
result = "0" + result
Else
result = "1" + result
End If
i = i + 1
Loop
result =①_____
Text3.Text = BtoD(result)
End Sub
Public Function DtoB(x As Integer) As String
Dim remainder As String
DtoB = ""
Do While x > 0
remainder = CStr(x Mod 2)  ＇如：CStr(3 Mod 2)的值为"1"
DtoB = remainder + DtoB
②________  
Loop
End Function
Public Function BtoD(x As String) As Integer
Dim i As Integer
BtoD = 0
For i = 1 To Len(x)
BtoD =③________+ Val(Mid(x, i, 1))
Next i
End Function

（1）有如下程度段：
X=5
Y=-20
If  Not x>0 Then x=y-3  Else y=x+3
该程序段运行后，y的值为：___ 。
（2）有如下VB程序段：
a = 3: b = 4: c = 5
If a >= b And a >= c Then
y = a
ElseIf b >= c Then
y = b
Else
y = c
End If
该程序段运行之后，整数型变量y的值:_____。
（3）火车托运行李，根据行李的重量按下列标准收费：若不超过50千克，按每千克0.35元收费；若超过50千克，超过部分则按每千克0.5元收费。输入托运行李的重量，计算并输出托运行李的费用。下面程序若用于实现上述目标，则划线处的语句应更改为_________________________。
Sub command1_click( )
Dim x as double
X=val(text1.text)
If x<=50  then
Text2.text= str(0.35*x)
Else
Text2.text= str(0.5*x)
Endif
End sub
（4）求n阶乘（n!=1*2*3*4*n）,划线处的语句应为.
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim f As Long
n = Val(Text1.Text)
f = 1
i = 1
Do While i <= n
__________________________
i = i + 1
Loop
Text2.Text = Str(f)
End Sub