选出与下列成语有关的一组作品[ ]

①百废俱兴　②世外桃源　③妄自菲薄　④诲人不倦　⑤一鼓作气

A．①《岳阳楼记》②《桃花源记》③《出师表》④《论语》⑤《曹刿论战》

B．①《岳阳楼记》②《核舟记》③《捕蛇者说》④《孟子》⑤《左传》

C．①《醉翁亭记》②《桃花源记》③《出师表》④《论语》⑤《曹刿论战》

D．①《桃花源记》②《核舟记》③《孟子》④《捕蛇者说》⑤《左传》

下面程序的功能是把文件file1.txt中重复字符去掉后(即若干多个字符相同，则只保留一个)写入文件file2.txt。请填空。
Private Sub Command1_Click()
Dim inchar As String, temp As String, outchar As String
outchar=""
Open"filel.txt" For Input As#1
Open"file2.txt" For Input As# (12)
n=LOF( (13) )
inchar=Input $ (n，1)
For k=1 To n
temp=Mid(inchar,k,1)
If InStr(outchar, temp)= (14) Then
outchar=outchar＆temp
End If
Next k
Print #2， (15)
Close#2
Close#1
End Sub