Computer Science 2018 Specimen Mark Scheme 4021/3 compiled by Engineer Nyamz
Question 1
Public Class Form1
Private Sub btnResult_Click(ByVal sender As [Link], ByVal
e As [Link]) Handles [Link]
Dim name As String
name = [Link]
MsgBox("Hello " & name)
End Sub
End Class
Computer Science 2018 Specimen Mark Scheme 4021/3 compiled by Engineer Nyamz
Question 2
Public Class Form1
Private Sub btnRandom_Click(ByVal sender As [Link], ByVal e
As [Link]) Handles [Link]
Dim rand As New Random
Dim randomnumber As Integer
randomnumber = [Link](1, 6)
[Link] = randomnumber
End Sub
End Class
Question 3
Module Module1
Sub Main()
Dim i, j As Integer
For i = 1 To 5
For j = 1 To 5
[Link]("#")
Next j
[Link]()
Next i
[Link]()
End Sub
End Module
Computer Science 2018 Specimen Mark Scheme 4021/3 compiled by Engineer Nyamz
Question 4
Public Class Form1
Private Sub btnResult_Click(ByVal sender As [Link], ByVal
e As [Link]) Handles [Link]
Dim number As Integer
number = [Link]
If number Mod 2 = 0 Then
MsgBox("Number entered is even")
Else
MsgBox("Number entered is not even")
End If
End Sub
End Class
Computer Science 2018 Specimen Mark Scheme 4021/3 compiled by Engineer Nyamz
Question 5(a) and 5(b)
<html>
<head>
<title>Matulise</title>
</head>
<body>
<h>Welcome to Frecy High School</h>
<p>We offer Arts, Commercials and Sciences at 'A'Level</p>
<p>We offer practical subject at 'O'Level</p>
<p><img src ="C:\Users\nyamz\Desktop\COVID 19\[Link]">
<img src ="C:\Users\nyamz\Desktop\COVID 19\[Link]"></p>
</body>
</html>
[20]
Computer Science 2018 Specimen Mark Scheme 4021/3 compiled by Engineer Nyamz
Question 6a
Customers
Products
Orders
Question 6(b)
Computer Science 2018 Specimen Mark Scheme 4021/3 compiled by Engineer Nyamz
Question 6(c)
Question 6(d)
Question 6(e)
Computer Science 2018 Specimen Mark Scheme 4021/3 compiled by Engineer Nyamz