神马品牌网免费外贸交易平台:vb高手看一下，2秒钟
来源：百度文库 编辑：神马品牌网 时间：2024/05/07 01:24:05
英文单词测验，不管大小写都算正确。（选择结构和循环结构的嵌套）
Dim an As String, ms As String
an = InputBox("请输入“快乐”的英文单词！")
Do While __________ <> "HAPPY"
If an = "" Then ________ '当用户的输入为空，或者直接按"取消"时，中止循环
ms = "不正确！" & Chr(13) + Chr(10) & "请重新输入“快乐”的英文"
an = InputBox(ms)
Loop
If an <> "" Then
MsgBox ("太棒了，你答对了！")
Else
MsgBox "结束"
End
End If
填一下空，再帮我看一下要改什么，多谢了
Dim an As String, ms As String
an = InputBox("请输入“快乐”的英文单词！")
Do While __________ <> "HAPPY"
If an = "" Then ________ '当用户的输入为空，或者直接按"取消"时，中止循环
ms = "不正确！" & Chr(13) + Chr(10) & "请重新输入“快乐”的英文"
an = InputBox(ms)
Loop
If an <> "" Then
MsgBox ("太棒了，你答对了！")
Else
MsgBox "结束"
End
End If
填一下空，再帮我看一下要改什么，多谢了
1、 UCase(an)
2、 Exit Do
an
MsgBox "Input Words!"
第一个空是an，第二个空是exit do
需要修改的是，你的程序只承认大写的，小写的不承认，要把
Do While an <> "HAPPY"
改成
Do While an <> "HAPPY" And an <> "happy"