当前位置: 开源爱好者 » 编程教程 » VB教程 » 正文

VB 随机产生坐标值

VB 随机产生50个坐标值,为了大家能看到坐标在哪,每一个坐标点用一颗小星星来表示,在窗体上每单击一下按钮,就会生成50个小星星,代表50个随机的坐标位置,如下图示:

 VB随机生成坐标点

具体生成代码其实很简单,大家可见以下代码:

Private Sub Form_Click()
 Form_Load    '调用事件过程再次打印50个星
End Sub

Private Sub Form_Load()
   Dim i As Integer
    Show
    Randomize   '初始化
    Form1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)   '随机颜色
    For i = 1 To 50    '每次加载50个星
        CurrentX = Form1.Width * Rnd   '设置当前坐标
        CurrentY = Form1.Height * Rnd   '随机产生坐标值
        Print "☆"
    Next i
End Sub
相关内容:

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图