小丁
Lv 5
小丁 發問時間: 電腦與網際網路程式設計 · 1 0 年前

如何用VB寫陣列?

如何用VB寫陣列?

寫出push跟pop

用一個文字方塊

放一個數

或拿出一個數

3 個解答

評分
  • 1 0 年前
    最佳解答

    Const Max = 50 '堆疊容量,可自行調整。

    Dim Stack(Max) As Integer, SP As Integer

    Function Push(ByVal x As Integer) As Boolean

    If SP < Max Then

    SP = SP + 1

    Stack(SP) = x

    Push = True

    Else

    Push = False

    End If

    End Function

    Function Pop(ByRef x As Integer) As Boolean

    If SP > 0 Then

    x = Stack(SP)

    SP = SP - 1

    Pop = True

    Else

    Pop = False

    End If

    End Function

    Sub main()

    SP = 0

    '

    '這裡請自己加入一些文字方塊的測試,應該會吧!

    '

    'Push的用法:

    ' 先把要 Push的值存入 x, 然後 Push(x) 即可, 成功傳回 True, 若堆疊陣列已滿則傳回 False。

    ' 用例:If not Push(x) Then MsgBox("堆疊已滿!")

    '

    'Pop 的用法:

    ' Pop(x), Pop出來的值會存入x, 成功傳回 True, 若堆疊陣列是空的則傳回 False。

    ' 用例:If not Pop(x) Then MsgBox("堆疊是空的!")

    End Sub

  • 1 0 年前

    dim push as new arraylist

    dim pop as new arraylist

    這樣宣告ARRAY裡面長度就是看你輸入幾次就多大

    寫法↓

    push.writeline("...")

    大概這樣

    參考資料: 自己
  • 1 0 年前

    有聽妹有懂.....

還有問題?馬上發問,尋求解答。