﻿dim mystrings_code1={"20 century fox";"20c fox";"20century fox";"20ｆｏｘ";"20th centuary fox";"20thfox";"20세기 fox";"20세기 폭스";"20세기폭스사";"20世紀ｆｏｘ";"２０世紀fox";"20世紀フォクス";"２０世紀ふぉっく";"이십세기폭스";"20th";"20th century";"20th century fox";"20th fox";"20세기 폭스사";"20세기폭스";"20센츄리스";"20世紀fox";"20世紀フォックス";"２０世紀フォックス";"twentieth century fox";"twenty century fox";"二十世紀フォックス"} dim mystrings_code2={"accer";"acel";"acer";"azer"} dim mystrings_code3={"actvision";"aktivison";"アクティビジョン";"액티비젼";"엑티비전";"activision";"액티비전";"activision blizzard"} dim mystrings_code4={"addidas";"adidas";"아디다스";"adida";"adidass"} dim i dim j dim k dim l dim counter1=0 dim counter2=0 dim counter3=0 dim counter4=0 for i=1 to mystrings_code1.count if mystrings_code1[i]=q1 then counter1=counter1+1 endif Next i for j=1 to mystrings_code2.count if mystrings_code2[j]=q1 then counter2=counter2+1 endif Next j for k=1 to mystrings_code3.count if mystrings_code3[k]=q1 then counter3=counter3+1 endif Next k for l=1 to mystrings_code4.count if mystrings_code4[l]=q1 then counter4=counter4+1 endif Next l if (counter1>0)=(q2 hasnone {1}) then Assert.Check(False,"20th not coded as 1 or coded as 1 but not 20th text") Endif if (counter2>0)=(q2 hasnone {2}) then Assert.Check(False,"acer not coded as 1 or coded as 1 but not acer text") Endif if (counter3>0)=(q2 hasnone {3}) then Assert.Check(False,"activision not coded as 1 or coded as 1 but not activision text") Endif if (counter4>0)=(q2 hasnone {4}) then Assert.Check(False,"adidas not coded as 1 or coded as 1 but not adidas text") Endif