Private Sub Command1_Click()

   Dim x As Integer

   Dim y As Integer

   x = 900

   y = Abc(x)

   Label1．Caption = Str(y)

 End Sub

运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的语句是（   ）

Dim a(1 to 5) as integer, i as integer, c as integer

a(1)=2: a(2)=1: a(3)=3: a(4)=4: a(5)=5

c=0

for i=3 to 5

 if a(i-2)+a(i-1) =a(i) then c=c+1

next i

text1.text = str(c)

该程序运行后，文本框text1中显示的内容是（   ）

算法分析：从A点到B点共有7个路口，即可以有一个7位二进制数表示所走路线。观察以上路线，枚举所有满足路线特征的7位二进制数，再去掉不满足的二进制数即可。

Private Sub Command1_Click()

Label1.Caption = sj  ‘计算机随机产生一个值

Label2.Caption = Command1.Caption

If cp(Label1.Caption, Label2.Caption) Then ‘判断胜负

    {#blank#}1{#/blank#} = "乙方负"

Else

    Label3.Caption = "乙方胜"

End If

End Sub

Function sj() As String '随机生成石头、剪刀、布

   i = {#blank#}2{#/blank#}  ‘随机生成1~3任一整数

   If i = 1 Then sj = "石头"

   If i = 2 Then sj = "剪刀"

   If i = 3 Then sj = "布"

End Function