ADS Computer Science-III PU Practical Solution Group-4 2019

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