用VB编写程序计算s=1+2+2^2+2^3+……，直至s超过1E+16。

来源：百度知道 编辑：UC知道 时间：2024/06/17 08:38:29

Private Sub Command1_Click()
Dim i, s As Single
i = 0: s = 1
For i = 0 To 100
s = 2 ^ (i + 1) - 1
If s > 10 ^ 16 Then
Exit For
End If
Next i
Print "s=" & s, "i=" & i
End Sub

最终输出结果为s=1.80144E+16，i=53

private sub form_click()
dim i as long,s as single
i=0:s=0
do while s<=10^16
s=s+2^i
i=i+1
loop
msgbox(“不超过1e+16的s为”& s）
end sub
应该是这样

Private Sub Command1_Click()
Dim i As Long, s As Single
i = 0: s = 0
Do While s <= 10 ^ 16
s = s + 2 ^ i
i = i + 1
If s <= 10 ^ 16 Then
a = s
End If
Loop
msgbox("不超过1e+16的s为" & a）

End Sub