[填空题] 设窗体上有Text1文本框和Command命令按钮,并有以下程序:Private Sub Command1_Click()Iemp$=“”For k=1 To Len(Text1)Ch$=

[填空题] 设窗体上有Text1文本框和Command命令按钮,并有以下程序:Private Sub Command1_Click()Iemp$=“”For k=1 To Len(Text1)Ch$=,第1张

[填空题] 设窗体上有Text1文本框和Command命令按钮,并有以下程序:Private Sub Command1_Click()Iemp$=“”For k=1 To Len(Text1)Ch$=

[填空题] 设窗体上有Text1文本框和Command命令按钮,并有以下程序:Private Sub Command1_Click()Iemp$=“”For k=1 To Len(Text1)Ch$=Mid(Text1,k,1)If Not found(temp,ch)ThenTemp=temp&( 13 ) End ifNext kText1= ( 14 ) End SubPrivate Function found(str As String,ch As String)As BooleanFor K=1 To Len(str)If ch=Mid(Str,k,1) Then Found=( 15 ) Exit FunctionEnd IfNext kFound=FalseEnd Function运 行时,在文本框中输入若干英文字母,然后单击命令按钮,则可以删去文本框中所有重复的字母。例如,若文本框中原有字符串为“abcddbbc”,则单击命 令按钮后文本框中字符串为“abcd“。其中函数found的功能是判断字符串str中是否有字符ch,若有,函数返回True,否则返回False。请 填空。

正确答案:

ch

参考解析:

【解析】ch中存放的是从文本框中取出的一个字符,如果它还没有出现在temp中,则将它连接在temp的后面。

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zaji/5625993.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-12-15
下一篇 2022-12-15

发表评论

登录后才能评论

评论列表(0条)

保存