VB 中 n个五角星 并随机闪烁 的代码是什么

来源：百度知道 编辑：UC知道 时间：2024/06/14 11:38:00
VB 中 20来个五角星 随机分布 并让他们随机变换颜色 和闪烁！！
程序代码是 什么 ？？！ 请高手们 告诉小弟一下 代码！！ 谢谢了 ！

哈哈。这个程序有意思。你做出来的话发给我看看 

不过感觉不太难。。 

Private Sub Form_Click()

    he = Me.Height

    we = Me.Width

    lhe = Label1(0).Height

    lwe = Label1(0).Width

    hetotal = he - lhe

    wetotal = we - lwe

    Randomize Time

    For i = 0 To 10

        rndx = Int((hetotal - lhe + 1) * Rnd + lhe)

        rndy = Int((wetotal - lwe + 1) * Rnd + lwe)

        Label1(i).Left = rndx

   &nb