VB程序中表达式 33 mod 17\3*2的值为（   ）

A．10

B．1

C．2

D．3

在VB中，如果定义变量X的值为4，变量Y的值为3，则下列哪个表达式的值为真? （   ）

A．X\Y=X mod Y

B．Int(X/Y)=Abs(X/Y)

C．Sqr(X^2)<>X

D．X+Y=Str(X)+Str(Y)

小李父母开了一家农家乐，顾客可以到桔园自摘桔子，收费标准是门票每人20元，采摘的桔子每斤10元，付费时若能完成小游戏则有优惠。用VB软件设计的自摘收费程序，功能如下：在文本框Textl中输入自摘的人数n，在文本框Text2中输入摘得桔子重量w。界面右上方是小游戏部分，程序在文本框Text3显示随机产生的桔子层数m，根据图中所示的堆桔子方法（第1层1个；第2层4个；第3层9个……），请顾客计算出m层桔子总数s，输入到文本框Text4中，单击“是否优惠计算”按钮Command1，就会在标签Label4中输出最后的费用f，并在标签Label7中给出提示是否“优惠后的费用”。运行效果如图所示： 

(1)自摘收费程序所用的算法是_____________（填：解析算法/枚举算法）。
(2)为实现上述功能，请在划线①和②处填入合适的代码。
Dim m As Integer
Private Sub Command1_Click() 
Dim n As Integer, s As Integer
Dim w As Single, f As Single
n = Val(Text1.Text) '输入大人人数n
w = Val(Text2.Text)     '输入重量w
f = 20 * n + 10 * w '计算无优惠的费用f
s = 0
For i = 1 To m '计算桔子总数
s = s + i * i
Next i
If  s= ①__________  Then '判断是否拿到优惠计算费用
f = f * 0.5 + s * 0.3 '计算优惠后的费用
Label7.Caption = "恭喜你，这是优惠后的费用！"
Else
Label7.Caption = "很遗憾，你没有算对哦！"
End If
Label4.Caption = Str(f) '输出最后的费用f
End Sub
Private Sub Form_Load()
Randomize
m = ②________________ '随机产生15层及以内的桔子层数（0不算）
Text3.Text = Str(m)
End Sub
（3）若3位顾客摘得5斤桔子，游戏中需要计算出3层桔子的总个数，但是他们没有算对桔子个数，在text4中输入了16，那么这3位顾客需付总费用__________元。

在文本框text1中输入一个8位数，单击统计按钮统计各数字出现的个数，并输出出现次数最多的那个。运行效果如图所示：

（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的_______属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim n As Long, m As Integer
Dim a(0 To 9) As Integer
n = Val(Text1.Text)
List1.Clear
For i = 0 To 9
a(i) = 0
Next i
Do While n > 0
t = n Mod 10
a(t) = a(t) + 1
①_____________
Loop
m = a(0)
For i = 1 To 9
If a(i) > m Then m = a(i): k = i
List1.AddItem Str(i) & "：" & Str(a(i)) & "个"
Nextｉ
Label2.Caption = "出现最多的数字是：" + ②_______________
End Sub

（加试题）以下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

《孙子算经》中提出“物不知其数”的问题，此数以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))

某VB程序设计界面如下题图所示，下列说法正确的是（　  ）

①工程文件是“工程1 .vbp”    ②将text属性值删除，图中①处将不会显示“Ｔext1” 
③该窗体中共有3个对象 ④窗体名称是“整除问题”

A．①②

B．②③

C．①③

D．②④

   （加试题）两质数的差为2，称此对质数为质数对。下列程序是找出100以内的质数对，并成对显示结果。其中，函数zsd判断参数m是否为质数。请完善以下程序：

Function zsd(m) As Boolean
　Dim i As Integer
　zsd ＝ True
　For i ＝ 2 To Int(Sqr(m))
If  ①_______________＝ 0 Then zsd ＝ False
　Next i
End Function
Private Sub Command1_Click()
　Dim i As Integer
　p1 ＝ zsd(3)
　For i ＝ 5 To 100 Step 2
p2 ＝ zsd(i)
If　②________________ Then List1.AddITem i － 2　& ”　” & i
p1 ＝ zsd(i)
　Next i
End Sub