问答题 在名为Form1的窗体上建立一个文本框,名为Texl1;再建立一个命令按钮,名为Cmd1,标题为“计算”,如下图所示。
要求程序运行后,单击命令按钮,则计算出100~200之间所有素数之和,并在文本框中显示结果,同时把结果存入文件out48.txt中(在考生文件夹中有标准模块mode.bas,其中的putdata过程可以把结果存入文件;而isprime函数可以判断整数x是否为素数,如果是素数,则函数返回True,否则返回False。考生可以把该模块文件添加到自己的工程中)。
注意:文件必须存放在考生文件夹中,窗体文件名为sj5.frm,工程文件名为sj5.vbp。
【正确答案】打开题目所给工程文件;
2.将注释语句改为:
Dim Mat(5,5)
Open App.Path& "/" & "in24.txt" ForInputAs#1
Input#1,Mat(i,j)
Sum=0
Sum=Sum+Mat(3,j)
3.按要求保存文件即完成本题。
【答案解析】