题目内容

要求函数的功能是：从参数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

查看答案

搜索结果不匹配？点我反馈

更多问题

全面质量管理是以______为基础的质量管理。

A. 协调部门利益
B. 全员参与
C. 规范作用流程
D. 明确管理职责

查看答案

有如下程序代码：Private Sub Form_Click() X = 8 If X > 8 Then Print "X > 8" ElseIf X < 10 Then Print "X < 10" ElseIf X = 8 Then Print "X = 8" End IfEnd Sub运行程序，单击窗体，输出结果是( )。

A. X < 10 X = 8
B. X < 10
C. X = 8
D. 不确定

查看答案

有如下程序段：s = 0For i = 1 To 10 s = s + iNext iPrint s与上述程序段输出结果相同的程序段为( )。

A. s = 0: i = 0 While i <= 10 i = i + 1 s = s + i Wend Print s
B. s = 0: i = 1 While i < 10 i = i + 1 s = s + i Wend Print s
C. s = 0: i = 1 Do s = s + i i = i + 1 Loop While i < 10 Print s
D. s = 0: i = 1 Do s = s + i i = i + 1 Loop Until i > 10 Print s

查看答案

假定Picture1和Text1分别为图片框和文本框的名称，则下列语句中错误的是( )。

A. Print 100
B. Text1.Print 100
C. Debug.Print 100
D. Picture1.Print 100

查看答案

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

全面质量管理是以______为基础的质量管理。

有如下程序代码：Private Sub Form_Click() X = 8 If X > 8 Then Print "X > 8" ElseIf X < 10 Then Print "X < 10" ElseIf X = 8 Then Print "X = 8" End IfEnd Sub运行程序，单击窗体，输出结果是( )。

有如下程序段：s = 0For i = 1 To 10 s = s + iNext iPrint s与上述程序段输出结果相同的程序段为( )。

假定Picture1和Text1分别为图片框和文本框的名称，则下列语句中错误的是( )。

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