有如下VB程序段：

    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显示：（  ）

A、4

B、6

C、7

D、8