University of the Punjab
BA/BSc. Part I Computer Science Practical
Group 6 – Annual-2019 Solution
Download Original Papers From:
https://educationhub.pk/pu-ba-bsc-practical-papers-third-year/
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.
5. I Selected Header Row and apply shade from home ribbon.
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
