（34）某人设计了下面的函数fun，功能是返回参数a中数值的位数
    Function fun（a As Integer） As Integer
    Dim n%
    n = 1
    While a \ 10 >= 0
    n = n + 1
    a = a \ 10
    Wend
    fun = n
    End Function
    在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是　　　。 
    A）把语句n = 1改为n = 0
    B）把循环条件a \ 10 >= 0改为a \ 10 > 0
    C）把语句 a = a \ 10改为a = a Mod 10
    D）把语句fun = n改为 fun = a

（35）在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中（见图）。下面能实现此功能的事件过程是　　　。 

    A）Private Sub Check1_Click（Indes As Integer）
    Text1.Text =""
    For k = 0 To 3
    If Check1（k）.value = 1 Then
    Text1.Text = Text1.Text & Check1（k）.Caption & "  "  '双引号中是空格
    End If
    Next k
    End Sub
    B）Private Sub Check1_Click（Index As Integer）
    For k = 0 To 3
    If Check1（k）.Value = 1 Then
    Text1.Text = Text1.Text & Check1（k）.Caption & "  "  '双引号中是空格
    End If
    Next k
    End Sub
    C）Private Sub Check1_Click（Index As Integer）
    Text1.Text = ""
    For k = 0 To 3
    If Check1（k）.Value = 1 Then
    Text1.Text = Text1.Text & Check1（Index）.Caption & " "  '双引号中是空格
    End If
    Next k
    End Sub
    D）Private Sub Check1_Click（Index As Integer）
    Text1.Text = ""
    For k = 0 To 3
    If Check1（k）.Value = 1 Then
    Text1.Text = Text1.Text & Check1（k）.Caption & " "  '双引号中是空格
    Exit For
    End If
    Next k
    End Sub