Scribd
Upload
6 views

VBA Solved Jbsheets

Computer software industry and the next business

Uploaded by

suyashkaranje74
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
6 views

VBA Solved Jbsheets

Computer software industry and the next business

Uploaded by

suyashkaranje74
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 11

Job Sheet No.

Aim: Working with numeric data types -I


Objectives:
1) Write and execute a simple program for VBA
Procedure:
Task 1: display integer variable.

Task 2: perform addition, subtraction, multiplication on variables.

Task 3: Perform division operation on variables

Sub printval()

Dim x, y As Integer

x = 15

y=5

Debug.Print "value of x=" & x

Debug.Print "value of y=" & y

Debug.Print "addition="; (x + y)

Debug.Print "subtraction="; (x - y)

Debug.Print "multipication="; (x * y)

Debug.Print "division="; (x / y)

End Sub

OUTPUT:
value of x=15
value of y=5
addition= 20
subtraction= 10
multipication= 75
division= 3

Job Sheet No. 2


Aim: Working with numeric data types -II
Objectives:
1) Create and use floating point variables
2) Use and compare single and double data types variables
3) Use the byte and Boolean data type variables
Procedure:
Task 1: create and use the floating point variables

Sub testfloat( )
Dim x As Single
Dim y As Single
x = 3.143
y = 22 / 7
Debug.Print "value of x is:" & x
Debug.Print "value of y is:" & y
End Sub
OUTPUT:

value of x is:3.143
value of y is:3.142857

Task 2: Use and compare nature of single and double data type variables

Sub test2( )
Dim a As Single
Dim b As Single
Dim c As Double
a = 3.143
b = 22 / 7
Debug.Print "value of single type variable a is:" & a
Debug.Print "value of single type variable b is:" & b
c = 22 / 7
Debug.Print "value of double type variable c is:" & c
End Sub
OUTPUT:

value of single type variable a is:3.143

value of single type variable b is:3.142857

value of double type variable c is:3.14285714285714

Task 3: Use the byte data type variables

Sub testbyte( )
Dim x As Byte
x = 145
Debug.Print "value of x is:" & x
End Sub
OUTPUT:

value of x is:145

Now, assign an out of range value to x by changing the value of x to 256 and
check the result.

Sub test1()
Dim a As Byte
x = 256
Debug.Print "value of x=" & x
End Sub
OUTPUT:

value of x=256
TASK 4: Use Boolean type variables

Sub testbool( )
Dim x As Boolean
Debug.Print "The default value of Boolean x is:" & x
x=0
Debug.Print "Now the value of Boolean x is:" & x
x = False
Debug.Print "once again the value of Boolean x is:" & x
x=1
Debug.Print "now again the value of Boolean x is:" & x
End Sub
OUTPUT:

The default value of Boolean x is:False

Now the value of Boolean x is:False

once again the value of Boolean x is:False

now again the value of Boolean x is:True

Job Sheet No. 3


Aim: Working with string, currency, date and variant data type
Objectives:
1) Create and use string data type variables
2) Concatenate string
3) Use the currency data type variables
4) Use the variant data type variables
Procedure:
Task 1: create and use the string data type variable

Sub test1()
Dim string1 As String
string1 = "Namasthe"
Debug.Print string1
End Sub
OUTPUT:

Namasthe

TASK 2: Concatenate strings


Sub teststring()
Dim fname As String
Dim lname As String
fname = "Vidya"
lname = "Raut"
Debug.Print "First name is:" & fname
Debug.Print "Last name is:" & lname
Debug.Print "Full name is:" & fname & " " & lname
End Sub
OUTPUT:

First name is:Vidya

Last name is:Raut

Full name is:Vidya Raut

TASK3: Use the currency data type


Sub test_cur()
Dim months As Integer
Dim profit, total_profit As Currency
months = 12
profit = 10000
Debug.Print "Profit per month is:" & profit
Debug.Print "Annual profit is:" & profit * months
End Sub
OUTPUT:

Profit per month is:10000

Annual profit is:120000


TASK4 : Use the Date type of data
Sub test_date()
Dim birthday As Date
birthday = #1/1/1990#
Debug.Print "My birthday is:" & birthday
End Sub
OUTPUT:

My birthday is:1/1/1990

TASK 5:Use the variant data type


Sub test_variant()
Dim name As Variant
Dim joiningday As Variant
Dim salary As Variant
name = "sachin"
joiningday = #1/1/2014#
salary = 10000
Debug.Print "Name is:" & name
Debug.Print "Joining date is:" & joiningday
Debug.Print "Salary is:" & salary
End Sub
OUTPUT:

Name is:sachin

Joining date is:1/1/2014

Salary is:10000

My birthday is:1/1/1990

Job Sheet No. 4


Aim: Supplying user input to VBA programs
Objectives:
1) Supply inputs to VBA program through input box
Procedure:
Task 1: supply numeric input through an input box

Sub test2( )
Dim name As String
name = InputBox("Your name please")
Debug.Print "Good morning," & name
End Sub
OUTPUT:

Good morning,suyash

Job Sheet No. 5


Aim: Decision making using the if and if.…then….else statements
Objectives:
1) Use the if statements
2) Use the if….then….else statements
3) Use the multiple if….then….else statements
Procedure:
Task 1: use the if statements

Sub test_if( )
Dim marks As Integer
marks = InputBox("Enter your marks")
Debug.Print "Your marks are :" & marks
If (marks < 45) Then
Debug.Print "Sorry, you have failed to clear the test!"
End If
End Sub
OUTPUT:

Your marks are :40

Sorry, you have failed to clear the test!


TASK2: use the if…then…else statement
Sub ifelse()
Dim marks As Integer
marks = InputBox("Enter your marks")
Debug.Print "Your marks are :" & marks
If (marks < 45) Then
Debug.Print "Sorry, try again!"
Else
Debug.Print "Congratulations,You have passed the test"
End If
End Sub
OUTPUT:

Your marks are :70

Congratulations,You have passed the test

TASK3: use the multiple if…then…else statements


Sub testif2( )
Dim marks As Integer
marks = InputBox("Enter your marks")
Debug.Print "Your marks are :" & marks
If (marks >= 80) Then
Debug.Print "You have passed with Distinction!"
ElseIf (marks >= 60) Then
Debug.Print "You have passed with A grade"
ElseIf (marks >= 40) Then
Debug.Print "You have passed with B grade"
Else
Debug.Print "Sorry,You have Failed"
End If
End Sub
OUTPUT:

Your marks are :80

You have passed with Distinction!


Job Sheet No. 6
Aim: Decision making using the nested if, select case statement
Objectives:
1) Use the nested if statement
2) Use the select case statement
Procedure:
Task 1: find the largest number among three numbers using nested if
statement

Sub nestedif()
Dim x, y, z As Integer
Dim large As Integer
x = 34
y = 55
z = 12
Debug.Print "Value of x is:" & x
Debug.Print "Value of y is:" & y
Debug.Print "Value of z is:" & z
If (x > y) Then
If (x > z) Then
large = x
Else
large = z
End If

ElseIf (y > z) Then


large = y
Else
large = z
End If
Debug.Print "Largest number is:" & large
End Sub
OUTPUT:
Value of x is:34

Value of y is:55

Value of z is:12

Largest number is:55

TASK2: Print the grade using select case statement


Sub Select_Case_Example()
'Enter the value for variables
grade_name = InputBox("Enter the grade name:")
' Evaluating the expression
Select Case grade_name
Case "A"
MsgBox "Excellent"
Case "B"
MsgBox "Very Good"
Case "C"
MsgBox "Good"
Case "D"
MsgBox "Pass"
Case Else
MsgBox "Sorry You are fail!"
End Select
End Sub
OUTPUT:

“A”
Excellent

TASK 3: Write and test the VBA program to find if the given number is even
or odd.
Sub EvenOdd()
For n = 1 To 10
If n Mod 2 = 0 Then
MsgBox n & " is Even Number"
Else
MsgBox n & " is Odd Number"
End If
Next n
End Sub
OUTPUT:

1 is Odd Number

2 is Even Number

TASK 4: Write and test the VBA program to find if the given year is leap year
or not.
Sub LeapYear()
If (Year(Date) Mod 4) Then
MsgBox "Not a Leap Year!"
Else
MsgBox "Leap Year!"
End If
End Sub
OUTPUT:

Not a Leap Year!

You might also like