设有如下程序
Private Sub Command1_Click( ．
Dim sum As Double, x As Double
sum = 0
n = 0
For i=1 To 5
x = n / i
n = n + 1
sum = sum + x
Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是