UC知道VB程序题
来源：百度知道 编辑：UC知道 时间：2024/07/05 05:15:41
写出程序的运行结果
Private Sub Form_Click( )
Dim a As Integer,s As Integer
a=5;s=0
Do While a<=0
s=s+a:a=a-1
Loop
Print s:a
End Sub
单击窗体后，窗体显示的结果？
还有一题~~请把这题也解答一下
2.
编制一个带有简单动化效果的程序：使一行字从做左到右的移动，到达边界后再从头开始、不间断的移动
Private Sub Form_Click( )
Dim a As Integer,s As Integer
a=5;s=0
Do While a<=0
s=s+a:a=a-1
Loop
Print s:a
End Sub
单击窗体后，窗体显示的结果？
还有一题~~请把这题也解答一下
2.
编制一个带有简单动化效果的程序：使一行字从做左到右的移动，到达边界后再从头开始、不间断的移动
第一题：窗体上显示 0 和 5
因为Do While a<=0 这句话根本没有成立。
第二题你就不断的把文字的LEFT属性加1就可以了，然后检测是否大于等于form.width就可以了，如果大于等于form.width，你又把left设置为0，这样又从头开始了，因为我没有装VB。。就说个思路给你，你按照书上来改改就可以了
就是楼上说的那样