SKY外语计算机学习

标题: VB_杨晖三角和蛇形矩阵 [打印本页]
作者: fieldmax    时间: 2012-4-28 21:33
标题: VB_杨晖三角和蛇形矩阵
本帖最后由 fieldmax 于 2012-4-28 22:17 编辑

  2. Public Enum DirectionEnum
  3.     ToRight = 0
  4.     ToDown = 1
  5. End Enum

  7. Sub zMatrix(X As Long, Y As Long, Optional Direction As DirectionEnum = 0)
  8. 蛇形矩阵

  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

  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

  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    时间: 2012-4-29 05:24
本帖最后由 sky_yx 于 2015-12-30 14:23 编辑

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





欢迎光临 SKY外语计算机学习 (http://join.skywj.com/) Powered by Discuz! X2.5