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

   （加试题）小李同学碰到了一个数学问题：400个同学按顺序进行编号后围成一个大圈，按1至2报数（从1号位置开始），报到2的同学出列，以此一直循环报数下去，问最后剩下的那位同学他的编号是几号？

例如以6个同学编号为例，按1至2报数（从1号位置开始）依次出列的编号次序为2-4-6-3-1-5，那么最后剩下的就是编号为5的同学。

为了解决这个问题，小李用VB编写了如下程序尝试解决，其中列表list1显示出列的顺序编号，文本框text1中显示最后留下的编号，程序代码如下（测试界面如下图）：

Private Sub Command1_Click()
Dim s, f, t As Integer
Dim a(1 To 400) As Boolean
For i = 1 To 400
a(i) = False
Next i
s = 0
f = 0
i = 0
Do While f < 399
i = i + 1
If i = 401 Then i = （1）
If a(i) = False Then s = s + 1
If s = 2 Then  
（2）    
List1.AddItem Str(i)
a(i) = True
f = （3）  
End If
Loop
For i = 1 To 400
If （4）    Then text1.text=str(i)
Next i
End Sub
为实现程序功能，在程序划线处应填入的代码为：
（1）    _________________
（2）    _________________
（3）    _________________
（4）    _________________

   （加试题）计算整数t的近似算数平方根算法如下：

先取,然后根据公式计算,再由计算，……直到,则为解。

小李编写了一个VB程序实现上述功能：运行程序时，在text1中输入一个正整数，单击命令按钮command1，文本框text2显示该数的算数平方根。

程序代码如下，请阅读完成以下两小题。
Function fun(x As Integer, x0 As Double) As Double
Dim x1 As Double
x1 = (x0 + x / x0) / 2
If Abs(x1 - x0) < 0.00001 Then
fun = x1
Else
fun = （1）    
End If
End Function
Private Sub Command1_Click()
Dim t As Integer
Dim k As Double
t = Val(Text1.Text)
k = fun(t, 1)
k = （2）        '保留两位小数的四舍五入
Text2.Text = Str(k)
End Sub
(1)题中函数fun主要采用的算法思想是___________
(2)程序中（1）划线处应填写的代码是_____________
程序中（2）划线处应填写的代码是___________

   小李编写了一个程序，用以实现下列功能：在文本框Text1中一个十进制数，在文本框Text2中输入需转换数的进制（小于等于16），点击转换按钮，在文本框Text3中输出转换后的数字；点击“退出”按钮，关闭程序。程序运行界面如下图所示：

    

（1）根据题目意思，应该在编辑界面将对象“command2”的______________属性改为“退出”。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim x As Long
Dim y As Integer
x = Val(Text1.Text)
y = _____________
Text3.Text = _______________
End Sub
Function trans(n As Long, b As Integer) As String
Dim hex As String
hex = "0123456789ABCDEF"
Do  while n<>0
r = n Mod b
n = n \ b
trans = _______________ + trans
Loop
End Function
Private Sub Command2_Click()
End
End Sub

（加试题）下列 VB 程序段的功能是将数组元素 a(1)到 a(n)按非递减序排序：
For i = 1 To n - 1
For j = 补充代码
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
方框中的代码将会是以下四句中的一句：
① i To n - 1 ② n - 1 To i Step -1
③ 1 To n - i ④ n To i+1 Step -1
正确的选项是

A．①②

B．③④

C．①④

D．②③

   编写VB程序，实现如下功能：在文本框Text1和Text2中分别输入体重（单位：Kg）和身高（单位：m），单击命令按钮Command1，计算BMI指数（BMI指数=体重÷身高的平方），如果BMI <18.5，则在标签Label5中显示“体重过轻！”；如果18.5≤BMI≤25，则在标签Label5中显示“正常！”；如果BMI>25，则在标签Label5中显示“体重过重！”。运行效果如左图所示。

（1）若要删除标签Label5中显示的内容“Label5”，可在其属性窗口（如上边右图）中将___________属性的属性值删除。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private  Sub  Command1_Click()
Dim  gao  as  single, zhong  as  single, bmi  As  Single
Dim  x  As  String
zhong = val(text1.Text)
gao =val(text2.text)
bmi = _____________① 
If  bmi < 18.5  Then
x = "体重过轻！"
Else
If  bmi<=25  Then  x = "正常！"  Else  x = "体重过重！"
End If
______________②
End Sub
（3）若某同学的身高为160cm，体重为120斤，则运行结果为___________

某算法的流程图如图所示，最后输出的变量s的值是（    ）

A．4

B．8

C．16

D．22