高校问答严重电击伤图片:如何用VB做这个？
来源：百度文库 编辑：高校问答 时间：2024/05/05 20:40:44
画10个颜色随机的正方形 ，正方形的中心点相同，相邻的两个正方形的边长相差为100；正方形中心点的位置由用户在窗体上单击鼠标确定。
把如何编程告诉我，谢谢~^-^
把如何编程告诉我，谢谢~^-^
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Me.Cls //每次刷新form
If Me.Width > Me.Height Then
HH = Me.Height
Else
HH = Me.Width
End If
HH = (((HH - 900) + 1) * Rnd) / 2
Me.FillStyle = 1
For i = 0 To 9
r = Rnd * 255
g = Rnd * 255
b = Rnd * 255
Me.FillColor = RGB(r, g, b)
Line (X - HH - i * 50, Y - HH - i * 50)-(X + HH + i * 50, Y + HH + i * 50), RGB(r, g, b), B
Next i
End Sub