Option Explicit
Public inf As Integer
Public nextcell As myst
Option Explicit
Dim mtop As myst
Public Sub pushStack(str1 As String)
'занесение данных в стек
Dim zveno As New myst
zveno.inf = Val(str1)
Set zveno.nextcell = mtop
Set mtop = zveno
End Sub
Public Function popStack() As Single
'извлечение данных из стека
'Dim mtop1 As myst
' mtop1 = mtop
popStack = mtop.inf
Set mtop = mtop.nextcell
End Function
Public Sub ShowStack()
Dim a As Integer
'процедура отображения содержимого стека
Dim cell As myst
Set cell = mtop
Form1.Print
Form1.Print "Содержимое стека: ";
Do While Not (cell Is Nothing)
' обход очереди
Form1.Print cell.inf;
Set cell = cell.nextcell
Loop
End Sub
Private Sub Command1_Click()
Dim cell As myst
Dim S, s1, s2 As String
Dim k, i, l1 As Byte
S = InputBox("Исходные данные", "Заполнение стека", "")
Print "Исходные данные : ", S
s1 = S + " "
k = InStr(s1, " ")
Do While k <> 0
s2 = Trim(Left(s1, k))
pushStack (s2)
s1 = Right(s1, Len(s1) - k)
k = InStr(s1, " ")
Loop
End Sub
Private Sub Command2_Click()
ShowStack
End Sub