高校问答给柏拉图献花 百度云:vb中的循环问题
来源：百度文库 编辑：高校问答 时间：2024/04/28 15:27:10
Private Sub Command1_Click()
Dim a As Integer
Dim i As Integer
Dim tao As Long
tao = 1
a = Text1.Text
For i = (a - 1) To 0
tao = (tao + 1) * 2
Print "第几天" & i & "的桃子为" & tao & ""
Next i
End Sub
问题1（算法没错）
请问为什么这样就不能打印啊 如
果是For i = 0to(a-1)就可以
但是打印出来的是第0天第1天第2天．．．．了
我需要的是比如用户输入9
打印的是第8天．．．第7天．．．第6天这样第减的啊
问题2 我这个打印是直接打印在form1上的
会有很多行 我要清空她 用form1的什么属性啊
谢谢啊
Dim a As Integer
Dim i As Integer
Dim tao As Long
tao = 1
a = Text1.Text
For i = (a - 1) To 0
tao = (tao + 1) * 2
Print "第几天" & i & "的桃子为" & tao & ""
Next i
End Sub
问题1（算法没错）
请问为什么这样就不能打印啊 如
果是For i = 0to(a-1)就可以
但是打印出来的是第0天第1天第2天．．．．了
我需要的是比如用户输入9
打印的是第8天．．．第7天．．．第6天这样第减的啊
问题2 我这个打印是直接打印在form1上的
会有很多行 我要清空她 用form1的什么属性啊
谢谢啊
1:for语句中从大到小是要加step 的,表示每次减少多少
比如:
for i=4 to 1 step -1
next i
2:cls方法,清屏