University of the Punjab
BA/BSc. Part I Computer Science Practical
Group 4 – 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 Amount
Formula: =B2*C2
I dragged this formula from row 2 to row 6 to apply formula on all rows.
7. I Selected CellA7 , B7,C7 and click on Merge and Center on Home Ribbon and apply shade form home ribbon.
8. I Wrote Total Amount in Cell and Press CTRL+R to make it Right Align.
9. I Selected Cell A8 , B8,C8 and click on Merge and Center on Home Ribbon and apply shade form home ribbon.
10. I Wrote GST @16 % in Cell and Press CTRL+R to make it Right Align.
11. I Selected Cell A9 , B9,C9 and click on Merge and Center on Home Ribbon and apply shade form home ribbon.
12. I Wrote Net Amount in Cell and Press CTRL+R to make it Right Align.
13. I wrote “Total” in A7 cell and make it Right Aligned by pressing “CTRL + R”.
14. I wrote a formula to calculate Total Amount
Formula: =SUM(D2:D6)
15. I wrote a formula to calculate GST
Formula: = D8 * 0.16
16. I wrote a formula to calculate Net Amount
Formula: = D7+D8
17. I pressed Ctrl + S to save the sheet and give the file name “Invoice”.
Question No 02:
Program:
Private Sub Command1_click()
Dim no As Integer
no = InputBox(“Enter a number”, “Input” , 0)
For I = 1 to no / 2
If no Mod I = 0 Then
PrintI
End If
Next
End Sub
