求[1，100]内的所有能被7整除的数。

在流程图的空白处应填入 ________   。

会员积分的计算。某超市会根据会员顾客的一次性消费总额给予一定的积分，会员可在年终依据积分换得相应的商品。每次消费时，计算机会自动累加所购商品的总价并折算成积分。
超市折算积分的规则：如果总消费额不足150元，就给1分积分；如果总消费额达150元及以上，那么每40元消费可以获得0.5积分。如，某人消费总额为150元，150/40=3.75，根据规则，积分为3*0.5=1.5分。
下列程序（流程图如图所示）可根据各种已购买商品的费用（已经保存在数组a中），计算总消费金额（total）并折算成积分（ans），最后输出总消费额（显示在标签Label2中）以及所获得的积分总值（显示在标签Label4中）。则程序中划线处应分别填入：
①   ② ③
Const n = 10
Dim a(n) As Single

Dim i As Integer
Dim ans As Single, total As Single
Private Sub Command1_Click()
total =" 0:" ans = 0
For i =" 1" To n
   ①    
Next i
If total < 150 Then
   ②    
Else
ans =" Fix(total" / 40) / 2
End If
Label2.Caption = Str(total)
③  = Str(ans)
End Sub

本程序要求完成的功能是：计算
s=1/1+2/(1*2)+3/(1*2*3)+…+ n/(1*2*3*…*n)的值。
请将已有VB代码补充完整。
n = inputbox(“请输入n的值”)
s = 0
________(1)________
For i =" 1" to n
t =" t" * i
s =" s" + ______(2)_______
Next i
Print s
（1）__________  （2）__________

有三个杯子，其中A杯盛水，B杯盛醋，C杯为空杯。要求将A杯中的水倒入B杯，B杯中的醋倒入A杯，则解决这个问题的算法是（   ）。
①B!A ②A!B ③C!B ④B!C ⑤A!C ⑥C!A

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

已知三角形的三条边长分别为、、，半周长，该三角形面积计算公式为：，计算S的VB语句是( )

A．

B．）

C．

D．）

有如下VB程序段
m=a(1)
For i=2  to  100
If  a(i) > m  then  m=a(i)
Next i
该程序段执行后，变量m中存储的是(    )

A．累加值

B．计数值

C．a(1)至a(100)中的最大值

D．最小值

三个正整数a、b、c满足等式a²+b²=c²，a、b、c称为“勾股数”，求出100以内所有“勾股数
可采用的算法是（    ）

A．枚举算法

B．解析算法

C．冒泡排序

D．顺序查找

如果一个整数是另一个整数的平方，则称该数是“完全平方数”。如：1=1×1，4=2×2，9=3×3，所以1、4、9是完全平方数。编写程序，统计100到10000之间的所有完全平方数的和。（4分）

在游戏中经常有开数字密码锁得场景，已知一个6位数的密码锁，正确的数字顺序组合是由下面一组数字426815经过两次冒泡排序得到，请问开锁的正确数字组合可能是（    ）。

A．864251

B．842651

C．126845

D．124685

模拟剪刀石头布的游戏，骰子是一个正六面体，用1~3这3个数分别代表剪刀、石头、布这三种情况，使用RND随机函数可以表示为（  ）

A．INT（RND（3）+1）

B．INT（RND*2+1）

C．INT（RND（2）+1）

D．INT（RND*3+1）