Private Sub Command1_Click()
s = 1
For i = 7 To 1 Step -1
s = 2 * s + 1
Next i
Print "桃子的数量="; s
End Sub
Private Sub Command1_Click()Dim a, s, d, k, ia = 1For i = 1 To 6a = (a + 1) * 2NextPrint a最后等于190个
