计数输入框 Visual Basic 上的输入

Question

好吧，我对编程和 Visual Basic 还是很陌生。
我有这些代码，我需要我的程序做的是计算用户输入的数量。不同的输入，所以我让输入框循环，一旦用户输入值“0”，循环就会停止，并且会显示一个消息框，显示输入框循环的次数（从而显示输入的数据数量）

Dim inputNumber As Integer
Dim i As Integer

For i = 0 To inputNumber
    inputNumber = InputBox("Please enter a value")
    Do Until inputNumber = "0"
        inputNumber = i
        i = i + 1
    Loop
Next i
MsgBox(i)

所以它运行但它不会循环，所以消息框总是显示 1

Answer 1

显示输入框循环的次数

您的循环不正确。这是你正在尝试的吗？

Sub Sample()
    Dim inputNumber As Long
    Dim i As Long

    inputNumber = 1

    Do Until inputNumber = 0
        inputNumber = Application.InputBox("Please enter a value", Type:=1)
        i = i + 1
    Loop
    MsgBox i
End Sub

如果您计划接受 Text 以及 inputNumber，那么您必须将 Dim inputNumber As Long 更改为 Dim inputNumber As String 和 Type:=1 更改为 Type:=2

来自 cmets 的跟进

要显示非零输入的数量（您的问题未指定。它表示循环数），将上述代码更改为

Sub Sample()
    Dim inputNumber As Long
    Dim i As Long

    inputNumber = 1

    Do Until inputNumber = 0
        inputNumber = Application.InputBox("Please enter a value", Type:=1)
        If inputNumber <> 0 Then i = i + 1
    Loop
    MsgBox i
End Sub

Answer 2

尝试以下方法：

Dim inputNumber as Integer = 0
Dim i as Integer = -1
do
    inputNumber = InputBox("Please enter a value")
    i = i + 1
Loop while inputNumber <> 0
MsgBox("Number of inputs: " & i)