(1). Declare variable names that would be appropriate to hold following information items: 1 Point Each 1.1) to store the Area of a property 1.2) to store the Disease a patient can have 1.3) to store the sales prices of a property 1.4) to store Course Code of a particular course in a college 1.5) to store number of years in one century as a constant 1.6) to store patient id of a patient admitted in a hospital (2). Write an event procedure starting with a Private Sub BtnCalc_Click, ending with End Sub, and having one line of vB code for each step. The steps calculate the percentage profit from the sales of the stock Step # Tobie to complete (The statements 2 to 5 are sequential) 1 Read steps 2 to 5, then declare all the required variables 2 Assign the value 10 to the variable PurchasePrice 3 Assign the value 15 to the variable SellingPrice 4. Assign, to the variable PercProfit, 100 times the value of the difference between 3 Points 1 Point 1 Point SellingPrice and PurchasePrice divided by PurchasePrice 2 Points 5 Display the value of variable PercProfit in a ListBox with 2 decimal places 2 Points 6 Points (3). Explain briefly, the difference between an InputBox and MessageBox (4). Evaluate the following numeric expressions, P--3, Q-5, and R = 6 (No Calculators allowed) 2 Points Each (5), Determine the output (Values) displayed for each of the following in the TextBox Txtout when the button BtnDisp Also, give Visual Basic Code example to explain the difference between the two. 4.1) P (Q-R) -P2 is clicked 4.2) Q-3 "P-R+6 4.3) P-Q 2- (P+Q)A2 5.1) Private Sub BtnDisp(. ) Handles BtnDispl.Click Dim A As Double 4 If (A 100 Then TxtOut.Text = . Your change Contains" & Cint(Change/ 100 ) & . dollars." Else TxtOut Text- Your change Contains no dollars. End If End Sub 3 Points 6). Write an event procedure to solve the problem: If a car left Washington at 2 P.M. and arrived in New York at 4 Points 7 P.M. What is the average speed of the car if New York and Washington are 233 miles apart? 7). Following VB code has errors in it. Identify the errors in it and rewrite the entire code after making minimal necessary corrections. Dim City 'Edison" As String, A As Double = 1 Dim B As String | 7.2 7.1 Dim 42Age As Integer, Balance As Double 42Age 76 Balance 4.456 LstOut.items.Show(Balance) MessageBox. Add(42Age) 4 Points LblOutAdd( "City = . City &8-3 4 Points