Question

vb用line方法在窗体上画五彩同心矩形

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

Private Sub Form_Click()
    ScaleTop = -ScaleHeight / 2
    ScaleLeft = -ScaleWidth / 2
    Dim i As Integer
    Randomize
    Dim stepCount As Integer
    stepCount = ScaleX(1, vbMillimeters, ScaleMode)
    DrawWidth = 2
    For i = stepCount * 40 To stepCount Step -stepCount
        Line (-i, -i)-(i, i), RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)), B 'F
    Next
End Sub