VB 编写程序 “数字金字塔”
打印如下：
1
1 2 1
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 5 4 3 2 1
问题点数：20、回复次数：3Top
1 楼colorslife（刚才进车里时,周围的人都看我在哭,就拍窗子让你看见我!）回复于 2006-03-20 10:47:46 得分 20
Option Explicit
Private Sub Command1_Click()
Dim i As Integer, k As Integer
Dim Lstr As String, Rstr As String, strtmp As String
For i = 1 To 6
For k = 1 To i
If k <> i Then
Lstr = Lstr & Space(1) & CStr(k)
Rstr = StrReverse(Lstr)
End If
Next
strtmp = Lstr & Space(1) & CStr(i) & Space(1) & Rstr
Print Space(12 - i * 2) & strtmp
Lstr = ""
Rstr = ""
Next
End Sub
Top
2 楼colorslife（刚才进车里时,周围的人都看我在哭,就拍窗子让你看见我!）回复于 2006-03-20 10:48:17 得分 0
Option Explicit
Private Sub Command1_Click()
Dim i As Integer, k As Integer
Dim Lstr As String, Rstr As String, strtmp As String
For i = 1 To 6
For k = 1 To i
If k <> i Then
Lstr = Lstr & Space(1) & CStr(k)
Rstr = StrReverse(Lstr)
End If
Next
strtmp = Lstr & Space(1) & CStr(i) & Space(1) & Rstr
Print Space(12 - i * 2) & strtmp
Lstr = ""
Rstr = ""
Next
End Sub
Top
3 楼aektnick（雨）回复于 2006-03-20 12:15:26 得分 0
Dim i As Integer, j As Integer, n As Integer
For i = 1 To 6
Debug.Print Space(24 - i * 3);
For j = 1 To i
Debug.Print j;
Next
For n = j - 2 To 1 Step -1
Debug.Print n;
Next
Debug.Print
Next
Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
