VBA使用的Randomize和DoEvents
摘要：
Randomizeprivate function getInt() dim n,m as integer Randomize n=1m=3 getInt=Int((m+1-n)*rnd + n)end functionDoEventsdim c as Booleanprivate sub gameMain() while c Do Until z iNew iNew = getnt loop z = iNew Image1.Picture = LoadPicture(path) doEvents Wendend subprivate sub d... 阅读全文
posted @ 2013-12-21 09:48 liangx85 阅读(1116) 评论(0) 推荐(0) 编辑
