若有一个三位数满足：x=a³+b³+c³（其中a、b、c分别是该三位数的个位、十位和百位数字），则称该三位数为水仙花数。完成程序填空实现输入数的水仙数判断。
Dim a As Double, b As Double, c As Double, x As Double
x = Val(InputBox("输入一个数据x"))
If  ①______________________ Then
a = x mod 10
b = ②_________________________
c = x \ 100
If  ③__________________________ Then
Print "是水仙花数！"
Else
Print "不是水仙花数！"
  ④_____________________________________
  ⑤_____________________________________
Print "请输入三位数！"
End If

设某汉字由７×７的０、１点阵图案组成。依照以下规则生成压缩码：连续一组数值，从汉字点阵图案的第一行第一个符号开始计算，按书写顺序由左到右，从上到下。压缩码第一个数表示起始的数字（例如０），第二个数表示连续有几个０，第三个数表示接下来连续有几个１，第四个数表示接下来连续有几个０，第五个数表示接下来连续有几个１，以此类推……

例如，以下汉字点阵图案：
０００１０００
０００１０００
０００１１１１
０００１０００
０００１０００
０００１０００
１１１１１１１
对应的压缩码是０３１６１６４３１６１６１３７（第一个数是ｃ（０或者１），表示一开始时的数字为０或１）。
(1)请将程序代码补充完整。
Private Sub Command1_Click()
Dim code As String, c As Integer, res As String,k As Integer
code=Text1.Text
k=0
res=""
c=Val(Mid(code,1,1))
For i=2 To Len(code)
For j=1 To _____________   '①
res=res+Str(c)
k=k+1
If k=7 Then
List1.AddItem res
k=0
res=""
End If
Next j
_______________   '②
Next i
End Sub
(2)现给出如下点阵图：

则压缩码为_________________________________。

某算法的流程图如下所示：

若输入k的值为4，则该算法的输出结果为(  )

A．1

B．2

C．3

D．5

单循环赛制是一种较为公平合理的比赛制度，比赛过程中所有参赛队伍均能相遇一次。其秩序编排可采用“逆时针轮转方法”：数字 1～ n 依次作为队伍编号，把编号按 U 型走向分成均等两边（若 n 为奇数，则在末尾增加编号 0，使总数为偶数），即可得到第一轮的比赛秩序，例如，5 个队伍的比赛编排情况如图 a 所示；第二轮，固定编号 1，其余编号均按逆时针方向移动一个位置，即为该轮比赛秩序；以后各轮比赛秩序以此类推，与编号 0 对阵的表示本轮轮空。
小赵这此编写了 VB 程序，功能如下：在文本框 Text1 中输入参赛队伍数 n，单击“编排”按钮 Command1，在列表框 List1 中输出每轮比赛秩序。程序运行效果如图 b 所示。

实现上述功能的 V B代码如下，请将程序代码补充完整。
Private Sub Command1_Click()
Dim team(1 To 20) As String    
Dim n As Integer, c As Integer
Dim result As String
Dim i As Integer, j As Integer, temp As String
n=Val(Text1.Text)
For i=1 To n
team(i)=Str(i)
Next i
c=n+n Mod 2    
If c<>n Then team(c)=Str(0)
For i=1 To c-1
result=""
For j=1 To c\2
result=result&team(j)&"-"&______________&"；" ‘(1)
Next j
List1.AddItem "第"&Str(i)&"轮"&result   
temp=team(c)
For j=c To 2 Step -1
_________________    ‘(2)
Next j 

_________________     ‘(3)

Next i
End Sub

有如下程序段
a(1)=False
For i=2 To 20
a(i)=True
Next i
For i=2 To 20
If a(i)=True Then

For j=2 To 20\i

a(i*j)=False

Next j

End If
Next i
t = 0
For i=1 To 20
If a(i)=True Then

t=t+1

End If
Next i
经过该程序段运行后，变量t的值为（   ）

A．5

B．6

C．7

D．8

有如下VB程序段：
For i=2 To 8
Max=0
For j=1 To i-1
If a(i)>a(j) And f(j)>Max Then Max=f(j)
Next j
f(i)=Max+f(i)
Next i
数组f元素的初始值都为1，数组a的元素值为5,3,47,4,31,39,7,8，程序运行后f(6)的值为（   ）

A．1

B．2

C．3

D．4

若要执行语句a  = ( 5 >= 5 ) ,则定义变量a的语句应为（   ）。

A．Dim a as Integer	B．Dim a as String
C．Dim a as Boolean	D．Dim a as Single

某地驾照考试规定，考试成绩不低于80分为合格，下图是根据成绩判断是否合格的部分流程图；如果输入的成绩为85，则该流程的执行顺序为（   ）

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

以下流程图的运行结果为（   ）

A．50  45

B．50  0

C．45  5

D．15  0

输入x为4，流程图运行结果为：（   ）

A．18

B．19

C．26

D．27