[填空题] 在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母

8 查阅

[填空题] 在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在Text1中输入的是abDfdb,则单击Command1按钮后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 Instr(str,c)=0 Then

s= (6)

End If

c=Chr $ (Asc(c) (7) )

Wend

If s<>""Then

Text1=s

End If

End Sub

参考答案:

-1

本题考查的是字符串的操作。从题意来考虑,如果c在字符串中没有找到,即字符串不包含此字符,则将该字符赋给s,所以[6]应填入的内容是"s+c";然后将c赋予其他字符进行检验,从该题来看,应该是按字母表逆序检验,所以其ASCII码值依次减1,故[7]处应填入的是"-1"。

计算机考试