VB程序中的赋值语句“x=x+1”是合法的。（  ）

A．正确

B．错误

给定一个四位数的年份，判断它是否为闰年：四年一闰、百年不闰；四百年又闰（年份能被4整除但不能被100整除是闰年，或者年份能被400整除也是闰年。例如2004年和2000年都是闰年，2100年不是闰年）。下列判断年份。下列判断年份y是闰年的表达式正确的是（   ）。

A．y Mod 4=0 Or y Mod 100<>0 And y Mod 400=0	B．y Mod 4=0
C．y Mod 4=0 And y Mod 100 <>0 Or y Mod 400=0	D．y Mod 400=0

以下程序段运行后，整型变量max1，min1的值分别是（   ）。
a=3  b=5
max1=(a+b)/2+Abs(a-b)/2
min1=(a+b)/2-Abs(a-b)/2

A．5，3

B．5，5

C．3，3

D．3，5

在VB中，下列哪个选项是正确的赋值语句？（  ）

A．2018=x

B．5s=80

C．a+b=c

D．s=s+5

将双精度浮点数变量x的值四舍五入保留三位小数，赋值给双精度浮点数变量y，y=_______________________________

下面的代码
a=3
b=6
a=a+b
b=a-b
a=a-b
print a ,b
运行结果：______________

Visual Basic规定窗体文件的扩展名是（ ）。

A．.for

B．.frm

C．.vbp

D．.bas

运行程序时，Text1. text=“”语句会被自动执行，可以将该语句嵌入的过程是（   ）

A．Command1_click

B．Form_load

C．Text1_click

D．Timer1_timer

有如下VB程序：
Private Sub Command1_Click()
Dim a(5) As Integer
Randomize
For i = 1 To 5
a(i) = 2 * Int(Rnd * 3) + 1
Next i
For i = 1 To 5
r = 2 * Int(Rnd * 3) + 1
If a(r) Mod 2 = 1 Then a(r) = a(r) + 1
Next i
End Sub
该程序段运行后，a(1)~a(5)各元素的值不可能的是（   ）

A．2，5，6，1，4	B．4，1，2，3，4
C．5， 6，3，2，6	D．6，5，2，1，2

设计一个算法，计算导弹射程之间的最大距离差。具体程序功能如下：在文本框中输入各枚导弹的射程（单位：千公里），数据之间用逗号分割，以-1结尾。单击按钮，在标签框输出结果。例如在Text1中输入“15，9，1，2，3，8，7，-1”，单击“计算”按钮，输出结果为“14”。实现该算法的VB程序如下，界面如图所示，回答下列问题：

（1）为实现该程序，在窗体中至少需要使用_______类不同的控件对象（填数字）。
（2）算法具体代码对应如下，请在横线处填入合适的语句代码，使程序完整。
Private Sub Command1_Click()
Dim a(100) As Integer
Dim max As Integer: Dim min As Integer
Dim c As Integer: Dim i As Integer: Dim j As Integer: Dim Total As Integer
Dim s As String
s = Text1.Text
i = 1 : begin = 1 : c = 0
Do While i <= Len(s)

k = Mid(s, i, 1)

If k = "," Then

t = ①_________

c = c + 1
a(c) = Val(t)
begin =②__________
End If
i = i + 1
Loop
   ' 加框语句
min = a(1)
For i = 1 To c
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
Text2.Text = max - min
End Sub
（3）若删除程序中加框处语句，还是相同的输入数据，则计算出的最大差值为：_________。