Question

一道VB程序填空题，各位帮忙看看！！！！！！！！！

【程序说明】下列过程可统计1～1000之间的素数个数并在窗体上显示，还将把所有这些素数写入到文本文件e：＼aaa.txt。
Private Sub Command1_Click()
Dim n As Integer, i As Integer, c As Integer
Open ⑴______ For Output As #1
For n = 2 To 1000
For i = 2 To ⑵______
If n Mod i = 0 Then Exit For
Next i
If i > Sqr(n) Then ⑶______： c = c + 1
Next n
⑷______
End Sub
⑴A. e：＼aaa.txt B. "e：＼aaa.txt" C. e：＼＼aaa.txt D. aaa.txt
⑵A. Sqr(n) B. n / 2 C. n - 1 D. n ＼ 2
⑶A. Print n B. Input #1, n C. Print #1, n D. Line Print n
⑷A. Close #1： Print c B. Close #1 C. Print c D. Close
。。。。。。。。。。。。。。怎么答案不一样，得出来的却一样！！！

Answer 1

Open ⑴______ For Output As #1
B (打开文件命令，当然输入完整路径，如果文件和程序在同一目录，输入文件名就可以了，路径要包括在""中，B选项的意思是打开文件，标明文件号为#1）

For n = 2 To 1000
For i = 2 To ⑵______
If n Mod i = 0 Then Exit For
Next i
C（n - 1 ，这是计算素数的，素数是什么？？，就是除去本身外不能被其他数整除的数叫素数，该算法的意思是选择一个数，从2开始去除这个数，MOD的意思是求余数，如果余数是0，那这个数能被除自身外的数除，就不是素数了，然后EXIT FOR结束循环，继续探测下一个数。如果2不能整除这个数，那就用3去除，再用4去除......不用我说了吧--，一直到这个数-1，A选项Sqr(n)是开平方，牛头不对马嘴，B选项 n / 2 N除以2？？？也不能检测是不是素数，C 正确，从1开始一直除到N-1，就是检测除去本身外不能被其他数整除的数了，D选项，除号位置都反调了，更是不对）

If i > Sqr(n) Then ⑶______： c = c + 1
C（将变量N填写进"e：＼aaa.txt"中，代码格式是print 文件号，内容，C=c+1探测到素数了，当然素数的计量数要+1）

⑷______
A（文件打开了，当然要关闭，其实关闭就是保存啦，代码格式close 文件号）

Answer 2

Private Sub Command1_Click()
Dim n As Integer, i As Integer, c As Integer
Open "e:\aaa.txt" For Output As #1
'打开E盘下面的aaa.txt文本文件
For n = 2 To 1000
For i = 2 To n \ 2
'执行N的一半数就可以得出结果，如11\2的结果就是5.
If n Mod i = 0 Then Exit For
Next i
If i > Sqr(n) Then Print #1, n: c = c + 1
'把符合条件的内容，也就是质数写入打开的文件中
Next n
Close #1
'关闭已打开的文件
End Sub

也就是说，我的意见是：B D C B,请供参考。

Answer 3

1. B
2. A
3. C
4. B

Answer 4

1. B
2. A
3. C
4. B