某算法的部分流程图如图所示。执行这部分流程，分别输入35、50、60，则输出值依次为
| A．10，3 | B．10，4 | C．7，10，4 | D．10，12，3 |
某Visual Basic程序如下：
Private Sub Command1_Click()
Dim a As String, b As String
a = "up "
b ="look "+" "+a
Label1.Caption = b
End Sub
运行程序，单击命令按钮Command1后弹出如下图所示的出错信息提示，此时程序正执行的语句是（ ）
Private Sub Command1_Click()
Dim a As String, b As String
a = "up "
b ="look "+" "+a
Label1.Caption = b
End Sub
运行程序，单击命令按钮Command1后弹出如下图所示的出错信息提示，此时程序正执行的语句是（ ）
| A．Dim a As String, b A s String | B．a = "up " |
| C．b = "look "+" "+a | D．Label1.Caption = b |
奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1。小李编写了一个计算奇校验位值得VB程序，功能如下：在文本框Text1中输入1～255十进制待校验数，单击“计算”按钮Command1后，在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。程序运行界面如图所示。
（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的_______属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
t = 0
s = ""
Do While n > 0
a =" n" Mod 2
n =" n" \ 2
t=____________①
s =" Str(a)" + s
Loop
v =" t" Mod 2
Text2.Text = s
Label3.Caption = "校验位值：" +____________②
End Sub
（3）运行该程序，在文本框Text1中输入22，单击“计算”按钮，则显示的校验位值是____________。
（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的_______属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
t = 0
s = ""
Do While n > 0
a =" n" Mod 2
n =" n" \ 2
t=____________①
s =" Str(a)" + s
Loop
v =" t" Mod 2
Text2.Text = s
Label3.Caption = "校验位值：" +____________②
End Sub
（3）运行该程序，在文本框Text1中输入22，单击“计算”按钮，则显示的校验位值是____________。
数组a中存储的是左右交替上升的n个正整数，如下表所示：
依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click（）
Const n = 6
Dim a（1 To n）As Integer，flag As Boolean
Dim i As Integer，j As Integer，m As Integer，key As Integer
'读取一组正整数，按上述规则存入数组a中，代码略。
key = Val（Text1. Text）
i = 1
j = （n + 1） \ 2
flag = False
Do While i<j And Not flag '（1）
m = （i + j） \ 2
If key = a（m） Then
flag = True
ElseIf key< a（m） Then
j = m - 1
Else
i = m + 1
End If
Loop
If Not flag And j > 0 Then
m=n-i
If key = a（m） Then flag = True
End If
If flag Then
Text2. Text = Str（m）
Else
Text2. Text = "找不到"
End If
End Sub
| a（1） | a（2） | a（3） | …… | a（n —2） | a（n—1） | a（n） |
| 3 | 25 | 38 | …… | 55 | 31 | 12 |
依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click（）
Const n = 6
Dim a（1 To n）As Integer，flag As Boolean
Dim i As Integer，j As Integer，m As Integer，key As Integer
'读取一组正整数，按上述规则存入数组a中，代码略。
key = Val（Text1. Text）
i = 1
j = （n + 1） \ 2
flag = False
Do While i<j And Not flag '（1）
m = （i + j） \ 2
If key = a（m） Then
flag = True
ElseIf key< a（m） Then
j = m - 1
Else
i = m + 1
End If
Loop
If Not flag And j > 0 Then
m=n-i
If key = a（m） Then flag = True
End If
If flag Then
Text2. Text = Str（m）
Else
Text2. Text = "找不到"
End If
End Sub
有如下VB程序段：
For i =" 1" To 6
a（i） =" Int（Rnd" * 10） + 1
Next i
For i =" 1" To 5
If i Mod 2 =" 1" And a（i） > a（i + 1） Then
t =" a（i）" ： a（i） =" a（i" + 1） ： a（i + 1） = t
Else
a（i） =" a（i）" + 1
End If
Next i
执行该程序段后，a（l）~a（6）各元素可能的值是
For i =" 1" To 6
a（i） =" Int（Rnd" * 10） + 1
Next i
For i =" 1" To 5
If i Mod 2 =" 1" And a（i） > a（i + 1） Then
t =" a（i）" ： a（i） =" a（i" + 1） ： a（i + 1） = t
Else
a（i） =" a（i）" + 1
End If
Next i
执行该程序段后，a（l）~a（6）各元素可能的值是
| A．11，11，7，9，3，9 | B．6，2，8，10，5，9 |
| C．6，9，3，7，8，12 | D．3，9，0，8，2，7 |
转换为VB表达式，正确的是（ ）在Visual Basic中，有整型变量a=5，b=3，要在标签控件中显示结果为8，则执行下列语句能正确显示结果的是：（ ）
| A．Label1.Caption=Str(a+b) |
| B．Text1.Text=Len(a)+Val(b) |
| C．Text1.Text= Sqr(a+b) |
| D．Label1.Caption=" Str(a)+" Str(b) |
小杨在上信息技术课时，为了计算100以内所有能被7整除的数之和，画了如下图所示流程图，则空白处应该填写的赋值语句是：（ ）
| A．i ←i+7 | B．i ← i*7 | C．i ← 7 | D．i ← S+7 |
下列能表示“a与b都大于0”的Visual Basic逻辑表达式是：( )
| A．a*b>0 | B．(a>0) or (b>0) | C．(a-b)>0 | D．(a>0) and (b>0) |