Question 4
Write the output of the following VB statements:
(a)
Sub Main()
Dim x As Integer = 10, y As Integer = 5
Select Case x
Case 10
Console.WriteLine("X Value: 10")
Select Case y
Case 5
Console.WriteLine("Nested Switch Value: 5")
Select Case y - 2
Case 3
Console.WriteLine("Another Nested Switch Value: 3")
End Select
End Select
Case 15
Console.WriteLine("X Value: 15")
Case 20
Console.WriteLine("X Value: 20")
Case Else
Console.WriteLine("Not Known")
End Select
Console.WriteLine("Press Enter Key to Exit..")
Console.ReadLine()
End Sub
(3 marks)
(b)
Module Program
Sub Main(args As String())
Dim n(10) As Integer
Dim i, j As Integer
For i = 0 To 10
n(i) = i + 100
Next i
For j = 0 To 10
If (j \u2260 0) And (n(j) Mod 4 = 0) Then
Console.WriteLine("Element({0}) = {1}", j, n(j))
End If
Next j
Console.ReadKey()
End Sub
End Module
(3 marks)
