2. 计算机
  3. 设窗体上有Text1文本框和Commandl命令按钮,并有以下程序: Private Sub Commandl Click() tempS:“” Fork=1 ToLen(Text1) ch$=

设窗体上有Text1文本框和Commandl命令按钮,并有以下程序: Private Sub Commandl Click() tempS:“” Fork=1 ToLen(Text1) ch$=

admin2012-05-23  59
问题 设窗体上有Text1文本框和Commandl命令按钮,并有以下程序:
    Private Sub Commandl Click()         tempS:“”
        Fork=1 ToLen(Text1)
           ch$=Mid(Text1,k,1)
           If Not found(temp,ch)Then
             temp=temp&【  】
           End If
        Next k
        Text1=【  】
    EndSub
    Private Function found(str As String,ch As String)As Boolean
       Fork=1 ToLen(str)
           If ch=Mid(str,k,1)Then
              found=【  】
              Exit Function
         End If
       Next k
       found=False
    End Function
    运行时,在文本框中输入若干英文字母,然后单击命令按钮,则可以删去文本框中所有重复的字母。例如,若文本框中原有字符串为“abcddbbc”,则单击命令按钮后文本框中字符串为“abcd”。其中函数found的功能是判断字符串str中是否有字符ch,若有,函数返回True,否则返回False。请填空。
选项
答案ch temp True
解析 在本题的单击事件中,首先利用循环取出文本框中的每一位字符,然后依次进行比较看该字符是否在结果串temp中出现,若未出现则证明该字符尚未重复,所以将该字符ch连接到结果串temp中,当循环结束后temp中的字符必然是没有重复值的,所以要将temp的值放到Text1中进行输出;在foulld函数中判断在给定字符串str中是否存在子串cb,方法是依次取出str中每一个字符与ch进行比较,若发现相等则证明存在ch子串,此时应该返回True证明找到字串随之退出函数;若循环结束后依然没有退出循环则证明没有找到,返回False。
转载请注明原文地址:https://www.kaotiyun.com/show/BPhp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)