下列语句用于计算“s=1+4+7+10+…+25”的值。
①For i="1" To 25 Step 3   ②Next i    ③s=0    ④s=s+i
正确的语句顺序是（ ）

A．①②③④	B．①③④②
C．③①④②	D．④③①②

小华同学设计了一个VB程序，其功能是在text1中输入文本，点击“统计”按钮，自动统计字母a和字母b的出现次数，并显示在text2和text3中。程序设计界面如下图所示：
 
（1）运行程序时发现窗体的标题显示为“form1”，将窗体标题显示为“字母统计”，应修改窗体form1的_____________属性。
（2）通过窗体的加载事件也可以修改窗体的标题属性，请补充下列代码
Private Sub Form_Load（）
___________________= "字母统计"
End Sub
（3）根据题意，将下列程序补充完整。
Private Sub Command1_Click（）
Dim s As String，i As Integer，ta As Integer，tb As Integer
Dim lens As Integer ‘变量lens表示字符串s的字符个数
s = Text1.Text
lens =________________
For i =" 1" To lens
If Mid(s,I,1)= "a"  Then ta =" ta" + 1
If Mid(s,i,1)= "b"  Then tb =" tb" + 1
Next i
Text2.Text =" Str(" ta)
Text3.Text = Str(tb)
End sub

编写VB程序，寻找第1位为2，第5位为5，数字长度为5的完全平方数（即开根号之后是一个整数），并统计个数。要求：单击“寻找”按钮Command1，将符合要求的五位数显示在列表框List1中，统计的个数显示在标签Label2中，界面如题图所示。

实现上述功能的VB程序代码如下：
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim x As Integer
n = 0
For i =" 0" To 999
x =    ①   
If     ②     Then
List1.AddItem str(x)
n= n+1
End If
Next i
Label2.Caption = "共有：" + Str(n) + "个"
End Sub
（1）在设计应用程序界面时，要将按钮Command1的标题改为“寻找”，应该修改它的 属性
（2）为实现上述功能，划线①处应填入的代码为  ；
划线②处应填入的代码为 ；
（3）解决该问题主要采用的算法是

有如下程序段：
Dim i As Integer, ans As Integer
Dim a(1 To 10) As Integer
ans = 0
For i =" 1" To 10
a(i) =" i" ^2
If a(i) Mod 3 =" 0" Then ans =" ans" + a(i)
Next i
Text1.Text = Str(ans)
该程序段运行后，文本框Text1中显示的内容是（    ）

A．55

B．126

C．259

D．385

如果一个三位正整数等于它的每个数字的立方和，则此数称为“水仙花”数（如：153=1^3+5^3+3^3）。 下列程序用于求出 100-999 之间的所有“水仙花”数。
（1）设计下列程序界面时，在窗体上添加 List1 对象，可使用下图所示 的“控件工具箱”中的 （填写相应编号）。

（2）VB 程序如下： Private Sub Command1 Click（）
Dim m As Integer， n As Integer
Dim a As Integer，b As Integer,c As Integer For m =" 100" To 999
a =" Int(m/100)" b = ①   c= ②   n=a^3+b^3+c^3
If  ③ Then List1.AddItem Str(m) Next m
End Sub 在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:
程序中①划线处应填入 。程序中②划线处应填入 。程序中③划线处应填入   。
（3）该程序是 算法。（选填：枚举/解析）

VB标准函数RND的作用是返回一个大于等于0且小于1的随机数。只能产生大于等于100且小于200随机 整数的VB表达式是 （ ）

A．Int(Rnd*100)	B．Int(Rnd*101+100)
C．Int(Rnd*99+100)	D．Int(Rnd*100+100)

在窗体上画一个名称为Label1的标签,然后编写如下事件过程，程序运行后,单击窗体,在标签中显示的内容是（   ）
Private Sub Form_Click(）
Dim arr(1 to 10, 1 to 10） As Integer
Dim i As Integer, j As Integer
For i =" 2" To 4
For j =" 2" To 4
arr(i, j） =" i" * j
Next j
Next i
Label1.Caption =" Str(arr(2," 2）+ arr(3, 3））
End Sub
(

A．12

B．13

C．14

D．15

阅读如下Visual Basic程序，
Function f(n As Integer, r As Integer) as integer
If n <> 0 Then
f =" n" \ r
End If
End Function
Private Sub Command1_Click()
Print f(10, 8)
End Sub
程序的运行结果是（   ）

A．8

B．10

C．2

D．1

某数组有10个元素，依次为11、22、33、45、55、66、77、88、92、98，若采用对分查找法在该数组中查找数据92，依次被访问的数据为(    )

A．55、88、92

B．55、77、88、92

C．66、88、92

D．66、88、98、92

某市组织了一次我心目中最喜爱的球队的评比活动，6个球队网上投票数为201、287、501、189、397、295，若采用冒泡排序算法对其进行从大到小排序，则第三遍加工后的结果是(  )

原始数据	201	287	501	189	397	295
第一遍	501	201	287	397	189	295
第二遍	501	397	201	287	295	189
第三遍

 

A．501 397 295 287 201 189

B．501 397 201 287 295 189

C．501 397 295 201 189 287

D．501 397 295 201 287 189