某算法的流程图如图所示。执行这部分流程后，输出S的结果是（）

A．45

B．6

C．10

D．15

在VB中设计了如图1所示的界面，图2为所选对象的属性面板，图3为工程资源管理窗口，以下说法正确的是()

图1    图2 图3
①所选对象名称是Circle，属于Shape类；②该窗体所存储的文件名是“草图．frm”；③该VB工程名是工程1；④所选对象运行时不可见。

A．①②

B．①②③

C．①③④

D．①③

假设变量a=4，b=5，执行a=a*b:b=a/b:a=a/b语句以后，a和b的值分别是（）

A．5 和4

B．4 和5

C．20 和20

D．4 和4

在VB中，下列表达式的值为5的是（）

A．Sqr(5.2)

B．Abs(5.2)

C．Fix(5.2)

D．Len("5.2")

某VB程序段如下：
Private Sub Command1_Click()
Dim a As Integer
Dim b As Boolean
a = (a + 1) * 2
b = a - 1
print a:print b
End Sub
程序运行时，单击命令按钮Command1后，变量a和b的值分别是（）

A．2   1

B．2  true

C．4  -1

D．4   False

有如下VB程序段：
S = 0
i = 5
Do While i < 12
If s <6  Then s = s+i  else  s = s-3
i = i+1
Loop
执行以上程序后，变量ｉ和ｓ的值分别为（）

A．11  5

B．11  8

C．12  8

D．12  5

运行如下ＶＢ程序，单击命令按钮Command1，出现如图所示的出错信息。发生“下标越界”错误时所执行的语句是（）

Private Sub Command1_Click()
Dim a（0 To 7） As Integer
Dim i As Integer＇①
a（0）=1 
For  i = 1 To 7   ＇②
a（i）= 2 * a（i-1）+ 1   ＇③
Next i
Text1.Text = Str(a(i))＇④
End Sub

A．①

B．②

C．③

D．④

在Visual Basic中，能随机产生一个小写字母的表达式是（）

A．Asc(Int(Rnd()*25+97)

B．Chr(Int(Rnd()*25+65)

C．Chr(Int(Rnd()*26+97)

D．Asc(Int(Rnd()*26+65)

某VB程序代码如下：
Dim n As Integer，s As String
n = 64 :s = ""
Do While n > 0
s = Str(n Mod 7) + s
n = n \ 7
Loop
执行该程序段后，变量s的值是（）

A．"121"

B．121

C．"211"

D．211

某算法的VB程序段如下:
i = 1: j = 7: s = ""
key = 34
Do While i <= j
m = (i + j) \ 2
If key = a(m) Then
s = s + "2": Exit Do    'Exit Do 表示退出循环
ElseIf key < a(m) Then
j = m - 1: s = s + "1"
Else
i = m + 1: s = s + "3"
End If
Loop
Text1.Text = s
数组元素a(1)到a（9）的值依次为“15，26，34，47，53，59，60，72，85”。若该程序段执行后，文本框Text1中显示的内容可能是（）

A．31

B．132

C．313

D．1312

在VB中，设整型变量x、y的值分别是3、6，则下列语句中，能实现在标签Label1中显示“s = 18”的语句是（）

A．Label1.Caption = "s = x * y"

B．Label1.Caption = "s = " + Str(x * y)

C．Label1 = "s = " (x + y)＾ 2

D．Label1.Caption = "s = " + Val(x * y)

执行各选项的VB程序段后，变量s的值为“99以内所有正偶数之和”的是（）

A．S=0      For i = 2 To 99 Step 2 s = s + 2 Next i

B．For i = 2 To 98 s = s + i i = i + 2 Next i

C．s = 0 Do  While i<= 98 i = i + 2 s = s + i Loop

D．i = 2

Do  While i<100
s = s + i
i = i + 2
Loop

对于实数ｘ，保留2位小数且第3位四舍五入的ＶＢ表达式是（）

A．Int(x*100)/100

B．Int(x*1000)/100

C．Int(x*100+0.5)/100

D．(x*1000+5)\100

编写VB程序，实现如下功能：程序运行时，在文本框Text1中输入任意字符串，单击按钮Command1，删除字符串中的非字母后，新字符串显示在Text2中，并找出ASCII码最小的字母，将其ASCII码显示在Text3中。程序运行界面如下图所示。

(1)将命令按钮Command1中显示的文本“Command1”修改为“查找”，可在其属性窗口中将___________属性的属性值改为“查找”。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim result As String, s As String, c As String
Dim n As Integer, i As Integer, j As Integer
s = Text1.Text
Text2.Text = ""
For i = 1 To Len(s)
①___________
If n >= 65 And n <= 90 Or n >= 97 And n <= 122 Then
②________
End If
Next i
Text2.Text = result
j = 2
c = Mid(result, 1, 1)
Do While j <= Len(result)
If Mid(result, j, 1) < c Then c = Mid(result, j, 1)
③________
Loop
Text3.Text = ④______
（3）如图所示，在文本框Text3中的ASCII码是Text2中第____个字符的ASCII码。

编写VB程序，实现如下功能：有一个四位数，此数十位上的数字是7，且这个四位数是一个完全平方数，现要找出符合以上要求的所有四位数，并统计共有几个数。单击Command1按钮，将符合要求的四位数显示在列表框List1中，统计个数显示在标签Label2中，界面如第15题图所示。

（1）若要修改窗体背景颜色，可在其属性窗口中______属性的属性值进行修改。
（2）解决这个问题采用的算法是________（填字母：
A.解析算法 
B.枚举算法）
实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, x As Integer, c As Integer
c = 0
For i = 1000 To 9999
x = ①___________
If  ②________ And x = 7 Then
③_____________   '将符合条件的四位数显示在列表框中
num = num + 1
End If
Next i
Label2.Caption = "共有："+ ④______ +"个"
End Sub

编写VB程序，实现如下功能：在文本框Text1中输入包含数字、字母、符号等的字符串，单击“统计”按钮Cmd_1，统计该字符串中数字字符的个数，并在标签Label1中输出结果。界面如图所示。
（1）在设计界面时，应使用右图所示“控件工具箱”中的_____（填写相应编号）添加“统计”按钮。

（2）为实现上述功能，请在处填入合适代码。
Private Sub Command1_Click()
Dim s As String, c As String
Dim i As Integer, n As Integer, num As Integer
s = Text1.Text: num = 0
n =  ①___________
i = 1
Do While i <= n
c = Mid(s, i, 1)
If ②_____________ Then
num = num + 1
End If
i = i + 1
③_______
Label1.Caption = Str(num)
End Sub
（3）在VB中运行程序，出现“要求对象”的错误，原因是：_______________________。