我試圖讓用戶輸入一個增量的msgbox顯示數字1-100。我究竟做錯了什麼？

Question

Private Sub CommandButton3_Click() 

Dim i As Integer, n As Integer, inc As Integer, results() As Integer 
Dim text As String 

n = 100 

inc = InputBox("Please enter increment") 

ReDim results(0 To n) As Integer 

For i = 1 To n Step 1 

results(i) = inc + i 

text = results(i) 

Next i 

MsgBox (text) 

End Sub 

Answer 1

試試這個：

Private Sub CommandButton3_Click() 

Dim i As Integer, n As Integer, inc As Integer, results() As Integer 
Dim text As String 

n = 100 

inc = InputBox("Please enter increment") 

ReDim results(0 To n) As Integer 

For i = 1 To n Step 1 

results(i) = inc + i 

Next i 

text = Join(results, ",") 
MsgBox text 

End Sub 

的Join()功能將使用給定的分隔符加入一個一維數組，並返回一個字符串。

Answer 2

據我瞭解，增量是一個遞增 - 連續值之間的差異。因此，代碼應該是：

Private Sub CommandButton3_Click() 

Dim i As Integer, n As Integer, inc As Integer, results() As Integer 
Dim text As String 

n = 100 
inc = InputBox("Please enter increment") 
ReDim results(1 To n) As Integer ' not: (0 to n) 

For i = 1 To n Step inc 
    results(i) = i 
Next i 
text = Join(results, ",") 
MsgBox text 
End Sub