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

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

字符串变量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)

下面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)

有如下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程序段：
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

甲乙双方进行一场球类比赛，一局计分的规则是：赢1球得1分，用“1”表示；输1球失1分，用“0”表示。当任一方得分大于等于6分，且领先对方2分及以上，领先方赢一局。如甲选手一局比赛数据为“101110101”，表示甲选手得6分失3分，局比分。
小王用一个字符串记录了甲选手多局比赛数据，其中有一处错误，位于连续多个“0”的最后一个。为了找出错误，小王的处理方法如图a所示，对示例中疑似错误位置6和20分别修改数据，并统计每局比分。他编写了VB程序，功能如下：在窗体Form l的文本框Text l中输入记录数据，单击“分析”按钮Command 1，在列表框List 1中输出修改位置以及修改后每局的比分。程序运行界面如图b所示。
（1）下列对象中有Text属性的是________（单选，填字母：

A．Command 1/

B．Form 1/

C．Text 1）。

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
   
图a 图b
Private Sub Command 1_Click（）
Dim sp As String，s As String s    s存储甲选手多局比赛的记录数据，长度小于50
Dim a（1 To 50）As Integer，e（1 To 20）As Integer
Dim I As Integer，j As Integer，k As Integer，n As Integer，m As Integer
Dim fl As Integer，f2 As Integer



（ ① ）
Next i



    找出疑似错误位置

Loop
If   ②  Then

End If

Loop
    对每个疑似错误位置分别修改数据，并统计每局比分






If  Then


End If
Next j

List 1.AddItem sp
  ③ 
Next i
End Sub

采用拉锯式排序法对无序数组元素实现降序排序，即前一遍把最大的元素从右到左送到最左的位置，后一遍把最小的元素是从左到右送到最右的位置，实现该功能的 VB 程序段如下：

c = 1: s = 10
Do While c <= s
For i = s To c + 1 Step -1
If      Then
t = a(i - 1): a(i - 1) = a(i): a(i) = t
End If
Next i
For i = 
If Then
t = a(i + 1): a(i + 1) = a(i): a(i) = t
End If
Next i
c = c + 1
s = s - 1
Loop
上述程序段三个方框处的语句分别为（ ）

A．①   a(i - 1) < a(i)    ②    c +1 To s – c    ③ a(i) <a(i + 1)

B．①   a(i - 1) > a(i)    ②    c +2 To s – c    ③ a(i) >a(i + 1)

C．①   a(i - 1) < a(i)   ②    c +1 To s – c-1    ③ a(i) <a(i + 1)

D．①   a(i - 1) > a(i)    ②    c+ 2 To s – c+1    ③ a(i) >a(i + 1)

小明在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程序：
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 程序段：
Dim strA As String, strB As String strA = "hongda"：strB = ""
For i = 1 To Len(strA) * 2 If i / 2 = Int(i / 2) Then

strB = strB + Chr(Asc(Mid(strA, (i - 1) Mod Len(strA) + 1, 1)) + 2) End If

Next i
该程序段运行后，变量 strB 的值是（ ）

A．"jpfqic "

B．"qicqic"

C．"phbqic"

D．"qicoga"