将以下程序段补充完整。
问题：计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。
程序段：
Dim X As Single
Dim Y As Single
X=InputBox("输入行李重量")
If ①_________Then
    Y=0
Else
    Y= ②_______
End If
Print "行李费= "; ③___________

编写一个具有下列功能的VB程序：在文本框Text1中输入18位身份证号，单击“提取”按钮Command1，并在文本框Text2中显示出生日期。编辑界面如1图所示，运行界面如2图所示：


(1)按钮显示内容修改为“提取”，是通过修改___________属性完成的。
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim s As String ,x As Integer
S=Text1.Text
x ＝ Len(Text1.Text)
If①________Then
Text2.Text ＝②___________
Else
Label2.Caption ＝ ”输入的身份证号位数有误，请重新输入”
End If
End Sub

Sub test7()
For i =" 1" To 6
S =" S" + (-1) ^ i  *2 ^ i
Next i
MsgBox (S)
End sub
该程序的运行结果是（   ）

A．126

B．-126

C．-42

D．42

若X=78，则下列程序运行后的运行结果为▁▁。
INPUT  X
IF  X<60  THEN
PRINT  “BuJeGe”
ELSE
IF  X<70  THEN
PRINT  “JeGe”
ELSE
IF  X<85  THEN
PRINT  “ZhengDeng”
ELSE
PRINT  “YouXiu”
END IF
END IF
END IF

A．YouXiu

B．ZhengDeng

C．JeGe

D．BuJeGe

有如下程序段：
For i =" 1" To 2
For j =" 2" To 7 - i
If a(j) > a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
End If
Next j
Next i
数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段“加工”后，下列说法正确的是（ ）

A．数组元素a(1)到a(6)的值依次为54，29，31，58，71，78

B．此过程中数据共需比较次数为8次

C．此过程中数据共需交换次数为5次

D．此过程中数据“54”共被比较5次