Stack FILO
まずはこちらを実行してください。
逆さ言葉になっております。
回文ではないですが。
FILOとは
first in last out のことです。
最後からアウトプットします。
ソース
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim Stack As New Stack
Stack.Push(“!”)
Stack.Push(“だ”)
Stack.Push(“い”)
Stack.Push(“ら”)
Stack.Push(“き”)
Stack.Push(“い”)
Stack.Push(“だ”)
Stack.Push(“て”)
Stack.Push(“ん”)
Stack.Push(“な”)
Stack.Push(“ス”)
Stack.Push(“マ”)
Stack.Push(“ス”)
Stack.Push(“リ”)
Stack.Push(“ク”)
For i = 0 To Stack.Count – 1
MsgBox(Stack.Pop())
Next
End Sub
End Class
実行結果は
ク
リ
ス
マ
ス
な
ん
て
だ
い
き
ら
い
だ
!
と表示されます。
今日はクリスマス私は何をしているんでしょうかw
ノーダメージで過ごすため
今日は家を出ていません(キリッ
宣言
構文
Dim 変数名 As New Stack
データの追加
構文
変数名.Push(データ)
データの取り出し
構文
変数名.Pop