UC知道哪位VB高手帮忙解决个程序上的小问题
来源：百度知道 编辑：UC知道 时间：2024/05/06 07:26:52
Private Sub Form_Click()
Dim num As Integer
Dim str As String
str = InputBox("输入字符串，'结束'")
num = 0
While str <> "@"
num = num + 1
str = InputBox("输入字符串，'结束'")
Wend
Print "输入的字符串个数为:", num
End Sub
运行后是个死循环！！！！！！！！
Dim num As Integer
Dim str As String
str = InputBox("输入字符串，'结束'")
num = 0
While str <> "@"
num = num + 1
str = InputBox("输入字符串，'结束'")
Wend
Print "输入的字符串个数为:", num
End Sub
运行后是个死循环！！！！！！！！
Private Sub Form_Click()
Dim num As Integer
Dim str As String
num = 0
While str <> "@"
str = InputBox("输入字符串，'结束'")
num = num + 1
str = InputBox("输入字符串，'结束'")
Wend
Print "输入的字符串个数为:", num
End Sub
Private Sub Form_Click()
Dim num As Integer
Dim str As String
str=""
num = 0
While str <> "@"
str = InputBox("输入字符串，'结束'")
num = num + 1
Wend
Print "输入的字符串个数为:", num
End Sub