运行如下VB程序：
Private Sub Command1_Click( )
　Dim x As Integer
　Dim y As String
　x＝Val(Text1.Text)
　If x＞＝95 Then
y＝“非常满意”
　ElseIf x＞＝80 Then
y＝“满意”
　ElseIf x＞＝60 Then
y＝“基本满意”
　Else
y＝“不满意”
　End If
Label1.Caption＝y
End Sub
在文本框Text1中输入50，单击命令按钮Command1后，在标签Label1中显示(　 　)

A．非常满意	B．满意
C．基本满意	D．不满意

小明在VB中定义了以下函数，功能是求a和b的最大公约数。
Function gcd(a As Integer，b As Integer) As Integer
　Do While b＞0
c＝a Mod b
a＝b
b＝c
　Loop
End Function
调试中发现计算结果一直是0。经过仔细观察与分析，发现错误的原因是(　 )

A．函数名有错	B．变量c没有定义
C．函数没有返回值	D．b＞0应该改为b＞＝0

有如下VB程序段：
Dim i As Integer，c As String，s As String，t As String
s＝“China2014IT”：t＝“”
For i＝1 To Len(s)
　c＝Mid(s，i，1)
　If c＞＝“a” And c＜＝“z” Then t＝t＋c
Next i
Label1.Caption＝t
该程序段运行后，标签Label1中显示的内容是( )

A．2014	B．ChinaIT
C．hina	D．CIT

有如下Visual Basic程序段：
m = a(1)
i =" 2"
Do While i <= 10
If m < a(i) Then m = a(i)
i =" i" + 1
Loop
该程序段执行后，变量m中存储的是（   ）

A．a(1)至a(10)中的最大值

B．a(1)至a(10)中的最小值

C．a(2)至a(10)中的最大值

D．a(2)至a(10)中的最小值

下面VB程序的功能为：在文本框Text1和Text2中输入两个整数，单击按钮对象Command1，在标签对象Label1中显示这两个数的差。
Function lsc(x，y) As Integer
　If x＞y Then
lsc＝x－y
　Else
lsc＝y－x
　End If
End Function
Private Sub Command1_Click( )
　Dim a1 As Integer，a2 As Integer
　a1＝Val(Text1.Text)
　a2＝Val(Text2.Text)
　Label1.Caption＝________
End Sub
要实现上述功能，程序画线处应填入的语句为( )

A．lsc(x，y)	B．lsc(Text1.Text，Text2.Text)
C．lsc	D．lsc(a1，a2)

字符串变量a的值为“Hello,world！”，下列Visual Basic表达式的值是“world”的是(　 　)

A．Len(a，6，5)	B．Mid(a，6，5)
C．Mid(a，7，4)	D．Mid(a，7，5)

对10个数据进行冒泡排序，需要比较的次数是( )

A．90	B．110
C．45	D．55

有如下VB程序：
Dim i As Integer，j As Integer，k As String，n As Integer
n＝3
List1.Clear
For i＝1 To n
k＝“”
For j＝1 To i
k＝k＋“*”
Next j
List1.AddItem k
Next i
该程序运行中，在列表框List1中显示的是(  )

A．	B．
C．	D．

窗体装载事件过程可以对程序进行初始化。VB窗体装载事件过程的名称是(　 　)

A．Command1_Click	B．Form_Keypress
C．Form_Load	D．Form_DblClick

篮球联赛中，有5个班级的比赛积分依次为14，11，13，8，9。若采用冒泡排序算法对其进行从小到大排序，则完成第二遍时的结果是(　 　)

A．8，11，13，14，9	B．8，9，13，14，11
C．8，9，14，11，13	D．14，13，11，9，8

下面VB程序的功能是求100～999间被3除多2，被5除多3的所有整数，并统计符合条件的数的个数。
Private Sub Command1_Click( )
Dim i As Integer，P As Integer
p＝0
For i＝100 To 999
If __①__ Then
List1.AddItem Str(i)
②__
End If
Next i
List1.AddItem Str(p)
End Sub
为实现上述功能，请在程序划线处填入合适的语句：
划线①处应填入的语句为：_____________________________________；
划线②处应填入的语句为：_____________________________________。