Open "C:\textfile.txt" For Input As #1:Open "C:\question.txt" For Output As #2
Open "C:\answer.txt" For Output As #3: 
Dim a$(150), b$(250), c$(150):  
Rem===　下のb$の内容は増やせます。増やして250を越えたら上のb$ (250)も増やす
b$(1) = "and":   b$(2) = "have":    b$(3) = "has":   b$(4) = "is":
b$(5) = "of"  :  b$(6) = "in":      b$(7) = "am":    b$(8) = "to":
b$(9) = "about": b$(10) = "after" : b$(11) = "on":   b$(12) = "are":
KK = 12:  Rem b$を増やしたら最後の数字をこのkk=の12の代わりに入れる
yomu:
For i = 1 To 150: a$(i) = "": c$(i) = "":Next i
k = 1 : If EOF(1) Then Close: GoTo shime
Line Input #1, d$:  If Len(d$) < 2 Then GoTo inji
d$ = d$ + " "
tobi:
If Left$(d$, 1) = " " Then d$ = Right$(d$, Len(d$) - 1): GoTo tobi
If Len(d$) < 2 Then GoTo tugi
For i = 2 To 25
  If Mid$(d$, i, 1) = " " Then a$(k) = Left$(d$, i - 1): k = k + 1: d$ = Right$(d$, Len(d$) - i): GoTo tobi
Next i
tugi:
For i = 1 To k - 1
 c$(i) = a$(i)
 For j = 1 To KK
 If a$(i) = b$(j) Then c$(i) = "(        )": a$(i) = "(" + b$(j) + ")": GoTo nxtwrd
 Next j
nxtwrd:
Next i
inji:
  For i = 1 To k - 1:  Print #2, c$(i); " ";: Print #3, a$(i); " ";:Next i
  Print #2, Chr$(13); Chr$(10);: Print #3, Chr$(13); Chr$(10);
GoTo yomu
shime:
end