VB试题 06年试题6

来源：百度知道 编辑：UC知道 时间：2024/06/08 19:59:21
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序】
Private Sub Command1_Click()
Dim i As Integer, fn AsByte
fn = FreeFile
Open "e:\aaa.txt" For Output As #fn
For i = 1 To 20
If Sqr(i) = Int(Sqr(i)) Then Print #fn, i
Next i
Close #fn
End Sub
(22) 如果文件e:\aaa.txt已存在并已有数据 1、4，执行以上过程后文件中全部数据为：
A、1,4,1,4,9,16 B、1,4,9,16 C、1,4 D、2,4,6,8,10,12,14,16,18
(23) 如果文件e:\aaa.txt不存在，执行以上过程后文件中全部数据为：
A、1,4,1,4,9,16 B、1,4,9,16 C、空 D、2,4,6,8,10,12,14,16,18
(24) 如果文件e:\aaa.txt已存在并已有数据 1、4，且程序中文件打开方式改为 Append，
执行以上过程后文件中全部数据为：
A、1,4,1,4,9,16 B、1,4,9,16 C、1,4 D、2,4,6,8,10,12,14,16,18
------------------------------------
答案；BBA
------------------------------------
语句看不懂，麻烦帮我解释解释

Private Sub Command1_Click()
Dim i As Integer, fn AsByte
fn = FreeFile
'得到新的文件号
Open "e:\aaa.txt" For Output As #fn
'以输出方式打开——如果没有文件则新建；如果有则覆盖
For i = 1 To 20
'循环20-1+1=20次
If Sqr(i) = Int(Sqr(i)) Then Print #fn, i
如果sqr(i)=int(sqr(i)) ——如果平方根是整数，则输出这个原来的数
Next i
Close #fn
'关闭文件
End Sub

如果打开方式为APPEND：那么没有文件我记得会报错？有文件则追加。