在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在Text1中输入的是

admin2009-06-20  39

问题 在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在Text1中输入的是abDfdb,则单击Comrnand1按钮后Text1中显示的字符串是
ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click()
Dim str As String,s As String,c As String
str=UCase(Text1)
S=""
C="Z"
While c>="A"
If lnStr(str,C)=0 Then
s=【  】
End If
c=Chr$(Asc(C【  】)
Wend
If s<>""Then
Text1=S
End If
End Sub

选项

答案S+C或s&c , -1

解析 题目要求把输入的字符串中没有的字符显示出来,InStr(sb,C):0就是指字符串中没有该字符,就要把该字符加入到变量s中,即s=s+c(或s=s & C):题目是从“z”~“A”循环查找的,找完一个,就找下一个,而从“Z”~“A”字符的ASCII码是逐渐减小的,所以c=ChrS(Asc(C)-1)。
转载请注明原文地址:https://jikaoti.com/ti/6Eq0FFFM
0

最新回复(0)