杭州交通信息网绣眼饲料配方:vb的一个问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 00:38:55
用vb编程
1
1 2 3
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
..................................
1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1
1
1 2 3
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
..................................
1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1
1
1 2 3
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
..................................
1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1
1
1 2 3
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
..................................
1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1
Private Sub Command1_Click()
Dim i As Long, j As Long
For i = 1 To 9
For j = 1 To i
Print j;
Next j
For j = i - 1 To 1 Step -1
Print j;
Next j
Print
Next i
End Sub
这不是扯谈嘛!!VB不是干这个的,而且做这个对于学习VB也没有帮助.是不是你觉得学习C的时候都先来一个这呀...呵呵,多看点书,啊
For i = 1 To 9
t1 = StrReverse(t2): t2 = t2 & Str(i) & " ": Print t2 & t1
Next
'就一循环
用两层循环可以解决。