Question

急求VB程序代码解释

我是名高中生，参加了学校的选修课程：VB程序设计入门，但有个小程序我不知道是怎么做的，我有程序代码，麻烦高手帮忙解释下程序是怎么来的，谢谢！这个程序叫：《跳动的小球》程序代码如下：Private Sub Timer1_Timer()
If Shape1.Top >= 500 Then
Shape1.Top = Shape1.Top - 200
Else
Timer1.Enabled = False
Timer2.Enabled = True
End If
End SubPrivate Sub Timer2_Timer()
If Shape1.Top <= 1000 Then
Shape1.Top = Shape1.Top + 200
Else
Timer1.Enabled = True
Timer1.Enabled = False
End If
End Sub

Answer 1

呵呵，你这程序我曾经有看过，名叫《弹力球》，不过那本书里没有写完整的代码。（黄先生/爱情 的答案不行，因为他忽略了些东西）你的代码有错误，我另个你个完整的代码吧，并带有注释的，你把它复制去覆盖你这个程序的代码，复制进去后你才容易看得出我这写的是什么，绿色的是注释，给老师检查的时候要记得删除注释这段修改控件属性的代码 你也可以在设置窗体时设置，如果是在设置窗体时设置这些控件的属性，那你得删除相应的 代码（修改那个控件的属性的代码）“Shape1.Shape = 3
Shape1.FillStyle = 6
Timer1.Enabled = False
Timer1.Interval = 100
Timer2.Enabled = True
Timer2.Interval = 100”代码：

Private Sub Form_Load() '程序初始化时执行的代码
Shape1.Shape = 3 '设置为3表示改变Shape1的外观为圆形
Shape1.FillStyle = 6 '设置为6表示使 Shape1 的填充样式为 横-竖型网格
Timer1.Enabled = False '这里是注释，这里表示 Timer1 控件不能响应用户生成事件
Timer1.Interval = 100 '使两次调用Timer1控件Timer事件间隔时间为100毫秒，如果它的Enabled为False时不执行它的Timer事件（就是“Timer1_Timer( )”那儿的代码）
Timer2.Enabled = True '表示 Timer2 控件能响应用户生成事件
Timer2.Interval = 100 '使两次调用Timer2控件Timer事件间隔时间为100毫秒
End SubPrivate Sub Timer1_Timer() 'Timer1控件被触发时的代码
If Shape1.Top >= 0 Then '如果Shape1与窗口顶端(也就是0)的距离大于或等于0时，执行 Else前面的代码。如果不符合条件(即Shape1与窗口顶端的距离不是大于或等于0)，就执行Else后面的代码
Shape1.Top = Shape1.Top - 200 '使Shape1与窗口顶端的距离变小200
Else '这是在“If Shape1.Top >= 0 Then ”这句判断时，如果不符合条件(即Shape1与窗口顶端的距离不是大于或等于0)，才执行下面的代码
Timer1.Enabled = False 'Timer1 控件不能响应用户生成事件，就是停止使小球往下运动的时间控件的使用
Timer2.Enabled = True 'Timer2 控件能响应用户生成事件，就是触发使小球往上运动事件
End If
End SubPrivate Sub Timer2_Timer() 'Timer2控件被触发时的代码
If Shape1.Top <= Me.Height - Shape1.Height * (8 / 5) Then '如果Shape1与窗口顶端的距离 小于或等于 这个窗体的可设置对象的高度(即Me.Height)减去Shape1的高度的 5分之8 ，就执行Else前面的代码，否则执行Else之后的代码
Shape1.Top = Shape1.Top + 200 'Shape1的Top 增加 200，就是小球往下掉。
Else
Timer2.Enabled = False 'Timer2 控件不能响应用户生成事件，就是停止使小球往上运动的时间控件的使用
Timer1.Enabled = True 'Timer1 控件能响应用户生成事件，就是触发使小球往下运动事件
End If
End Sub

Answer 2

Shape是图形控件Shape1.Top指的是显示位置离顶的距离 If Shape1.Top >= 500 Then // 当控件距离>=500
Shape1.Top = Shape1.Top - 200 // 下落操作
Else
Timer1.Enabled = False // 当控件距离<500,停止下落操作,执行上升操作,也就是Timer2_Timer()
Timer2.Enabled = True
End If Timer2_Timer()正好和上边相反

Answer 3

1、新建一个窗体2、在窗体上放置一个图形对象（Shape1），并设置Shape1的Shape属性为3 - Circle(圆形）3、在窗体上放置两个Timer计时器(Timer1/Timer2)，并设置Timer的Intervel为300到1000任意。4、程序启动后，就会在两个Timer事件里做切换运行咯。相对的 你就可以看到“球”动起来了。