题目

用V B编写一个程序将下面的数列延长至第50项：1,2,5,10,21,42,85,170,341,.

提问时间：2020-12-30

答案

Dim i,j As Long
For i = 1 To 20
If j Mod 2 = 1 Then
j = j * 2
Else
j = j * 2 + 1
End If
Debug.Print j
Next i
'多了会溢出