2404020
Ano: 2010
Disciplina: TI - Desenvolvimento de Sistemas
Banca: CESPE / CEBRASPE
Orgão: CEF
Disciplina: TI - Desenvolvimento de Sistemas
Banca: CESPE / CEBRASPE
Orgão: CEF
Provas:
1 Module Module1
2 Sub Main()
3 myQuequeue()
4 myStack()
5 Console.ReadLine()
6 End Sub
7 Private Sub myQuequeue()
8 Dim theQ AS New Queue
9 Dim dStr, frmstrArr() As String
10 Dim i _
11 frmstrArr = FillArr()
12 For i = 0 To 9
13 theQ.Enqueue(frmstrArr(i) + “queue”)
14 Next
15 For i = 0 To 9
16 dStr = theQ.Dequeue()
17 Console.WriteLine(dStr)
18 Next
19 End Sub
20 Private Sub myStack()
21 Dim theStack As New Stack
22 Dim dStr, fStr() AS String
23 Dim i As Integer
24 fStr = FillArr()
25 For i = 0 To 9
26 theStack.Push(fStr(i) + “ stack”)
27 Next
28 For i = 0 To 9
29 dStr = theStack.Pop()
30 Console.WriteLine(dStr)
31 Next
32 End Sub
33 Private Function FillArr()
34 Dim strArr(25) As String
35 strArr = New String() {“a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”}
36 Return strArr
37 End Function
38 end module
Considerando o código acima, em Visual Basic, assinale a opção correta.
