# ADS Computer Science-III PU Practical Solution Group-6 2019

University of the Punjab

BA/BSc.  Part I Computer Science Practical

Group 6 – Annual-2019 Solution

Question No 01:

MS Excel

Procedure:

1.      I clicked on Start Button and point to the All Programs. All installed programs list appeared.

2.      I pointed to the MS Office Folder and click on MS Excel. MS Excel Program opened.

3.      I click on Office Button and take new Sheet.

4.      Entered data into sheet as given in the question.

6.      I wrote a formula to calculate Strike Rate

Formula: =C2*D2

I dragged this formula from row 2 to row 6 to apply formula on all rows.

7.      I Selected Cell A6 , B6,C6 , D6 and click on Merge and Center on Home Ribbon and apply shade form home ribbon.

8.      I Wrote Average Strike Rate in Cell and Press CTRL+R to make it Right Align.

9.      I Selected Cell A7 , B7,C7 , D7 and click on Merge and Center on Home Ribbon and apply shade form home ribbon.

10.  I Wrote Highest Strike Rate in Cell and Press CTRL+R to make it Right Align.

11.  I Selected Cell A8, B8,C8 , D8 and click on Merge and Center on Home Ribbon and apply shade form home ribbon.

12.  I Wrote Lowest Strike Rate in Average Strike Rate

Formula: =AVERAGE(E2:E5)

13.  I wrote a formula to Highest Strike Rate

Formula:  = MIN(E2:E5)

14.  I wrote a formula to calculate Lowest Strike Rate

Formula:  = MAX(E2:E5)

15.  I pressed Ctrl + S to save the sheet and give the file name “Strike Rate”.

Question No 02:

Program:

Private Sub Command1_click()

Dim no1 AS Integer , no2 As Integer

no1 = InputBox(“Enter a number” , “Input” , 0)

no2 = InputBox(“Enter Second number” , “Input” , 0)

Call isEqual(n01 , no2)

End Sub

Public Function isEqual(ByVal n1 As Integer , n2 As Integer)

If n1 = n2 Then

Print “both numbers are equal”

Else

Print “both numbers are not equal”

End If

End Function