VBI 29.PNG

Private Sub Command1_Click()
Dim i, s As Integer
Cls
i = 1024
While i >= 1
    s = s + i
    i = i / 2
Wend
Print "Sum = "; s
End Sub

VBO 29.PNG

Advertisements