设有如下函数：Function DelSpace(ch As String)As Integer Dim n%， st$， c$ st＝"" n＝0 For k＝1 To Len(ch) c＝Mid(ch， k， 1) If c[]" " Then st＝st & c Else n＝n＋1 End If Next k ch＝st DelSpace＝nEnd Function函数的功能是( )。 A: 统计并返回字符串ch中字符的个数 B: 删除字符串ch中的空格符，返回删除字符的个数 C: 统计并返回字符串ch中非空格字符数 D: 删除字符串ch中除空格符外的其他字符，返回删除字符的个数
设有如下函数：Function DelSpace(ch As String)As Integer Dim n%， st$， c$ st＝"" n＝0 For k＝1 To Len(ch) c＝Mid(ch， k， 1) If c[]" " Then st＝st & c Else n＝n＋1 End If Next k ch＝st DelSpace＝nEnd Function函数的功能是( )。 A: 统计并返回字符串ch中字符的个数 B: 删除字符串ch中的空格符，返回删除字符的个数 C: 统计并返回字符串ch中非空格字符数 D: 删除字符串ch中除空格符外的其他字符，返回删除字符的个数
1