k（）t（）（）en

A.Xanh Ánh Băng – Đen Huyền Bí

B.Xanh Thiên Hà – Đen Vũ Trụ

C.Xanh Thiên Thanh – Trắng Nguyệt Thạch

D.Xanh Ngọc Bích – Trắng Sương Mai

d1Click（） Dim cout(25)As Integer，ch As String ch=Ucase(Int,utBox("请输入字母字符串")) For k=1 To i en(ch)． n=ASC(Mid(ch，k，1))-Asc("A") If n＞=0 Then count(n)=count(n)+1 End If Next k m=count(0) For k=1 To 25 If m＜count(k)Then m=count(k) End If Next k Print m End Sub

A.0

B.1

C.2

D.3

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=""

quot;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=""

下面程序运行时，若输入“Visual Basic Prograrmming”，则在窗体上输出的是（）。

Dim cout(25)As Integer，ch As String

ch=Ucase(Int,utBox("请输入字母字符串"))

For k=1 To i en(ch)．

n=ASC(Mid(ch，k，1))-Asc("A")

If n＞=0 Then

count(n)=count(n)+1

End If

Next k

m=count(0)

For k=1 To 25

If m＜count(k)Then

m=count(k)

End If

Next k

Print m

End Sub

A.0

B.1

C.2

D.3

A.t

B.k

C.ch

D.zh

A.t

B.k

C.ch

D.zh

A.b t

B.q x

C.k ch

D.sh p

A.b、c、k

B.z、ch、q

C.d、t、r

D.f、j