用vb在窗体上打印10*10蛇形方阵

来源：百度知道 编辑：UC知道 时间：2024/05/17 00:48:06
用vb在窗体上打印10*10蛇形方阵就像这样的
1 2 3 4 5 6 7 8 9 10
20 19 18 17 16 15 14 13 12 11
21 22 23 24 25 26 27 28 29 30
40 39 38 37 36 35 34 33 32 31
41 42 43 44 45 46 47 48 49 50
.......
100 99 98 97 96 95 94 93 92 91 90
麻烦各位高手 给个答案啊 用vb写哦

Private Sub Command1_Click()
Dim i%, j%
For i = 1 To 100
j = IIf((i - 1) \ 10 Mod 2 = 0, i, i + (9 - ((i - 1) Mod 10) * 2))
Print Format(j, "@@@@");
If i Mod 10 = 0 Then Print
Next
End Sub

Private Sub Command1_Click()

Dim s As String
Dim i As Integer
Dim j As Integer
Dim t As Integer
t = 1

For i = 1 To 100

If (t Mod 2) = 0 Then
s = s & " " & j
j = j - 1
Else
s = s & " " & i
End If

If (i Mod 10) = 0 Then
s = s & vbCrLf
j = i + 10
t = t + 1
End If

Next

MsgBox s
End Sub

可以请教一个问题吗?
为什么要弄这样的打印效果出来?
有什么用处?
我看了很多VB的书,里面几乎都有一整章介绍这个东西.
感觉完全没有用处的啊.
我说的不是针对楼主哈

楼上的《柳絮儿飞舞》，看来你的VB已经是高手中的高手了。<