|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 |
Imports System Module Program Class elem Private _ope As String Private _lve As Integer Public Property Ope() As String Get Return _ope End Get Set(value As String) _ope = value End Set End Property Public Property Lve() As Integer Get Return _lve End Get Set(value As Integer) _lve = value End Set End Property End Class Sub Main(args As String()) Dim a As New elem a.Ope = "100" a.Lve = 0 Dim b As New elem With {.Ope = "+", .Lve = 1} Dim c As New elem With {.Ope = "*", .Lve = 2} Dim elemstack As New Stack Dim w As elem elemstack.Push(a) elemstack.Push(b) elemstack.Push(c) Do While elemstack.Count > 0 w = elemstack.Pop Console.Write(w.Ope + ", ") Console.WriteLine(w.Lve) Loop Console.WriteLine("Hello World!") End Sub End Module |
カテゴリー