Private Sub Command1_Click()
s = 1
For i = 7 To 1 Step -1
s = 2 * s + 1
Next i
Print "桃子的数量="; s
End Sub
10-28 168阅读
06-12 85阅读
11-05 122阅读
05-02 43阅读
03-25 63阅读
03-10 102阅读
09-25 96阅读
12-10 81阅读
03-17 145阅读
08-08 63阅读
