某对分查找算法的VB程序段如下:







Loop

数组元素a(1)到a(10)的值依次为“2,3,5,8,9,10,13,17,19,20”。在文本框Text l中输人待查找的数,执行该程序段,则文本框Text 2中显示的内容可能的是(   )
A.9 3B.9 3 5C.9 17 19 13D.9 3 5 8 19
当前题号:1 | 题型:选择题 | 难度:0.99
有两个以字母结尾的字符串s 1和s 2,在忽略字符串中空格的前提下判断它们是否相同。实现该功能的VB程序段如下:




Else

End If
Loop
.“相同”.“不相同”方框中的代码由以下三部分组成:


<>" " <>" " Then Exit Do 'Exit Do表示退出循环代码顺序正确的是(   )
A.①②③B.②①③C.②③①D.③②①
当前题号:2 | 题型:选择题 | 难度:0.99
下列选项中,与语句“”功能相同的是(   )
A.
B.
C.
D.
当前题号:3 | 题型:选择题 | 难度:0.99
有如下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.2014B.ChinaIT
C.hinaD.CIT
当前题号:4 | 题型:选择题 | 难度:0.99
小明在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
当前题号:5 | 题型:选择题 | 难度:0.99
运行如下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.不满意
当前题号:6 | 题型:选择题 | 难度:0.99
某算法部分流程图如图所示。执行这部分流程,依次输入:22、29、38、47、16、33、37、28、55、18、28 则输出值是( )
A.2B.4C.6D.8
当前题号:7 | 题型:选择题 | 难度:0.99
某算法的部分流程图如第下图所示。执行这部分流程后,“”被执行的次数为(    )
A.0B.1C.2D.3
当前题号:8 | 题型:选择题 | 难度:0.99
某算法部分流程图如图所示,执行这部分流程后,变量 a 和b 的值分别为()
A.5 和 6B.11 和 5C.6 和 5D.-3 和-4
当前题号:9 | 题型:选择题 | 难度:0.99