在窗体Form1上画一个名称为Command1的命令按钮,编写如下程序代码:Private Type stu sn As String * 20 class As String * 20End TypePrivate Sub Command1_Click() Dim s As stu Open "c:\allstu.dat" For Random As #1 Len = Len(s) s.sn = "John" s.class = "Computer 2013" Put #1, , s Close #1End Sub则以下叙述中正确的是( )。
A. 定义记录类型stu的Type语句可以移到事件过程Command1_Click中
B. 如果文件c:\allstu.dat不存在,则Open语句执行中出现"文件未找到"的错误
C. 文件c:\allstu.dat中的每条记录是等长的
D. 语句"Put #1, , s"中没有指明记录号,因此系统总是把记录写到文件的头部
要求函数的功能是:从参数str字符串中删除所有参数ch所指定的字符,返回实际删除字符的个数,删除后的字符串仍在str中,为此某人编写了函数DelChar如下:Function DelChar(str As String, ch As String) As Integer Dim n%, st$, c$ st = "" n = 0 For k = 1 To Len(str) c = Mid(str, k, 1) If c = ch Then st = st & c Else n = n + 1 End If Next k str = st DelChar = n End Function并用下面的Command1_Click()过程观察函数调用结果Private Sub Command1_Click() ch$ = Text1.Text Print DelChar(ch, "x"), chEnd Sub发现结果有错误,程序代码需要修改,以下正确的修改方案是( )。
A. 把语句If c = ch Then 改为If c <> ch Then
B. 把语句Print DelChar(ch, "x"), ch改为Print DelChar(ch, "x") :Print ch
C. 把语句DelChar = n 改为 DelChar = st
D. 删掉语句str = st