求10个[61，100]之间的随机整数的和，其算法的部分流程图如图所示，

图中①②处应分别填入

A．i<=10?    Int(Rnd*40)+61

B．i<=10?    Int(Rnd*39)+61

C．i<=100?   Int(Rnd*40)+61

D．i<=100?   Int(Rnd*40)+60

（加试题）有如下VB程序段：
Dim a(1 To 8) As Integer
a(1) = 12: a(2) = 44: a(3) = 65: a(4) = 26
a(5) = 48: a(6) = 91: a(7) = 98: a(8) = 13
n = 8: t = 0
For i = 1 To n - 1
k = i
For j = i + 1 To n
If a(j) < a(k) Then k = j
Next j
If k <> i Then
temp = a(i): a(i) = a(k): a(k) = temp: t = t + 1
End If
Next i
Text1.Text = Str(t)
该程序段运行后，文本框Text1中显示的内容是

A．5

B．7

C．8

D．28

回文字符串是一个对称的字符串，它从左到右读和从右到左读是完全一样的。如“abcba”和“abccba”都是回文字符串，“abc”不是回文字符串。小王编写了一个验证回文字符串的VB程序，功能如下：在文本框Text1里输入一个字符串，单击命令按钮Command1，在文本框Text2中显示验证结果：是回文字符串显示“yes”，否则显示“no”。程序运行界面如图所示。

（1）在设计程序界面时，要窗体Form1的标题栏上显示“判断回文字符串”，应修改Form1的_________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim st As String
Dim i As Integer, j As Integer
Dim flag As Boolean
①________ 
j = Len(st)
i = 1
flag = True
Do While flag And i <= j
If Mid(st, i, 1) = Mid(st, j, 1) Then
i = i + 1
②________ 
Else
flag = False
End If
Loop
If ③______ Then 
Text2.Text = "yes"
Else
Text2.Text = "no"
End If
End Sub

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 10 To 2 Step -2
sum = sum + i
Next i
Text1.Text = Str(sum)
End Sub   
运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是（   ）

A．Sum = 0	B．For i = 10 To 2 Step -2
C．sum = sum + i	D．Text1.Text = Str(sum)

某算法的部分流程图如图所示，执行这部分流程后，变量a,b的输出值分别是

A．2，3

B．3，3

C．3，5

D．5，8

十进制数转换为二进制数。小林用VB编写了一个程序，把输入的十进制数转换为二进制数，并判断二进制数中的“0”和“1”的个数是否相等。程序运行界面如图所示，在文本框Text1中输入要转换的十进制数，单击命令按钮Command1后，在文本框Text2中输出其对应的二进制数，在标签Label3中显示“相等”或“不相等”。

(1)程序运行界面中使用的对象个数为_________，要使命令按钮Command1上的文字显示为“转换”，应修改的属性名为_____________。
(2)为实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim st As String
Dim x, y, c0, c1 As Integer
st = "": c0 = 0: c1 = 0
x =_____________
Do While x <> 0
y = _____________
If y = 0 Then
c0 = c0 + 1: st = y & st
Else
c1 = c1 + 1: st = y & st
End If
x = x \ 2
Loop
Text2.Text = st
If ____________ Then
Label3.Caption = "相等"
Else
Label3.Caption = "不相等"
End If
End Sub

   编写VB程序，实现如下功能：在文本框Text1、Text2中分别输入一个正整数，单击“计算累加和”按钮（Command1），在标签Label3中显示起始值与结束值之间所有奇数的和。界面如下方左图所示。

 
（1）在设计应用程序界面时，应使用上方右图所示“控件工具箱”中的___________（填写相应编号）添加“计算累加和”按钮。
（2）为实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim x1 As Integer, x2 As Integer, n As Integer
Dim sum As Long
x1 = Val(Text1.Text)
x2 = Val(Text2.Text)
Sum = 0
If x1 < x2 Then n = 1 Else ①___________
For i = x1 To x2 Step n
If ②___________ Then
Sum = Sum + i
③___________
Next i
Label3.Caption = "从" & x1 & "到" & x2 & "之间所有奇数的累加和=" & Str(Sum)
End Sub

有如下程序段：
s = ""
For i = 1 To Len(Text1.Text)
s = s + Mid(Text1.Text, Len(Text1.Text) - i + 1, 1)
Next i
若文本框Textl中输入“a1b2c3”,执行程序后，变量s的值为（   ）

A．3

B．6

C．a1b2c3

D．3c2b1a

下列属于正确VB表达式的是（   ）

A．a+2* |b-c |

B．b2+1

C．2x-1

D．v0+a·t

有如下VB程序段:
x=25: y=20
If  x>y  Then
y =y+20
If  y>50 Then y=y^2
Else
y=y^2
y=x+y
End  If
Label1. Caption=Str(y)  
该程序段执行后，标签Labell中显示的内容是（   ）

A．1600

B．425

C．400

D．40