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)是什么意思？ 展开
答：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...详情>>
