Private Sub Command1_Click()
Dim s As Double
Dim i As Integer
s = 0
For i = 0 To 63
s = s + 2 ^ i
Next
Text1.Text = s
End Sub
结果:1.84467440737096E+19
Private Sub Command1_Click()
Dim s As Double
Dim i As Integer
s = 0
For i = 0 To 63
s = s + 2 ^ i
Next
Text1.Text = s
End Sub
结果:1.84467440737096E+19