Private Sub Command1_Click( )

   Dim x As Integer，y As Integer

   x = 8

   y = 10^x

   Text1.Text = Str(y)

End Sub                                                 

运行程序时，单击Command1后弹出如上图所示的出错提示，引起该错误的原因是（   ）

⑴用数组b存储最小下降数列中最小的元素(查找过程中的最小值)，b(1)为数组a第1个元素。

⑵加入方法：将a(i)与数组b中的每个元素依次逐个比较：

若a(i)比b(j)小就用a(i)替换b(j)中的值，将a(i)添加到第j个下降数列中，并存储在c数组的c(j)中。

若a(i)比b(j)都大，则在数组b最后添加a(i)新的元素，将a(i)添加到第j个下降数列中，并存储在c数组的c(j)中。

⑶若数组a各元素的值为34，54，3，76，2，3时，则3个下降数列分别为“34，3，2”“54，3”“76”

程序运行界面如图所示。

小明依据上述描述设计了如下VB程序。请回答下列问题：

Private Function f(x As Single, n As Integer) As Single

  If n ＝0 Then

    f ＝1

  Else

    If n Mod 2 ＝1 Then

      f＝x * f(x, n\2)

    Else

      f＝f(x, n\2) \x

    End If

  End If

End Function

Private Sub Command1_Click()

  Label1.Caption＝Str(f(4, 6))

End Sub

程序运行时，单击按钮Command1，标签Label1显示的内容是（  ）

Dim x As Integer, y As Integer, s As Integer

    x=3:y=4

    If x<y And y<0 Then

        s=x Mod y

    ElseIf y>0 and y<x Then

        s=x*y

    ElseIf x=0 Or y=0 Then

        s=x+y

    Else

        s=0

    End If

该程序段运行之后，变量s的值为（  ）

s = "2019appreciate": sum = 0

For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch >= "a" And ch <= "z"

Then m = Asc(ch) - Asc("a") + 1 a(m) = a(m) + 1

End If Next i

For i = 1 To 10

If a(i) > 0

Then sum = sum + 1

Next i

数组 a 各元素的初始值都为 0，执行该程序段后，则变量 sum 的值为（   ）

Private Sub Command1_Click()

 Dim i As Integer

 Dim a(10)As Integer    ‘①

 For i=1 To 10    ‘②

  a(i)=Rnd* 100    ‘③

 Next i

 Label1.Caption=Str(a(i))    ‘④

End Sub