[收藏本方案]

俄罗斯方块--vb6实现[22]

[入库：2006年2月23日] [更新：2007年3月24日]

本文简介：
首页 上页 下页 尾页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34] [35] [36] [37]

        Randomize       '在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子。

        gFKTypeX = ((Int(Rnd * 10)) Mod 6) + 1                                '当前的方块类型

        gFKTypeY = ((Int(Rnd * 10)) Mod 4) + 1

        gFKTypePicType = ((Int(Rnd * 10)) Mod 4) + 1

 

 

    Dim FKTypeX

    Dim FKTypeY

    Dim FKtypePicType

    Dim CanMovNext

    Dim tem

    Dim temX

    Dim temY

    Dim TTT   '实现想不出来什么好名字了

首页 上页 下页 尾页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34] [35] [36] [37]
本文关键：俄罗斯方块--vb6实现
　　相关方案
Google
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0（或更高版本的 IE浏览器）

go top