在名称为Form1，标题为“输入3个Q结束输入”的窗体上，画三个文本框，名称为Text1、Text2、Text3初始内容

发布网友发布时间：2022-04-19 11:59

共1个回答

热心网友时间：2023-10-24 14:59

Private Sub C1_Click()
Dim s(10)
Text1 = 0
Text2 = 0
Text3 = 0
For i = 1 To 10
Do
s(i) = InputBox("输入第" & i & "个任意字母")
Loop Until Len(s(i)) = 1 And UCase(s(i)) >= "A" And UCase(s(i)) <= "Z"
If i >= 3 Then If UCase(s(i)) & UCase(s(i - 1)) & UCase(s(i - 2)) = "QQQ" Then Exit For
If UCase(s(i)) = "A" Then
Text1 = Val(Text1) + 1
ElseIf UCase(s(i)) = "B" Then
Text2 = Val(Text2) + 1
ElseIf UCase(s(i)) = "C" Then
Text3 = Val(Text3) + 1
End If
Next
End Sub
Private Sub C2_Click()
Text1 = "'"
Text2 = ""
Text3 = ""
C1.SetFocus
End Sub
Private Sub C3_Click()
Unload Me
End Sub

更正，倒数第8行改为

Text1 = ""

追问

能否不用 DO LOOP？这个还没学。能看下这个问题在那里吗？

这个是我写得。问题老是说inputbox那一步有问题，求解。

刚试了一下你这个，8，9，10行有语法错误啊。直接显示红色的了。。。

追答百度知道又把代码显示乱码了，无奈。。。

你的代码基本没错，除了第一个定义：
Dim r%
改成：
Dim r$

另外，你没实现输入3个Q退出

首页

文章

在名称为Form1，标题为“输入3个Q结束输入”的窗体上，画三个文本框，名称为Text1、Text2、Text3初始内容