UC知道vb填空题
来源：百度知道 编辑：UC知道 时间：2024/05/12 18:38:10
在窗体上画一个按钮和一个文件框，然后编写命令按钮的click事件过程。程序运行后，在文件框输入一串英文字母（不区分大小写），单击命令按钮，程序可找到未在文件框中输入的其它所有英文字母，并以大小写方式降序显示到text1，例如，若在text1中输入的是abDfdb,则单击command1按钮后text1中显示的字符串是ZYXWVUSRPQONMLKJIHGEC。请填空。
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=_________
end if
c=chr$(asc(c))
if s<>"" then
text=s
end if
end sub
麻烦给我讲一下，谢谢！c=chr$(asc(c)____________)
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=_________
end if
c=chr$(asc(c))
if s<>"" then
text=s
end if
end sub
麻烦给我讲一下，谢谢！c=chr$(asc(c)____________)
s & c
关键是这一句：
if instr(str,c)=0 then '如果在字段str中找不到c（c在这里是代表26个字母）
s=s & c ‘那么就让s在后面再加上找不到的那个字母
end if
我自己这样看的。。。不知道有没有错。。。最好调试一下。。。
==========这是我昨晚试的。。。这样能调试成功：
Private Sub command1_click()
Dim str As String, s As String, c, d As String
str = UCase(Text1.Text) '这里把text1的内容转换为全大写，并赋予str
s = "" 's将是处理后所输出的内容
c = "Z" '因为前面把text1转换为了全大写，所以这里也需要为大写的Z
While c >= "A" '同上，必须为大写的A；当c值大于等于"A"时，就执行下面wend前的语句
If InStr(str, c) = 0 Then '如果在字段str中找不到c（c在这里是代表26个字母）
s = s & c '那么就让s在后面再加上找不到的那个字母
End If
c = Chr$(Asc(c) - 1) '让c所代表的字母往前挪，如Z变成Y，Y变成X……B变成A，范围了while语句的循环
Wend '这里必须要有wend，while和wend组合条件循环；原本你发的那个上面没有，所以我加了上去
If s <> "" Then '如果s的内容不为空
Text1.Text = s '就将s输出到text1
End If
End Sub
==========