用VB画15个正方形

来源：百度知道 编辑：UC知道 时间：2024/06/10 19:43:28
如何用VB做一个小软件：
点按键1，就会出现15个同心的正方形，要用循环的语句。
就是for-next的语句

Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = Me.ScaleWidth / 2 '定义好位置，好在窗体的中央输出
y = Me.ScaleHeight / 2
Me.Cls
For i = 100 To 1500 Step 100
Line (x - i, y - i)-(x + i, y + i), , B
Next
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Cls
Randomize
For i = 1 To 15
Me.Line (X - i * 100, Y - i * 100)-(X + i * 100, Y + i * 100), QBColor(Fix(16 * Rnd)), B
Next
End Sub

运行后 鼠标任意点一下

我做了15个同心的正方形，前提是在窗体必须放置4个Line控件(Line1、Line2、Line3、Line4)，并且修改他们的Index 属性值为0。
Private Sub Command1_Click()
For I = 1 To 14
Load Line1(I)
Line1(I).Visible = True
Line1(I).Y1 = Line1(I - 1).Y1 - 200
Line1(I).Y2 = Line1(I - 1).Y2 - 200
Line1(I).X1 = Line1(I - 1).X1 - 200
Line1(I).X2 = Line1(I - 1).X2 + 200
Load Line4(I)
Line4(I).Visible = True
Line4(I).Y1 =