| .BZU. | 21-12-2009 02:25 AM |
VB Programs by Ahmad Mushtaq
1 Attachment(s) Code:
Factorial Program
Module Module1
Sub Main()
Dim input As Integer
Dim result As Double
Console.WriteLine("Please input your value for factorial")
input = Console.ReadLine
result = calculateFactorial(input)
Console.WriteLine(result)
Console.Read()
End Sub
Function calculateFactorial(ByVal number As Integer) As Double
Dim factorial As Double = 1.0
For i As Double = 1.0 To number
factorial = factorial * i
Next
Return factorial
End Function
End Module
Calculating power of any given number
Module Module1
Sub Main()
Dim number, power As Integer
Console.WriteLine("Please input the number")
number = Console.ReadLine()
Console.WriteLine("Please input the power")
power = Console.ReadLine()
Console.WriteLine("The result of {0}^{1} is " & number ^ power, number, power)
Console.ReadLine()
End Sub
End Module
Determine if a number is even or odd:
Module Module1
Sub Main()
Dim myNum As Long
Console.WriteLine("Please insert the value to be checked: ")
myNum = Console.ReadLine
If myNum Mod 2 Then
Console.WriteLine("You've entered an odd number.")
Else
Console.WriteLine("You've entered an even number.")
End If
Console.Read()
End Sub
End Module
Find Max number among 3 numbers:
Module Module1
Sub Main()
Dim max, num1, num2, num3 As Integer
Console.WriteLine("Please insert the first number:")
num1 = Console.ReadLine()
Console.WriteLine("Please insert the second number:")
num2 = Console.ReadLine()
Console.WriteLine("Please insert the third number:")
num3 = Console.ReadLine()
If num1 > num2 And num1 > num3 Then
max = num1
ElseIf num2 > num1 And num2 > num3 Then
max = num2
ElseIf num3 > num1 And num3 > num2 Then
max = num3
End If
Console.WriteLine("The maximum number is {0}", max)
Console.ReadLine()
End Sub
End Module
Find Min number among 3 numbers:
Module Module1
Sub Main()
Dim min, num1, num2, num3 As Integer
Console.WriteLine("Please insert the first number:")
num1 = Console.ReadLine()
Console.WriteLine("Please insert the second number:")
num2 = Console.ReadLine()
Console.WriteLine("Please insert the third number:")
num3 = Console.ReadLine()
If num1 < num2 And num1 < num3 Then
min = num1
ElseIf num2 < num1 And num2 < num3 Then
min = num2
ElseIf num3 < num1 And num3 < num2 Then
min = num3
End If
Console.WriteLine("The minimum number is {0}", min)
Console.ReadLine()
End Sub
End Module
Find average of 5 numbers
Module Module1
Sub Main()
Dim n1, n2, n3, n4, n5 As Integer
Dim avg As Double
Console.WriteLine("Please input first number:")
n1 = Console.ReadLine()
Console.WriteLine("Please input second number:")
n2 = Console.ReadLine()
Console.WriteLine("Please input third number:")
n3 = Console.ReadLine()
Console.WriteLine("Please input fourth number:")
n4 = Console.ReadLine()
Console.WriteLine("Please input fifth number:")
n5 = Console.ReadLine()
avg = (n1 + n2 + n3 + n4 + n5) / 5
Console.WriteLine("The average is {0}", avg)
Console.ReadLine()
End Sub
End Module
Input marks and find grades
Module Module1
Sub Main()
Dim total, s1, s2, s3, s4, s5, s6 As Integer
Dim grade As String
Dim percent As Double
Console.WriteLine("Please input marks for each of the six subjects. Max marks=100")
Do
Console.WriteLine("For subject 1:")
s1 = Console.ReadLine
Loop While s1 > 100
Do
Console.WriteLine("For subject 2:")
s2 = Console.ReadLine
Loop While s2 > 100
Do
Console.WriteLine("For subject 3:")
s3 = Console.ReadLine
Loop While s3 > 100
Do
Console.WriteLine("For subject 4:")
s4 = Console.ReadLine
Loop While s4 > 100
Do
Console.WriteLine("For subject 5:")
s5 = Console.ReadLine
Loop While s5 > 100
Do
Console.WriteLine("For subject 6:")
s6 = Console.ReadLine
Loop While s6 > 100
total = s1 + s2 + s3 + s4 + s5 + s6
percent = (total / 600) * 100
If percent >= 90 Then
grade = "A+"
ElseIf percent >= 80 And percent < 90 Then
grade = "A"
ElseIf percent >= 70 And percent < 80 Then
grade = "B"
ElseIf percent >= 60 And percent < 70 Then
grade = "C"
ElseIf percent >= 50 And percent < 60 Then
grade = "D"
ElseIf percent < 50 Then
grade = "F"
End If
Console.WriteLine("Percentage = {0}%", percent)
Console.WriteLine("The grade is {0}", grade)
Console.ReadLine()
End Sub
End Module
Determine the given number is a prime number or composite number
Module Module1
Sub Main()
Dim i, num, flag As Integer
Console.WriteLine("Please input your value")
num = Console.ReadLine
flag = 0
For i = 2 To num / 2
If num Mod i = 0 Then
flag = 1
End If
Next
If flag = 0 Then
Console.WriteLine("The number {0} is a prime number", num)
Else
Console.WriteLine("The number {0} is a composite number", num)
End If
Console.ReadLine()
End Sub
End Module
|
