





Study with the several resources on Docsity
Earn points by helping other students or get them with a premium plan
Prepare for your exams
Study with the several resources on Docsity
Earn points to download
Earn points by helping other students or get them with a premium plan
Information about the autumn examinations for the academic year 2008/2009 for the masters of business studies in electronic commerce, higher diploma in systems analysis full-time and part-time programs. The exam includes modules such as interactive programming 1 and is evaluated through multiple-choice questions and written answers. The exam is conducted by the accountancy & finance department and is overseen by internal and external examiners.
Typology: Exams
1 / 9
This page cannot be seen from the preview
Don't miss anything!






Exam Code(s) 1AE1, 1 BD1, 1 BD Exam(s) Masters of Business Studies in Electronic Commerce Higher Diploma in Systems Analysis full-time Higher Diploma in Systems Analysis part-time Module Code(s) MS Module(s) Interactive Programming 1 Paper No. Repeat Paper External Examiner(s) Professor H. van der Heijden Internal Examiner(s) Professor J. F. Collins Mr. Seamus Hill Instructions: Candidates are required to answer: Section A (20 Marks) Answer all 10 parts of section A, This section consists of 10 multiple-choice questions all of which should ideally be attempted. Answers are to be written on the MCQ sheet provided, NOT on the Examination paper. Section B (80 Marks) Answer Any Two Questions Duration 3 hrs Department(s) Accountancy & Finance Course Co-ordinator(s) Requirements : MCQ Yes, Type a-d
1 Public Class BillingForm 2 3 Const TAX_RATE_Decimal As Decimal = 0.08D 4 Const CAPPUCCINO_PRICE_Decimal As Decimal = 2D 5 Const ESPRESSO_PRICE_Decimal As Decimal = 2.25D 6 Const LATTE_PRICE_Decimal As Decimal = 1.75D 7 Const ICED_PRICE_Decimal As Decimal = 2.5D 8 9 Private SubtotalDecimal, TotalDecimal, GrandTotalDecimal As Decimal 10 Private CustomerCountInteger As Integer 11 12 Private Sub CalculateButton_Click(ByVal sender As System.Object, _ 13 ByVal e As System.EventArgs) Handles CalculateButton.Click 14 15 Dim PriceDecimal, TaxDecimal, ItemAmountDecimal As Decimal 16 Dim QuantityInteger As Integer 17 18 If CappuccinoRadioButton.Checked Then 19 PriceDecimal = CAPPUCCINO_PRICE_Decimal 20 ElseIf EspressoRadioButton.Checked Then 21 PriceDecimal = ESPRESSO_PRICE_Decimal 22 ElseIf LatteRadioButton.Checked Then 23 PriceDecimal = LATTE_PRICE_Decimal 24 ElseIf IcedCappuccinoRadioButton.Checked Or _ 25 IcedLatteRadioButton.Checked Then 26 PriceDecimal = ICED_PRICE_Decimal 27 End If ...continued
29 Try 30 QuantityInteger = Integer.Parse(QuantityTextBox.Text) 31 ItemAmountDecimal = PriceDecimal * QuantityInteger 32 SubtotalDecimal += ItemAmountDecimal 33 If TaxCheckBox.Checked Then 34 TaxDecimal = SubtotalDecimal * TAX_RATE_Decimal 35 Else 36 TaxDecimal = 0 37 End If 38 TotalDecimal = SubtotalDecimal + TaxDecimal 39 ItemAmountTextBox.Text = ItemAmountDecimal.ToString("C") 40 SubTotalTextBox.Text = SubtotalDecimal.ToString("N") 41 TaxTextBox.Text = TaxDecimal.ToString("N") 42 TotalTextBox.Text = TotalDecimal.ToString("C") 43 ' Allow a change only for new order. 44 TaxCheckBox.Enabled = False 45 ' Allow Clear after an order is begun. 46 ClearButton.Enabled = True 47 NewOrderButton.Enabled = True 48 Catch QuantityException As FormatException 49 MessageBox.Show("Quantity must be numeric.", "Data Entry Error", _ 50 MessageBoxButtons.OK, MessageBoxIcon.Information) 51 With QuantityTextBox 52 .Focus() 53 .SelectAll() 54 End With 55 End Try 56 End Sub 57 58 Private Sub ClearButton_Click(ByVal sender As System.Object, _ 59 ByVal e As System.EventArgs) Handles ClearButton.Click 60 61 CappuccinoRadioButton.Checked = True ' All others are false. 62 ItemAmountTextBox.Clear() 63 With QuantityTextBox 64 .Clear() 65 .Focus() 66 End With 67 End Sub ...continued
102 Private Sub SummaryButton_Click(ByVal sender As System.Object, _ 103 ByVal e As System.EventArgs) Handles SummaryButton.Click 104 105 Dim AverageDecimal As Decimal 106 Dim MessageString As String 107 108 If TotalDecimal <> 0 Then 109 NewOrderButton_Click(sender, e) 110 End If 111 112 If CustomerCountInteger > 0 Then 113 AverageDecimal = GrandTotalDecimal / CustomerCountInteger 114 115 MessageString = "Number of Orders: " _ 116 & CustomerCountInteger.ToString() _ 117 & Environment.NewLine & Environment.NewLine _ 118 & "Total Sales: " & GrandTotalDecimal.ToString("C") _ 119 & Environment.NewLine & Environment.NewLine _ 120 & "Average Sale: " & AverageDecimal.ToString("C") 121 MessageBox.Show(MessageString, "Coffee Sales Summary", _ 122 MessageBoxButtons.OK, MessageBoxIcon.Information) 123 Else 124 MessageString = "No sales data to summarize." 125 MessageBox.Show(MessageString, "Coffee Sales Summary", _ 126 MessageBoxButtons.OK, MessageBoxIcon.Information) 127 End If 128 End Sub 129 130 Private Sub ExitButton_Click(ByVal sender As System.Object, _ 131 ByVal e As System.EventArgs) Handles ExitButton.Click 132 133 Me.Close() 134 End Sub 135 End Class 136