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

admin2010-09-11  37

问题 在窗体上画一个命令按钮和一个文本框。然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),即命令按钮,程序可找出在文本框中输入的其他所有英文字母,并以大小写方式降序显示到Text1中,显示的字符串是ZYXWUTSRQPONMLKJIHGEC。请填空。
Private Sub Oommandl_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=【  】
End If
c=Chr $(Asc(C)【  】)
Wend
If s<>"" Then
Text1=s
End If
End Sub

选项

答案s+c ,-1

解析 InStr函数返回指定字符串在另字符串中最先出现的位置值(Long)。根据题意,[8]处的内容应该是如果c在字符串中没有找到,即字符串不包含此字符,则将该字符赋给s,所以应填入的内容是“s+c”;然后将c赋予其他字符进行检验,从该题来看,应该是按字母表逆序检验,所以其ASCII码值依次减1,故[9]处应填人的是“-1”。
转载请注明原文地址:https://jikaoti.com/ti/0tg0FFFM
0

最新回复(0)