单项选择题

设有如下函数： 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＝n End 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码值
单项选择题
设工程文件中包名称分别为Form1、Form2的两个窗体，且Form1的菜单属性设置如下：窗体Form1中的程序如下：Dim Flag As BooleanPrivate Sub Form_Load() Flag＝TrueEnd SubPrivate Sub mnu1_Click(index As Integer) If Index＝1 Then If Flag＝True Then Form2.show mnu1(1).Caption＝ 隐藏窗体2 Flag＝False Else Form2.Hide mnu1(1).Caption＝ 显示窗体2 Flag＝True End If End If If Index＝2 Then EndEnd Sub关于上述程序，以下叙述中错误的是( )。
A．Index属性的值可以用来区分控件数组元素
B．Index为1的菜单项的标题可能会改变
C．两个名称均为Mnu1的菜单项构成一个控件数组
D．语句Form2.Hide将Form2卸载
相关试题