Question

当步长为1时，我能够打印出每个循环迭代的值。有没有办法可以用较小的步长进行相同的操作？以下代码是我在步长为1时所使用的代码

For i = 1 To Height - 1
    Moment = ((Load * i) / (3 * (Height ^ 2)) * ((Height ^ 2) - (i ^ 2)))
    Application.Calculate
    Sheet2.Range("A" & i).Value = i
    Sheet2.Range("B" & i).Value = Moment
Next i

Answer 1

我认为这可以被标记为“轻松google-able”，但您可以使用step [increment]修改for循环：

 dim k as int    
 k = 1
 For i = 1 To Height - 1 step 0.1
     Moment = ((Load * i) / (3 * (Height ^ 2)) * ((Height ^ 2) - (i ^ 2)))
     Application.Calculate
     Sheet2.Range("A" & k).Value = i
     Sheet2.Range("B" & k).Value = Moment
     k = k + 1
Next i

将循环值打印到步长小于1的单元格

1 个答案: