PSEUDOCODE PRACTICE VISUAL BASIC SHEET

Write Algorithms of following given Visual basic codes using these stated examples

Example: 1

Dim Total as integer = 0

DECLARE TOTAL: INTEGER = 0

Example: 2

[Link](“Input Number”)

Number = [Link]

Number = INPUT “Input number ”

Or

INPUT “Input Number” , Number

Example: 3

[Link](“Your number is ” & Number)

OUTPUT “ Your number is ” , Number

Example: 4

VB Code

IF number > 0 then

[Link](“Positive”)
Else if number = 0 then
[Link](“Exactly zero”)
Else
[Link](“Negative”)
Algorithm

IF number > 0
then
OUTPUT “ Positive ”
Elseif number = 0
then
OUTPUT “ Exactly Zero ”
ELSE
OUTPUT = “Negative ”
ENDIF

NAVID SAQIB: +923334259883 1

 PSEUDOCODE PRACTICE VISUAL BASIC SHEET

Example: 5

Dim Price(0 to 4) as integer

DECLARE Price [1: 5] : INTEGER

Example: 6

VB

Select Case number

Case Is = “A”

Price = 20

Case Is = “B”

Price = 30

Case Else

[Link](“Input valid entry”)

END CASE

Algorithm

CASE OF number
“A”: Price = 20

“B”: Price = 30

OTHERWISE
OUTPUT = Input valid entry
ENDCASE

NAVID SAQIB: +923334259883 2

PSEUDOCODE PRACTICE VISUAL BASIC SHEET

VISUAL BASIC CODES ALGORITHMS

Dim name(0 To 1) as String
Dim price(0 To 1) As Integer
Dim category(0 To 1) As String
Dim qty(0 To 1) As Integer
Dim total(0 To 1) As Integer

For X = 0 To 1
[Link]("input product name")
name(X) = [Link]()
[Link]("enter quantity")
qty(X) = [Link]()
[Link]("There are only four catagories: A, B,
C, D")
[Link]("enter catagory")
category(X) = [Link]()

If category(X) = "A" Then

Price(X) = 150

ElseIf category(X) = "B” Then

price(X) = 250

ElseIf category(X) = "C" Then

price(X) = 350

ElseIf category(X) = "D" Then

Price = 450
End If
total(X) = price(X) * qty(X)
Next
For Y = 0 To 1
[Link]("Product name :" & name(Y) &
vbTab & "quantity :" & qty(Y) & vbTab & "Catagory is
:"&category(Y) & vbTab & "your total is " total (Y)
Next

NAVID SAQIB: +923334259883 3

PSEUDOCODE PRACTICE VISUAL BASIC SHEET

Dim data() As Integer = {34, 95, 12, 6}

Dim max As Integer = 0

For X = 0 To 3
If data(X) > max Then
max = data(X)

End If
Next
[Link]("max data is :" & max)

NAVID SAQIB: +923334259883 4

PSEUDOCODE PRACTICE VISUAL BASIC SHEET

Dim name(0 To 4) As String

Dim test1(0 To 4) As Integer
Dim test2(0 To 4) As Integer
Dim test3(0 To 4) As Integer
Dim avg(0 To 4) As Integer

For X = 0 To 4

[Link]("ïnput name")
name(X) = [Link]()
[Link]("input marks for test 1 ")
test1(X) = [Link]()
[Link]("input marks for test 2 ")
test2(X) = [Link]()
[Link]("input marks for test 3 ")
test3(X) = [Link]()
avg(X) = (test1(X) + test2(X) + test3(X)) / 3

Next

For Y = 0 To 4

[Link]("name of student :" & name(Y)

& " " & "test1 marks : " & test1(Y) & " " & "test2 marks
:" & test2(Y) & " " & "test3 marks :" & test3(Y) & " " & "
avgrage marks: " & avg(Y))
Next

NAVID SAQIB: +923334259883 5

PSEUDOCODE PRACTICE VISUAL BASIC SHEET

Dim price(0 To 1)
Dim qty(0 To 1) As Integer
Dim total(0 To 1) As Integer
Dim tvalue(0 To 1) As Integer
Dim gtotal(0 To 1) As Integer
Dim pname(0 To 1) As String

For X = 0 To 1

[Link]("input product name")

Pname(X) = [Link]()

[Link]("input quantity")
qty(X) = [Link]()

[Link]("input price")
price(X) = [Link]()

total(X) = qty(X) * price(X)

If total(X) < 150 Then

tvalue(X) = total(X) * 0.0

gtotal(X) = total(X) + tvalue(X)

ElseIf total(X) > 150 And total(X) < 500 Then

tvalue(X) = total(X) * 0.1

gtotal(X) = total(X) + tvalue(X)

ElseIf total(X) > 500 And total(X) < 1000 Then

tvalue(X) = total(X) * 0.16

gtotal(X) = total(X) + tvalue(X)

ElseIf total(X) > 1000 Then

tvalue(X) = total(X) * 0.2

gtotal(X) = total(X) + tvalue(X)

End If
Next

For Y = 0 To 1

NAVID SAQIB: +923334259883 6

PSEUDOCODE PRACTICE VISUAL BASIC SHEET

[Link]("product name is : " &

pname(Y) & " " & "quantity is :" & qty(Y) & " " & "tax
value is :" & tvalue(Y) & " " & "gross bill is :" & gtotal(Y))
Next

NAVID SAQIB: +923334259883 7

PSEUDOCODE PRACTICE VISUAL BASIC SHEET

Dim names(0 To 1) As String

Dim marks(0 To 1) As Integer

For X = 0 To 1

[Link]("Input name")
names(X) = [Link]()
[Link]("input marks")
marks(X) = [Link]()

Next

For Y = 0 To 1

[Link]("student names :" & names(Y) & "

" & " their marks are :" & marks(Y))
Next

NAVID SAQIB: +923334259883 8

PSEUDOCODE PRACTICE VISUAL BASIC SHEET

Dim product(0 To 1) As String

Dim qty(0 To 1) As Integer

Dim price(0 To 1) As Integer

Dim total(0 To 1) As Integer

For X = 0 To 1

[Link]("Input product name ")

product(X) = [Link]()

[Link]("enter price")
price(X) = [Link]()

[Link]("input quantity")
qty(X) = [Link]()

total(X) = qty(X) * price(X)

Next

For Y = 0 To 1
[Link]("Product name :" & product(Y)
& " " & " price is :" & price(Y) & " " & "quantity is :" &
qty(Y) & " " & "total is :" & total(Y))

Next
Dim noplate(0 To 1) As Integer
Dim speed(0 To 1) As Integer
Dim fine(0 To 1) As Integer

For X = 0 To 1

[Link]("input cars number plate :")

noplate(X) = [Link]()

[Link]("Input speed of the car:")

speed(X) = [Link]()

If speed(X) > 150 Then

fine(X) = 200

Else

NAVID SAQIB: +923334259883 9

PSEUDOCODE PRACTICE VISUAL BASIC SHEET

[Link]("You are driving on safe

speed")

End If

Next

For Y = 0 To 1
[Link]("Your car number is :" &
noplate(Y) & " " & "your speed was :" & speed(Y) & " " &
"You have to pay this amount as a fine :" & fine(Y))

Next
Dim names(0 To 9) As String

For X = 0 To 9

[Link]("Enter student names")

names(X) = [Link]()

Next

For Y = 0 To 9
[Link]("Students names are :" &
names(Y))

Next

NAVID SAQIB: +923334259883 10

PSEUDOCODE PRACTICE VISUAL BASIC SHEET

Dim grade(3, 4) As String

grade(0, 0) = "Student name"
grade(0, 1) = "Test 1 marks"
grade(0, 2) = "test 2 marks"
grade(0, 3) = "average marks"
grade(0, 4) = "Grade"

For R = 1 To 3

For c = 0 To 2

[Link]("input data at" & "(" & R & ","

& c & ")" & grade(0, c))
grade(R, c) = [Link]()

Next

Next

For A = 1 To 3

grade(A, 3) = (grade(A, 1) + grade(A, 2)) \ 2

If grade(A, 3) >= 90 Then
grade(A, 4) = "A*"
ElseIf grade(A, 3) < 90 And grade(A, 3) > 80 Then
grade(A, 4) = "A"
ElseIf grade(A, 3) < 80 And grade(A, 3) > 70 Then
grade(A, 4) = "B"
ElseIf grade(A, 3) < 70 And grade(A, 3) > 60 Then
grade(A, 4) = "C"
ElseIf grade(A, 3) < 60 And grade(A, 3) > 50 Then
grade(A, 4) = "D"
ElseIf grade(A, 3) < 50 And grade(A, 3) > 40 Then
grade(A, 4) = "E"
Else
grade(A, 4) = "FAIL"
End If
Next

For X = 0 To 3
For Y = 0 To 4

[Link](grade(X, Y) & vbTab)

Next
[Link](“”)

NAVID SAQIB: +923334259883 11

PSEUDOCODE PRACTICE VISUAL BASIC SHEET

Next

NAVID SAQIB: +923334259883 12

PSEUDOCODE PRACTICE VISUAL BASIC SHEET

Dim data(3, 4) As String

data(0, 0) = "id"
data(0, 1) = "Name"
data(0, 2) = "Price"
data(0, 3) = "Quantity"
data(0, 4) = "Total"

For R = 1 To 3

For c = 0 To 3

[Link]("input data at" & "(" & R & ","

& c & ")" & data(0, c))
data(R, c) = [Link]()

Next

Next

For A = 1 To 3
data(A, 4) = data(A, 2) * data(A, 3)

Next

For X = 0 To 3

For Y = 0 To 4

[Link](data(X, Y) & vbTab)

Next
[Link]("")
Next

NAVID SAQIB: +923334259883 13

PSEUDOCODE PRACTICE VISUAL BASIC SHEET

Dim product(0 To 4) As String

Dim qty(4) As Integer
Dim price(4) As Integer
Dim total(4) As Integer
Dim GT As Integer

For x = 0 To 4
'input
[Link]("Enter product name:")
product(x) = [Link]
[Link]("Enter {0} Qty:", product(x))
qty(x) = [Link]
'validation
While qty(x) < 0 Or qty(x) > 30
[Link]("Error : Wrong entry ")
[Link]("Re Enter {0} Qty:",
product(x))
qty(x) = [Link]
End While
[Link]("Enter {0} Price:", product(x))
price(x) = [Link]
'validation
While price(x) < 0 Or price(x) > 500
[Link]("Error : Wrong entry ")
[Link]("Re Enter {0} Price:",
product(x))
price(x) = [Link]
End While
'process
total(x) = qty(x) * price(x)
GT = GT + total(x)
Next
[Link]()
[Link]("sr no" & vbTab & "product" &
vbTab & "Qty" & vbTab & "Price" & vbTab & "Total")
For y = 0 To 4
[Link](y & vbTab & product(y) & vbTab
& qty(y) & vbTab & price(y) & vbTab & total(y))
Next
[Link]()
[Link]("Grand total is : " & GT)
[Link]()

NAVID SAQIB: +923334259883 14

PSEUDOCODE PRACTICE VISUAL BASIC SHEET

Dim num As Integer

Sub Main()
[Link]("Enter a Number : ")
num = [Link]()

If (num Mod 2 = 0) Then

[Link]("{0} is even", num)
Else
[Link]("{0} is odd", num)
End If
'This line is to hold the output screen
[Link]()
End Sub

Dim p, n, i As Integer
p=1
[Link]("Prime Numbers are : ")
For n = 1 To 100
For i = 2 To n - 1

If n Mod i = 0 Then
p=0
Exit For
Else
p=1
End If
Next

If p = 1 Then
[Link]("Prime numbers are : " & n)
End If
Next

NAVID SAQIB: +923334259883 15

PSEUDOCODE PRACTICE VISUAL BASIC SHEET

NAVID SAQIB: +923334259883 16