向vb高手跪求

来源：百度知道 编辑：UC知道 时间：2024/06/14 06:02:05
Private Sub Form_Click()
Dim n, a(5, 5) As Integer
n = 0
For i = 0 To 3
For j = i To (4 - i)
n = n + 1
a(i, j) = n
Next
For j = i + 1 To (4 - i)
n = n + 1
a(j, 4 - i) = n
Next
For j = 3 - i To i Step -1
n = n + 1
a(4 - i, j) = n
Next
For j = 3 - i To i + 1 Step -1
n = n + 1
a(j, i) = n
Next
Next

For i = 0 To 4
Print
Print
Print
For j = 0 To 4
Print " " & a(i, j) & " ";
Next
Print
Print
Print

Next
Scale (0, 500)-(1000, -500)
Line (0, 300)-(1000, 300), RGB(0, 0, 0)
Line (0, 100)-(1000, 100), RGB(0, 0, 0)
Line (0, -100)-(1000, -100), RGB(0, 0, 0)
Line (0, -3

Private Sub Form_Click()
Dim n, a(5, 5) As Integer, i As Integer
Scale (0, 0)-(1000, 1000)
For i = 0 To 1000 Step 200
Line (0, i)-(1000, i), RGB(0, 0, 0) '竖线
Line (i, 0)-(i, 1000), RGB(0, 0, 0) '横线
Next i

n = 0
For i = 0 To 3
For j = i To (4 - i)
n = n + 1
a(i, j) = n
Next
For j = i + 1 To (4 - i)
n = n + 1
a(j, 4 - i) = n
Next
For j = 3 - i To i Step -1
n = n + 1
a(4 - i, j) = n
Next
For j = 3 - i To i + 1 Step -1
n = n + 1
a(j, i) = n
Next
Next

For i = 0 To 4
For j = 0 To 4
CurrentX = j * 200 + 100
CurrentY = i * 200 + 100
Print a(i, j)
Next
Next

End Sub

Private Sub Form_Load()
AutoRedraw = True
End Sub

可以利用一个循环语句对25个数字的坐标进行定位啊
楼上的代码很好

动态创建Label即可

不要print,用lable数组,直接把界面做好,然后用timer控制隔一会儿显示一个;

不用Timer可以用SLEEP