Private Sub Form_click()
Dim n As Integer, i As Integer, x As Integer
x = 1
For i = 6 To 1 Step -1
x = (1 + x) * 2
Next i
Form1.Print "共有"; x; "个桃子"
End Sub
答案好像是190
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 1
For y = 1 To 6
x = (x + 1) * 2
Next y
Print "共有" & x & "个桃子"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024