单项选择题


A．选择
B．差
C．交
D．并
<上一题 目录 下一题>
热门 试题

单项选择题
设有如下函数：Function DelSpace(ch As String)As IntegerDim n%， st$， c$st＝ n＝0For k＝1 To Len(ch)c＝Mid(ch， k， 1)If c<> Thenst＝st & cElsen＝n＋1End IfNext kch＝stDelSpace＝nEnd Function函数的功能是( )。
A．统计并返回字符串ch中字符的个数
B．删除字符串ch中的空格符，返回删除字符的个数
C．统计并返回字符串ch中非空格字符数
D．删除字符串ch中除空格符外的其他字符，返回删除字符的个数
单项选择题
设在当前目录下有一个名为 file.txt 的文本文件，其中有若干行文本。编写如下程序：Private Sub Command1_Click() Dim ch$， ascii As Integer Open file.txt For Input As #1 While Not EOF(1) Line Input #1， ch ascii＝toascii(ch) Print ascii Wend Close #1End SubPrivate Function toascii(mystr As String)As Integer n＝0 For k＝1 To Len(mystr) n＝n＋Asc(Mid(mystr， k， 1)) Next k toascii＝nEnd Function程序的功能是( )。
A．按行计算文件中每行字符的ASCII码之和，并显示在窗体上
B．计算文件中所有字符的ASCII码之和，并显示在窗体上
C．把文件中所有文本行按行显示在窗体上
D．在窗体上显示文件中所有字符的ASCII码值
相关试题