Question

未来教育考试 二级VB 水仙花数

我买了未来教育考试的二级VB，因为今年开始要无纸化，所以想了下还是买了一套来做，这个软件有自动评分，真的是各种问题啊，最严重的一个问题是有这样一个题目算水仙花数，我评分出来后觉得很奇怪，这个简单应用题两个小题我就得了12分，错误信息是out4.dat源文件不存在，我那个纳闷啊，整个题目都没有一句out4.dat。然后我复制了标准答案，再删了另外一个题目的答案，再评一次分，我的简单应用题就直接0分了，也就是说我这个算水仙花数的题目是0分啊，我就没有这个out4.dat，你至于么。于是我就看了好久这个题目的标准答案，终于找出了这个out4.dat在模块里面，但是也想不出到底为什么，详细如下：
（1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是： ①单击"读数据"按钮，则将考生文件夹下in3.dat文件中的100个0到999之间的整数读入到数组a中； ②单击"计算"按钮，则找出这100个整数中的所有水仙花数，并将它们的最大值与最小值分别显示在文本框Text1、Text2中。(注：当一个数的值等于该数中的各位数字的立方和时，此数被称为水仙花数。如： 所以153就是一个水仙花数) 在窗体文件中已经给出了全部控件(如图所示)和"读数据"命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写"计算"命令按钮的事件过程。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行"计算"，并且必须通过单击窗体右上角的"关闭"按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

程序提供代码：
Dim a(100) As IntegerPrivate Sub Command1_Click() Dim k As Integer Open App.Path & "\in3.dat" For Input As #1 For k = 1 To 100 Input #1, a(k) Next k Close #1End SubPrivate Sub Command2_Click() '需考生编写End IfNext iText1 = maxText2 = minEnd Sub'以下Function 过程用于判断某数是否为水仙花数Function isnarc(p As Integer) x = Fix(p / 100) y = Fix((p - x * 100) / 10) z = p - x * 100 - y * 10 If p = x ^ 3 + y ^ 3 + z ^ 3 Then isnarc = True Else isnarc = False End IfEnd FunctionPrivate Sub Form_Unload(Cancel As Integer) Open App.Path & "\out3.dat" For Output As #1 Print #1, Val(Text1.Text) Print #1, Val(Text2.Text) Close #1End Sub
还有一个模块代码：
Sub unload_sub() Open "out4.dat" For Output As #1 Print #1, Val(Form1.Cb1.Text), Val(Form1.Text1.Text) Close #1End Sub
标准答案我就不写了，写要超字数的

Answer 1

这个题目中有写入out4.dat文件的语句，按照题目要求做，应该能执行到保存文件的语句。如果没有按照题目要求做，可能执行不到写入out4.dat的语句，造成你所说的找不到文件的错误，因为这个文件里面保存了计算结果，所以没有这个文件就不能正常评分了。

因此，建议按照题目要求做题，使计算结果能够正常保存，应该就可以了。
复制出来一个新的工程，应该能生成out4.dat，但是这个文件可能是保存在了其他地方。
可以去VB默认的路径下找一找。

Answer 2

这个题目中有写入out4.dat文件的语句，按照题目要求做，应该能执行到保存文件的语句。如果没有按照题目要求做，可能执行不到写入out4.dat的语句，造成你所说的找不到文件的错误，因为这个文件里面保存了计算结果，所以没有这个文件就不能正常评分了。

因此，建议你按照题目要求做题，使计算结果能够正常保存，应该就可以了。

追问

我是按照题目做的，而且我按照标准答案复制一个新的工程出来也没有生成out4.dat，我想问模块代码有没有错

追答

这些代码是没有问题的。

你复制出来一个新的工程，应该能生成out4.dat，但是这个文件可能是保存在了其他地方。
你可以去VB默认的路径下找一找。

Answer 3

out4.dat是系统输出文件 评分系统会检测这个文件来给你评分 所以没有这个文件就会造成评分不准