VB_杨晖三角和蛇形矩阵

fieldmax

1. 
   
2. Public Enum DirectionEnum
   
3.     ToRight = 0
   
4.     ToDown = 1
   
5. End Enum
   
6. 
   
7. Sub zMatrix(X As Long, Y As Long, Optional Direction As DirectionEnum = 0)
   
8. 蛇形矩阵
   
9. 
   
10. Dim iX As Long
    
11. Dim iY As Long
    
12. Dim n As Long
    
13. Dim DT As DirectionEnum
    
14. ReDim mat(1 To X, 1 To Y) As Long
    
15. DT = Direction
    
16. iX = 1
    
17. iY = 1
    
18. n = 1
    
19. mat(1, 1) = 1
    
20. Do While n < X * Y
    
21.     n = n + 1
    
22.     If DT = 0 And (iY = 1 Or iX = X) Then
    
23.         If iX < X Then
    
24.             iX = iX + 1
    
25.         Else
    
26.             iY = iY + 1
    
27.         End If
    
28.         DT = 1
    
29.     ElseIf DT = 1 And (iX = 1 Or iY = Y) Then
    
30.         If iY < Y Then
    
31.             iY = iY + 1
    
32.         Else
    
33.             iX = iX + 1
    
34.         End If
    
35.         DT = 0
    
36.     ElseIf DT = 0 Then
    
37.         iX = iX + 1
    
38.         iY = iY - 1
    
39.     ElseIf DT = 1 Then
    
40.         iX = iX - 1
    
41.         iY = iY + 1
    
42.     End If
    
43.     mat(iX, iY) = n
    
44. Loop
    
45. 
    
46. '打印部分
    
47. Dim TempTx As String
    
48. For iY = 1 To Y
    
49.     For iX = 1 To X
    
50.         If mat(iX, iY) >= 1000 Then
    
51.             TempTx = TempTx & " " & mat(iX, iY)
    
52.         ElseIf mat(iX, iY) >= 100 Then
    
53.             TempTx = TempTx & "  " & mat(iX, iY)
    
54.         ElseIf mat(iX, iY) >= 10 Then
    
55.             TempTx = TempTx & "   " & mat(iX, iY)
    
56.         Else
    
57.             TempTx = TempTx & "    " & mat(iX, iY)
    
58.         End If
    
59.     Next
    
60.     Print TempTx & vbCrLf
    
61.     TempTx = ""
    
62. Next
    
63. End Sub
    
64. 
    
65. Sub yhSj(C As Integer)
    
66. '杨晖三角
    
67. ReDim Tx(C, C) As Long
    
68. Dim TempTe As String
    
69. Dim iX As Integer
    
70. Dim iY As Integer
    
71. Tx(0, 0) = 1
    
72.     For iY = 1 To C
    
73.         For iX = 1 To iY
    
74.             Tx(iX, iY) = Tx(iX - 1, iY - 1) + Tx(iX, iY - 1)
    
75.             If Tx(iX, iY) >= 100 Then
    
76.                 TempTx = TempTx & Tx(iX, iY) & " "
    
77.             ElseIf Tx(iX, iY) >= 10 Then
    
78.                 TempTx = TempTx & Tx(iX, iY) & "  "
    
79.             Else
    
80.                 TempTx = TempTx & Tx(iX, iY) & "   "
    
81.             End If
    
82.         Next
    
83.         Print TempTx
    
84.         TempTx = ""
    
85.     Next
    
86. End Sub
    

复制代码

itle

好久没用VB，再次看到这熟悉的代码，很有感触啊