小乐编写了一个求最小公倍数的程序，他先借鉴更相减损术求出最大公约数，再求出最小公倍数。更相减损术是出自《九章算术》的一种求最大公约数的算法，其原理是用大数减去小数，互相减来减去，一直到减数与差相等为止。在文本框Text1中输入一个整数，在Text2中输入另一个整数，单击“计算”按钮Command1，在Label3中输出两个数的最小公倍数。程序运行界面如图所示。

（1）根据程序代码判断，保证程序正常运行，窗体中至少需要________个对象。
（2）为了实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim m As Integer, n As Integer
Dim gys As Integer
m = Val(Text1.Text)
n = Val(Text2.Text)
a = m: b = n
Do While m <> n
If ①______Then m = m - n Else n = n - m
Loop
gys = n
Label3.Caption = "最小公倍数是:" + ②__________
End Sub
（3）若在文本框Text1中输入15，在文本框Text2中输入6，单击“计算”按钮后，语句m=m-n执行了___________次。

（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

某排序算法的VB程序段如下：
k=1
For i=1 To 2
For j=1 To 6-2*i
If k* a(j)<k*a(j+2)Then
t=a(j): a(j)=a(j+2): a(j+2)=t

End if

k=-k

Next j
Next i
数组元素a(1)到a(6)的初始值依次为“15，11，58，38，26，9”，该程序段执行后，数组a元素的值分别为（   ）

A．58，9，26，11，15，38

B．58，38，26，11，15，9

C．15，38，26，11，58，9

D．58，38，26，15，11，9

随机产生10个12,20间的随机整数放在A数组中,打印最大的和最小的.请完善程序
PRIVATE   SUB   FORM_CLICK( ）
________1
MAX=0:  MIN=21
FOR   I=  1  TO  10
A(I)=________2
IF ________3THEN   MAX=A(I)
IF ________4THEN  MIN=A(I)
NEXT  I
PRINT   “最大数是”；MAX ,”最小数是” ；MIN
END  SUB

小王设计了一个Visual Basic小程序，该程序的功能是将一个二进制数转化为十六进制数。程序运行时，在文本框Text1输入二进制数（由0、1构成的数串），单击“转换”按钮Command1后，在文本框Text2中显示转换结果。程序运行界面如下图所示。

实现上述功能的程序代码如下所示，请在划线处填上合适的代码：
Private Sub Command1_Click()
Dim x As String, y As String,
Dim i As Integer, s As Integer, n As Integer, c As String
Dim q As String, h As String, ans As String
n = Len(Text1.Text)
y = Text1.Text
If n Mod 4 <> 0 Then ________________
For i = 1 To s
y = "0" + y
Next i
For i = 1 To n Step 4
________________________
If h = "0000" Then q = "0"
If h = "0001" Then q = "1"
If h = "0010" Then q = "2"
If h = "0011" Then q = "3"
If h = "0100" Then q = "4"
If h = "0101" Then q = "5"
If h = "0110" Then q = "6"
If h = "0111" Then q = "7"
If h = "1000" Then q = "8"
If h = "1001" Then q = "9"
If h = "1010" Then q = "A"
If h = "1011" Then q = "B"
If h = "1100" Then q = "C"
If h = "1101" Then q = "D"
If h = "1110" Then q = "E"
If h = "1111" Then ___________________ 
ans =_____________________  
Next i
Text2.Text =ans
End Sub