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

admin2009-02-15  25

问题 在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在Text1中输入的是abDfdb,则单击Commandl按钮后Text1中显示韵字符串是
ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Commandl_C1ick()
Dim Str As String,s As String,c As String
str=UCase(Text1)
s=""
c="Z"
While c>="A"
If InStr(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(str,C)=0就是指字符串中没有该字符,就要把该字符加入到变量s中,即s=s+c(或s=s&C);题目是从“Z”~“A”循环查找的,找完一个,就找下一个,而从“Z”~“A”字符的ASCII码是逐渐减小的,所以c=Chr$(Asc(C)-1)。
转载请注明原文地址:https://jikaoti.com/ti/Pgq0FFFM
0

随机试题
最新回复(0)