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

University of the Punjab

BA/BSc.  Part I Computer Science Practical

Group 9 – 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. And font style Rimes New Roman. I Pressed CTRL +E  to Make data Center Align.

6.      I Selected cells  C2 To C6 and Clicked Conditional Formatting ->Highlight Cell Rules -> Greater Than . and give rule value 1500. Conditional formatting applied.

7.      I Selected Cell A7 , B7 and click on Merge and Center on Home Ribbon.

8.      I Wrote Total Annual Income in Cell and Press CTRL+R to make it Right Align.

9.      I Selected Cell A8, B8 and click on Merge and Center on Home Ribbon .

10.  I Wrote Average Annual Income in Cell and Press CTRL+R to make it Right Align.

11.  I Selected Cell A9, B9 and click on Merge and Center on Home Ribbon .

12.  I Wrote Highest Annual Income in Cell and Press CTRL+R to make it Right Align.         

13.  I wrote a formula in C7 to Total Annual Income.

Formula:  = SUM(C2:E6)

14.  I wrote a formula in C8 to Average Annual Income.

Formula:  = Average(C2:E6)

15.  I wrote a formula in C9  to Highest Annual Income

Formula:  = MAX(C2:E6)

16.  I pressed Ctrl + S to save the sheet and give the file name “Income”.

Question No 02:

Program:

Private Sub Command1_click()

Dim x , y , z As Integer

x = InputBox(“Enter First No”)

y = InputBox(“Enter Second  No”)

z = InputBox(“Enter Third No”)

If (x>=y  And x<=z) Or (x<=y  And x>=z) Then

MsgBox(“The middle value = “&x)

Elseif   (y>=x  And y<=z) Or (y<=x  And y>=z) Then

MsgBox(“The middle value = “&y)

Else

MsgBox(“The middle value = “&z)

End If

End Sub