单选

下面函数的功能应该是:删除字符串str中所有与变量ch相同的字符,并返回删除后的结果。例如:若str="ABCDABCD",ch="B",则函数的返回值为:"ACDACD"

Function delchar(str As String,ch As String)As String

Dim k As Inlegcr,temp As String,ret As String

ret=""

For k=1 To Len(str)

temp=Mid(str,k,1)

If temp=ch Then

ret=ret&temp

End If

Next k

delchar=ret

En d Function

但实际上函数有错误,需要修改,下面的修改方案中正确的是(  )。

  • A.把ret=ret&temp改为ret=temp
  • B.把If temp=ch Then改为If temp<>ch Then
  • C.把delchar=ret改为delchar=temp
  • D.把ret=""改为temp=""
参考答案
您可能感兴趣的试题

下面描述中错误的是(  )。

  • A.系统总体结构图支持软件系统的详细设计
  • B.软件设计是将软件需求转换为软件表示的过程
  • C.数据结构与数据库设计是软件设计的任务之一
  • D.PAD图是软件详细设计的表示工具

在窗体上画1个命令按钮,并编写如下事件过程:

Private Sub Command1 Click(  )

Dim a(3,3)

For m=1 To 3

For n=1 To 3

If n=m or n=4—m Then

  • a(m.n)=m+n
  • Else
  • a(m,n)=0
  • End If    Print a(m,n);    Next n    Print    Next m
  • End Sub    运行程序,单击命令按钮,窗体上显示的内容为(  )。
  • A.2 0 0    0 4 0    0 0 6
  • B.2 0 4    0 4 0    4 0 6
  • C.2 3 0    3 4 0    0 0 6
  • D.2 0 0    0 4 5    0 5 6

设程序中有如下数组定义和过程调用语句:

Dim a(10)As Integer

Call D(a)

如下过程定义巾,正确的是(  )。

  • A.Private Sub p(a As Integer)
  • B.Private Sub p(a(  )As Integer)
  • C.Private Sub p(a(10)As Integer)
  • D.Private Sub p(a(n)As Integer)
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服