15-12-2009, 11:05 PM
|
 |
Innocent Baby
BSIT Professional
| |
Join Date: Sep 2007 Location: near Govt College of Science Multan Pakistan
Posts: 9,683
Thanks: 2,337
Thanked 2,223 Times in 1,816 Posts
Contact Number: Removed Program / Discipline: BSIT Class Roll Number: 07-15 Time Spent Online: 3 Months 3 Weeks 5 Days 3 Hours 44 Minutes 43 Seconds | |
 Find Sum of Composite Numbers in an Array VB Code (By Sheraz)
|  | | | Module Module1 Sub Main() Dim ar As Integer() Dim flag As Integer Dim sum As Integer = 0 ar = New Integer() {15, 8, 1, 6, 34, 7, 5, 342, 4, 9} For i = 0 To ar.GetUpperBound(0) flag = 0 For j = 2 To ar(i) / 2 'Divide by 2 because of Mathematics Rule If ar(i) Mod j = 0 Then flag = 1 Exit For 'To make Program more efficient (It is Optional) End If Next If flag = 1 Then sum = sum + ar(i) ' or sum += ar(i) End If Next Console.WriteLine("The sum of composite numbers is: {0}", sum) Console.ReadLine() End Sub End Module | | | | | | |
Don't cry because it's over, smile because it happened 
Similar Threads 
.BZU.
Linear Mode
