29 lines
744 B
Plaintext
29 lines
744 B
Plaintext
Public Sub Main()
|
|
Dim sCheck As String[] = ["A", "BARK", "BOOK", "TREAT", "COMMON", "SQUAD", "CONFUSE"]
|
|
Dim sBlock As String[] = ["BO", "XK", "DQ", "CP", "NA", "GT", "RE", "TG", "QD", "FS", "JW", "HU", "VI", "AN", "OB", "ER", "FS", "LY", "PC", "ZM"]
|
|
Dim sList As New String[]
|
|
Dim siCount, siLoop As Short
|
|
Dim sTemp, sAnswer As String
|
|
|
|
For Each sTemp In sCheck
|
|
sAnswer = ""
|
|
sList = sBlock.Copy()
|
|
For siCount = 1 To Len(sTemp)
|
|
For siLoop = 0 To sList.Max
|
|
If InStr(sList[siLoop], Mid(sTemp, siCount, 1)) Then
|
|
sList.Extract(siLoop, 1)
|
|
sAnswer &= Mid(sTemp, siCount, 1)
|
|
Break
|
|
Endif
|
|
Next
|
|
Next
|
|
|
|
If sAnswer = sTemp Then
|
|
Print sTemp & " - True"
|
|
Else
|
|
Print sTemp & " - False"
|
|
End If
|
|
Next
|
|
|
|
End
|