For 循环没有做下一部分，或者我的函数 VBA 有问题

Question

使用罗马数字计算器（仍在学习，所以如果这是一个简单的解决方法，请不要判断：P）

我遇到的问题是，当查看是否可以使用 Debug.print 从函数 (arr_rnnum) 中的数组中读取值时，第一个值可以正常读取，但第二个值始终返回零。我尝试在 for 循环中添加计数 j = j + 1 但这没有效果

例如，如果我将 debug.print 更改为 getting_values(0) 并在输入框中输入 X,V 它将打印 10 但如果我将其更改为 debug.print 到 getting_values(1) 它会打印 0

如果有人能看出问题所在，那将是一个很大的帮助

这是我的代码

Public Sub main()
   Debug.Print getting_values(1)
End Sub

---

Function getting_values()    
   Dim arr_rnstr() As String
   Dim rnstr As String
   Dim arr_rnnum() As Integer

   rnstr = InputBox("enter the roman numeral in descending order of value and put a comma between each")
   arr_rnstr() = Split(rnstr, ",") 'splits the string the user entered into single values'
   ReDim arr_rnnum(UBound(arr_rnstr)) 'sets the size of the array of numbers to the upper bound of the array of letter the user entered'
   For j = LBound(arr_rnstr) To UBound(arr_rnstr) 'this section checks each value of the array of letters and replaces it with a number in a second array'
      Select Case arr_rnstr(j)
         Case Is = "I"
            arr_rnnum(j) = 1
         Case Is = "V"
            arr_rnnum(j) = 5
         Case Is = "X"
            arr_rnnum(j) = 10
         Case Is = "L"
            arr_rnnum(j) = 50
         Case Is = "C"
            arr_rnnum(j) = 100
         Case Is = "D"
            arr_rnnum(j) = 500
         Case Is = "M"
            arr_rnnum(j) = 1000
      End Select
      j = j + 1
   Next j
   getting_values = arr_rnnum
End Function

Answer 1

答案是你需要在使用结果数组之前完成方法调用..

改变

Debug.Print getting_values(1)

到

Debug.Print getting_values()(1)

您当前调用getting_values 方法的值0 和1 分别代表false 和true。

我不知道为什么在您的方法调用中传递 false 会允许 Debug Print 显示结果数组的第一个值。

---

Public Sub main()
   Debug.Print getting_values()(1)
End Sub

Function getting_values() As Integer()
    Dim arr_rnstr() As String
    Dim rnstr As String
    Dim arr_rnnum() As Integer

    rnstr = InputBox("enter the roman numeral in descending order of value and put a comma between each")
    ' split the string the user entered into single values
    arr_rnstr() = Split(rnstr, ",") 

    ' set the size of the array of numbers to the upper bound of the array of letter the user entered
    ReDim arr_rnnum(UBound(arr_rnstr)) 

    ' checks each value of the array of letters and replaces it with a number in a second array
    For index = LBound(arr_rnstr) To UBound(arr_rnstr) Step 1           
        Select Case arr_rnstr(index)
            Case Is = "I"
                arr_rnnum(index) = 1
            Case Is = "V"
                arr_rnnum(index) = 5
            Case Is = "X"
                arr_rnnum(index) = 10
            Case Is = "L"
                arr_rnnum(index) = 50
            Case Is = "C"
                arr_rnnum(index) = 100
            Case Is = "D"
                arr_rnnum(index) = 500
            Case Is = "M"
                arr_rnnum(index) = 1000
        End Select
    Loop
    getting_values = arr_rnnum
End Function

Answer 2

我想我已经解决了你的问题，你不能像这样返回数组，因为它不返回任何东西。存储到一个字符串并返回它，这样会更容易。

Public Sub main()
   Debug.Print getting_values()
End Sub


Function getting_values()
   Dim arr_rnstr() As String
   Dim rnstr As String
   Dim arr_rnnum() As Integer
   Dim arr_num(12) As String
   Dim rn As String

   rnstr = InputBox("enter the roman numeral in descending order of value and put a comma between each")
   arr_rnstr() = Split(rnstr, ",") 'splits the string the user entered into single values'
   ReDim arr_rnnum(UBound(arr_rnstr)) 'sets the size of the array of numbers to the upper bound of the array of letter the user entered'
   For j = LBound(arr_rnstr) To UBound(arr_rnstr) 'this section checks each value of the array of letters and replaces it with a number in a second array'
      Select Case arr_rnstr(j)
         Case Is = "I"
              arr_num(j) = 1
         Case Is = "V"
              arr_num(j) = 5
         Case Is = "X"
              arr_num(j) = 10
         Case Is = "L"
              arr_num(j) = 50
         Case Is = "C"
              arr_num(j) = 100
         Case Is = "D"
              arr_num(j) = 500
         Case Is = "M"
              arr_num(j) = 1000
      End Select
      rn = rn + arr_num(j) + " "
   Next j
   getting_values = rn
End Function