Private Sub Form_Click()
Const a = 100
Dim s As Single
Dim h(1 To 10) As single
h(1) = a / 2
For i = 1 To 9
h(i + 1) = h(i) / 2
Next i
s = 100
For i = 1 To 9
s = 2 * h(i) + s
Next i
Print s
Print h(10)
End Sub
望采纳！
25/512 m
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024