设有如下函数： 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 函数的功能是(　　)。

单项选择题设在当前目录下有一个名为 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程序的功能是( )。

单项选择题设工程文件中包名称分别为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关于上述程序，以下叙述中错误的是( )。