Scroll to see replies
For counter = 1 To 10
If Mid(testrun, counter, 1) = "a" Then
count(1) = count(1) + 1
ElseIf Mid(testrun, counter, 1) = "b" Then
count(2) = count(2) + 1
ElseIf Mid(testrun, counter, 1) = "c" Then
count(3) = count(3) + 1
ElseIf Mid(testrun, counter, 1) = "d" Then
count(4) = count(4) + 1
ElseIf Mid(testrun, counter, 1) = "e" Then
count(5) = count(5) + 1
ElseIf Mid(testrun, counter, 1) = "f" Then
count(6) = count(6) + 1
End If
Next
ListBox1.Items.Add("a" & vbTab & vbTab & count(1))
ListBox1.Items.Add("b" & vbTab & vbTab & count(2))
ListBox1.Items.Add("c" & vbTab & vbTab & count(3))
ListBox1.Items.Add("d" & vbTab & vbTab & count(4))
ListBox1.Items.Add("e" & vbTab & vbTab & count(5))
ListBox1.Items.Add("f" & vbTab & vbTab & count(6))
Last reply 1 day ago
SQA Higher Physics - Paper 2 - 25th April 2024 [Exam Chat]Last reply 2 days ago
SQA Higher Mathematics - Paper 1 Non-calculator - 13th May 2024 [Exam Chat]Last reply 4 days ago
SQA Nat 5 English - Critical Reading - 7th May 2024 [Exam Chat]Last reply 1 week ago
SQA Higher English - Critical Reading - 9th May 2024 [Exam Chat]Last reply 1 day ago
SQA Higher Physics - Paper 2 - 25th April 2024 [Exam Chat]Last reply 2 days ago
SQA Higher Mathematics - Paper 1 Non-calculator - 13th May 2024 [Exam Chat]Last reply 4 days ago
SQA Nat 5 English - Critical Reading - 7th May 2024 [Exam Chat]Last reply 1 week ago
SQA Higher English - Critical Reading - 9th May 2024 [Exam Chat]