13 lines
354 B
Plaintext
13 lines
354 B
Plaintext
'Returns 0 if the string is NOT a pangram or >0 if it IS a pangram
|
|
string$ = "The quick brown fox jumps over the lazy dog."
|
|
|
|
Print isPangram(string$)
|
|
|
|
Function isPangram(string$)
|
|
string$ = Lower$(string$)
|
|
For i = Asc("a") To Asc("z")
|
|
isPangram = Instr(string$, chr$(i))
|
|
If isPangram = 0 Then Exit Function
|
|
Next i
|
|
End Function
|