VB编程问题!关于“礼花定放”
Private Sub Form_click() Dim i, x1, y1 As Integer Form1.Scale (-100, 100)-(100, -100) x1 = CurrentX y1 = CurrentY For i = 0 To 60 ForeColor = QBColor(i Mod 16) Line (x1, y1)-Step(Rnd * 30 * Sgn(Rnd - 0.5), Rnd * 30 * Sgn(Rnd - 0.5)) ... Private Sub Form_click()
Dim i, x1, y1 As Integer
Form1.Scale (-100, 100)-(100, -100)
x1 = CurrentX
y1 = CurrentY
For i = 0 To 60
ForeColor = QBColor(i Mod 16)
Line (x1, y1)-Step(Rnd * 30 * Sgn(Rnd - 0.5), Rnd * 30 * Sgn(Rnd - 0.5))
Next i
End Sub
其中Line (x1, y1)-Step(Rnd * 30 * Sgn(Rnd - 0.5), Rnd * 30 * Sgn(Rnd - 0.5))是什么意思啊?
还有Sgn(rnd - 0.5)是什么意思? 展开
画线的命令,在上次画线的终点开始画新线,步长 是 横坐标增加:Rnd * 30 * Sgn(Rnd - 0.5)纵坐标增加:Rnd * 30 * Sgn(Rnd - 0.5)
答:8月2日的礼花是试放,那天电视上说是25%,可能在奥运核心区附近可以看到吧。 8月8日的礼花是全市性的,从永定门沿中轴路到奥运核心区沿途有许多燃放点,附近都可以...详情>>
问:VB与Matlab混合编程时,如何让matlab界面隐藏
答:在Api浏览器中找findwindow()函数和showwindow()函数,然后用 dim a as long a= Findwindow(vbnullstr...详情>>
答:最基本的是Winsock控件。 余下可能有的包括:DHTML Edit Control for IE5,Microsoft HTML Object Librar...详情>>