Practical No: 07
Name :Saad Momin Enrolment:2205690315
Code:01
Module Module1
Sub Main()
Console.Write("The number start from 1 to 10" & vbCrLf)
For i As Integer = 1 To 10 Step 1
Console.WriteLine("Number is {0}", i)
Next
Console.WriteLine("Press any key to exit...")
Console.ReadKey()
End Sub
End Module
Output:
Code: 02
Module Module1
Sub Main()
Dim An_array() As Integer = {1, 2, 3, 4, 5}
Dim i As Integer
For Each i In An_array
Console.WriteLine("Value of i is {0}", i)
Next
Console.WriteLine("Press any Key to Exit...")
Console.ReadLine()
End Sub
End Module
Output:
Code:03
Module Module1
Sub Main()
Console.Write("The number start from 1 to 10" & vbCrLf)
For i As Integer = 3.5 To 8.5 Step 0.5
Console.WriteLine("Number is {0}", i)
Next
Console.WriteLine("Press any key to exit...")
Console.ReadKey()
End Sub
End Module
Output:
Code:04
Module Module1
Sub Main()
Dim i As Integer
Console.WriteLine("Armstrong Numbers between 1 to 500")
For i = 1 To 500 Step 1
Dim sum, num, digit As Integer
sum = 0
num = i
While (num > 0)
digit = num Mod 10
sum += (digit * digit * digit)
num = num \ 10
End While
If (sum = i) Then
Console.WriteLine(i)
End If
Next
Console.ReadLine()
End Sub
End Module
Output:
