n = Val(Text1.Text)

k = a(1)

For i = 2 To n

If  a(i) < k Then k = a(i)

Next i

Text2.Text = Str(k)

假设在文本框Text1中输入“8”，则文本框Text2中输出的值是（  ）

  Private Sub Command1_Click()

    For i=1 To 4

    s=””

      For j=1 To 7

     If        Then

s=s+“*“

 Else

       s=s+”  ”    ‘双引号内为1个空格

       End If

    Next j

    List1．AddItem s

    Next i

  End Sub

则方框中的语句是 （  ）

    S=Text1.Te×t

    For i=1 To Len(s)

    c=Mid(s，i，1)

    If c>=“0”And c<=“9”Then

    m=m+1

    Elself c>=“a”And c<=“z”Then

    n=n+1

    Else

    t=t+1

    End If

    Next i

    Label1．Caption：Str(t)

在文本框Text1输入“as674ER29，86Gu”。(不包括双引号)，执行程序后，标签Label1显示：（  ）

x=-4.2

y=Abs(Int(x))

If x＞0 And x＜5 Then

 y=y+1

Else

 y=y-1

End If

该程序段运行后，y的值为（  ）