雯姐素老大吧 关注：18贴子：675
- 12回复贴，共1页
Private Sub Command1_Click()
Dim n As Single, a As Integer
n = 60000
y = 0
Do While n <= 1000000
n = n * 1.5
y = y + 1
Loop
Print n, y
End Sub
Dim n As Single, a As Integer
n = 60000
y = 0
Do While n <= 1000000
n = n * 1.5
y = y + 1
Loop
Print n, y
End Sub
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频！
看高清直播、视频！
贴吧热议榜
- 1王者荣耀补偿你满意吗2068710
- 2李嘉诚卖港口计划暂缓1568436
- 3“黑”悟空甲亢哥在少林寺表演绝活1227240
- 4G2淘汰赛一轮游被MOUZ送回家926397
- 5缅甸大地震可能会引发海啸810160
- 6想拿到崩铁纪念册需要什么条件697750
- 7合影！土木圣经又更新了683112
- 8崩铁3.2免费五星怎么选520490
- 9假如霍格沃兹是国内魔法高校485782
- 10金蝉脱壳？腾讯育碧成立新公司383292
