- 最後登錄
- 2024-1-11
- 在線時間
- 17 小時
- 註冊時間
- 2006-4-5
- 閱讀權限
- 30
- 精華
- 0
- UID
- 161318
- 帖子
- 749
- 積分
- 1392 點
- 潛水值
- 15632 米
| 若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。 - Dim A() As Integer, B() As Integer
- Dim VarCount As Integer
- Dim VarString As String
- Private Sub Form_Load()
- Form1.AutoRedraw = True
- VarCount = 10 '直角三角型高的值
- ReDim A(VarCount + 1) As Integer
- ReDim B(VarCount + 1) As Integer
- A(0) = 0
- A(1) = 1
- A(0) = 0
- Print "1"
- For i = 1 To VarCount
- B(0) = 0
- VarString = ""
- For j = 0 To i
- B(j + 1) = Right(A(j) + A(j + 1), 1)
- VarString = VarString & B(j + 1)
- Next
- Print VarString
- B(VarCount + 1) = 0
- For k = 0 To VarCount + 1
- A(k) = B(k)
- Next
- Next
- End Sub
複製代碼 樓上提供的好像是C++版的
我貼上VB6版的
... |
|