• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• THIS A QUICK CODE FOR BEGINERS WICH ALLOWS THEM TO DISPLAY DATA IN ARRAYS USED NAMES AS EXAMPLES.

THIS A QUICK CODE FOR BEGINERS WICH ALLOWS THEM TO DISPLAY DATA IN ARRAYS USED NAMES AS EXAMPLES.

THIS A QUICK CODE FOR BEGINERS WICH ALLOWS THEM TO DISPLAY DATA IN ARRAYS USED NAMES AS EXAMPLES.

API Declarations


Dim CANDIDATENO(1 To 15) As String
Dim INSTITUTION(1 To 15) As String
Dim FIRSTGRADE(1 To 15) As String
Dim REVISEDGRADE(1 To 15) As String




Rate THIS A QUICK CODE FOR BEGINERS WICH ALLOWS THEM TO DISPLAY DATA IN ARRAYS USED NAMES AS EXAMPLES.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim m As Integer
Print
Print
Print
Print
Print
Print
For m = 1 To 15
Form2.Print CANDIDATENAME(m), CANDIDATENO(m), INSTITUTION(m), FIRSTGRADE(m), REVISEDGRADE(m),
Next m
End Sub

Private Sub Form_Load()
CANDIDATENAME(1) = "Idnan Ali                "
CANDIDATENAME(2) = "Ghazanfar Ali            "
CANDIDATENAME(3) = "vajid ali                "
CANDIDATENAME(4) = "saied shearki            "
CANDIDATENAME(5) = "saiqa parveen            "
CANDIDATENAME(6) = "dave jones               "
CANDIDATENAME(7) = "martin riggs             "
CANDIDATENAME(8) = "pual yates               "
CANDIDATENAME(9) = "Ben Mathews              "
CANDIDATENAME(10) = "micchel phifer          "
CANDIDATENAME(11) = "kaleem raheem           "
CANDIDATENAME(12) = "shamim shaeed           "
CANDIDATENAME(13) = "roger godsif            "
CANDIDATENAME(14) = "jenny bond              "
CANDIDATENAME(15) = "eric green              "
CANDIDATENO(1) = "1001         "
CANDIDATENO(2) = "1002         "
CANDIDATENO(3) = "1003         "
CANDIDATENO(4) = "1004         "
CANDIDATENO(5) = "1005         "
CANDIDATENO(6) = "1006         "
CANDIDATENO(7) = "1007         "
CANDIDATENO(8) = "1008         "
CANDIDATENO(9) = "1009         "
CANDIDATENO(10) = "1010        "
CANDIDATENO(11) = "1011        "
CANDIDATENO(12) = "1012        "
CANDIDATENO(13) = "1013        "
CANDIDATENO(14) = "1014        "
CANDIDATENO(15) = "1015        "
INSTITUTION(1) = "sutton coldfield      "
INSTITUTION(2) = "josiah mason          "
INSTITUTION(3) = "thames college        "
INSTITUTION(4) = "thames college        "
INSTITUTION(5) = "st phillips           "
INSTITUTION(8) = "sutton coldfield      "
INSTITUTION(9) = "josiah mason          "
INSTITUTION(10) = "st phillips          "
INSTITUTION(11) = "thames college       "
INSTITUTION(12) = "sutton coldfield     "
INSTITUTION(13) = "st phillips          "
INSTITUTION(14) = "josiah mason         "
INSTITUTION(15) = "st phillips          "
FIRSTGRADE(1) = "D     "
FIRSTGRADE(2) = "E     "
FIRSTGRADE(3) = "C     "
FIRSTGRADE(4) = "B     "
FIRSTGRADE(5) = "D     "
FIRSTGRADE(6) = "D     "
FIRSTGRADE(7) = "U     "
FIRSTGRADE(8) = "D     "
FIRSTGRADE(9) = "F     "
FIRSTGRADE(10) = "U    "
FIRSTGRADE(11) = "D    "
FIRSTGRADE(12) = "C    "
FIRSTGRADE(13) = "B    "
FIRSTGRADE(14) = "C    "
FIRSTGRADE(15) = "B    "
REVISEDGRADE(1) = "B"
REVISEDGRADE(2) = "D"
REVISEDGRADE(3) = "E"
REVISEDGRADE(4) = "B"
REVISEDGRADE(5) = "C"
REVISEDGRADE(6) = "E"
REVISEDGRADE(7) = "C"
REVISEDGRADE(8) = "B"
REVISEDGRADE(9) = "F"
REVISEDGRADE(10) = "E"
REVISEDGRADE(11) = "C"
REVISEDGRADE(12) = "A"
REVISEDGRADE(13) = "B"
REVISEDGRADE(14) = "C"
REVISEDGRADE(15) = "B"
End Sub

Private Sub Picture1_Click()

End Sub

Private Sub Image1_Click()

End Sub