为什么填loop而不是next p

[复制链接]
查看11 | 回复2 | 2008-6-22 18:51:16 | 显示全部楼层 |阅读模式
Private Sub Command1_click()
Dim n As Integer, r As Single
Dim p As Double
r = 0.5/100
p = 13.5
n = 0
Do While p < 15

p=p*(r+1)


n = n + 1


Text1.Text = Str(n)
End Sub
程序中划线处①应填入。

回复

使用道具 举报

千问 | 2008-6-22 18:51:16 | 显示全部楼层
语句这方面你得去多学习DO While 后面只能加LoopFor 后面只能加next还有很多呢,如 DO untile
loop
DO
untile loop
Do
while loop
while
wend
回复

使用道具 举报

千问 | 2008-6-22 18:51:16 | 显示全部楼层
因为前面是do,所以是loopnext 前面要配for
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行