| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 475 人关注过本帖
标题:高手指教!
只看楼主 加入收藏
Scnow
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2005-8-8
收藏
 问题点数:0 回复次数:2 
高手指教!
Private Sub Timer1_Timer()
Dim n As Integer
        Dim a1 As Integer
        Dim a2 As Integer
        Dim a3 As Integer
        Dim a4 As Integer
        Dim a5 As Integer
        Dim b As Integer
        Dim speed As Integer
        Do While n <= 10
            Randomize
            b = Int(10 * Rnd()) + 1
            speed = 2 * (Int(5 * Rnd()) + 1)
            If b = 1 Then
                Picture1.Left = Picture1.Left + speed
            ElseIf b = 3 Then
                Picture2.Left = Picture2.Left + speed
            ElseIf b = 5 Then
                Picture3.Left = Picture3.Left + speed
            ElseIf b = 7 Then
                Picture4.Left = Picture5.Left + speed
            ElseIf b = 9 Then
                Picture5.Left = Picture5.Left + speed
            End If
            n = n + 1
        Loop
    End Sub
当n大于10时循环就回停止,为什么这个程序能一直运行下去?请高手多多指教。
2005-09-01 23:52
loveve
Rank: 4
等 级:业余侠客
威 望:1
帖 子:452
专家分:213
注 册:2005-4-11
收藏
得分:0 
当n>10循环会停止,那是事实。可是你用的timer控件呢?你可没有在什么地方让它停下来啊,n又不是全局变量,每次timer它都会初始化,循环又开始了。

五月的雪
2005-09-02 12:32
Scnow
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2005-8-8
收藏
得分:0 
谢谢指教!
2005-09-03 02:02
快速回复:高手指教!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015980 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved