关于实数X的表达式Int(X)+Int(2* X)+Int(3*X)，其值为整数2019，则Int(2*X)的值是（   ）

A．671

B．672

C．673

D．674

实际参数和形式参数存在（_______）对应、（________）对应、（________）对应。

（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

下列Visual Basic表达式中计算结果为4的是（   ）

A．Abs(-4.2)

B．Len("a123")

C．Sqr(4)

D．Int（3.5）

Len(x)是一个要求字符串长度的函数。例如Len(“abcd”)返回的是4，Len(“ab cd”)返回的是5。据此判断，下列选项正确的是_______。

A．Len(“Shaanxibeilu500”)返回的是3

B．Len(“Shaanxibeilu500”)返回的是12

C．Len(“Shaanxibeilu500”)返回的是0

D．Len(“Shaanxibeilu500”)返回的是15