by GAZ (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 26th September 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
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
No comments have been posted about THIS A QUICK CODE FOR BEGINERS WICH ALLOWS THEM TO DISPLAY DATA IN ARRAYS USED NAMES AS EXAMPLES.. Why not be the first to post a comment about THIS A QUICK CODE FOR BEGINERS WICH ALLOWS THEM TO DISPLAY DATA IN ARRAYS USED NAMES AS EXAMPLES..