（加试题）以下VB代码运行后，在文本框Text1输入3，则最终在文本框Text1输出的结果为（   ）
Private Sub Text1_Change()
Dim m As Integer, i As Integer
k = Val(Text1.Text)
For i = 2 To 4
If k <= 14 Then
k = k + i
End If
Next i
Text1.Text = Str(k)
End Sub

A．21

B．17

C．14

D．12

   编写VB程序，实现如下功能：在文本框Txt1中输入字符串，如“12321”、“abba”，点击Com1按钮，判断输入的字符串是否对称，即从左读到右与从右读到左完全一样，并在标签lab2上显示判断结果。

(1）   在程序代码中，第一行语句“Private Sub Com1_Click( )”中的Com1_Click( )是_____________(填字母：

A．对象名 /

B．事件名 /

C．事件处理过程名 /

D．方法名）

(2）为实现上述功能，请在划线处填入合适的代码或语句。

Private Sub Com1_Click()
Dim s As String, c1 As String, c2 As String
Dim n As Integer, i As Integer
Dim f As ①____________.
s = Txt1.Text
n = Len(s)
f = True
For i = 1 To n \ 2
c1 = Mid(s, i, 1)

②___________.

  If c1 <> c2 Then
③___________.
Exit For     '退出For循环
End If
Next i
If f = True Then
Lab2.Caption = "对称"
Else
Lab2.Caption = "不对称"
End If
End Sub

（加试题）入围“十佳歌手”的10位学生的编号依次为：47，36，35，31，28，23，17，8，3，1，主持人通过对分查找最终确定35号为首位出场学生，则主持人查找过程中依次被访问的编号是（  ）

A．47，36，35

B．23，35

C．28，35

D．28，36，35

用计算机解决问题的一般步骤是：
①分析问题  ②解决问题  ③用计算机处理  ④寻找解决问题的途径和方法

A．①③④②

B．①④②

C．①④③②

D．①④③

利用格里高利公式 求 ，直到最后一项的值小于0.0001为止，输出的值。
Private Sub Command1_Click()
Dim Pi As Single, t  As Single
Dim n As Integer, s As Integer
Pi = 0
t = 1: n = 1:s =1
Do While Abs(t) >= 0.0001
Pi = Pi + s * 1 / n
n =①___________
s= ②___________
t = s / n
Loop
Text2.Text =③___________
End Sub

某算法流程图如图所示，执行该算法，输出n的结果是（   ）

A．4

B．8

C．12

D．18

一个大于1的自然数，除了1和它本身外，不能被其他自然数整除的数称为质数又称素数，下列程序用来判断文本框1中输入的数是否素数，请完善以下三处代码。
Dim i As Integer, m As Integer ,flag as Boolean
m = ①______________
flag= ②_____________
For  i = 2  To  int(sqr(m)) 
If ③____________   Then
flag=false
Exit For
End if
Next  i 
If flag=true Then 
Text2.Text = str(m) +"是素数" 
Else 
Text2.Text = str(m)  +"不是素数"
End if

对称字符串的特征是从左到右读和从右到左读是完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下, 请完善以下两处代码
s=Text1.Text
n=Len(s) 's是待判断的字符串
k=0:j=n
For i=1 to n\2
c1=Mid(s,i,1)
c2=Mid(s,j,1)
If c1 <> c2 Then k = k+1: Exit For
j=①___________
Next i
If ②__________  Then Label1.Caption="对称"  Else  Label1.Caption="不对称"

《孙子算经》中提出“物不知其数”的问题，此数以3除余2，以5除余3，以7除余2。下列VB程序用来求指定范围内满足该条件的自然数及其个数。程序界面如图所示，

VB程序段如下：
Private Sub Command1_Click()
k = 0 '用来计数
Max = 600     '指定范围600以内
n = 9
Do While n <= Max
Loop
Label1.Caption = Str(Max) & "范围内满足问题的数有" & Str(k) & "个"
End Sub
方框中的代码由以下五部分组成：
① n=n+7
② k = k + 1
③ List1.AddItem Str(n)
④ End If
⑤ If n Mod 3 = 2 And n Mod 5 = 3 Then
代码顺序正确的选项是（ ）

A．⑤①②③④

B．②⑤③①④

C．⑤③②④①

D．⑤①③④②

VB中，能够正确表示代数式的是 ( 　 )

A．x^3+1/abs(x)+sqr(x)	B．(x^3+1)/abs(x)+sqr(x)
C．x^3+1/(abs(x)+sqr(x))	D．(x^3+1)/(abs(x)+sqr(x))