在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程序是不完整的。在窗体上建立一个名称为Command1,标题为“计算”的命令按钮,再建立一个名称为Text1的文本框。运行界面如图6-4所示。要求程序运行后,若单击“计算”按钮,将计算200~350 之间所有素数的和,在文本框中显示结果,同时把结果存人文件out.txt中。(在考生文件夹中有标准模块mode.bas,其中的writedata过程可以把结果存入文件,而isprimenum函数可以判断整数x是否为素数,如果是素数,则函数返回True,否则返回False,考生可以把该模块义件添加到自己的工程中。)注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“b’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。

在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程序是不完整的。在窗体上建立一个名称为Command1,标题为“计算”的命令按钮,再建立一个名称为Text1的文本框。运行界面如图6-4所示。要求程序运行后,若单击“计算”按钮,将计算200~350 之间所有素数的和,在文本框中显示结果,同时把结果存人文件out.txt中。(在考生文件夹中有标准模块mode.bas,其中的writedata过程可以把结果存入文件,而isprimenum函数可以判断整数x是否为素数,如果是素数,则函数返回True,否则返回False,考生可以把该模块义件添加到自己的工程中。)

注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“b’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。


相关考题:

在窗体上创建两个单选按钮,名称分别为Option1和Option2,标题分别为“100到300之间的质数”和“200到400之间的质数”,以及一个文本框,名称为Text1。在窗体上创建两个命令按钮,名称分别为Command1和Command2,标题分别为 “计算”和“保存数据”。编写事件过程,程序运行后,单击“计算”按钮,则计算出该单选按钮标题所指明的所有质数之和,并在文本框中输出。单击“保存数据”,存入out.txt文件中,该文件必须放在考生文件夹中(在考生文件夹中有标准模块module1.bas,其中的savedata过程可以把计算结果写入指定文件,用check函数可以判断某整数是否为质数,是则返回True,否则返回False。)程序运行界面如图30所示。要求实现题目给出的功能,并将文件保存在考生文件夹下,工程文件名为ylc.vbp。

在名为Form1的窗体上建立一个文本框(名称为Text1,MultiLine属性为True, ScrollBars属性为2)和3个命令按钮(名称分别为Cmd1、Cmd2和Cmd3,标题分别为“读数”、“计算”和“保存” (如下图所示)。要求程序运行后,如果单击“读数”按钮,则读入in53.txt文件中的100个整数,放入一个数组中(数组下界为1),同时在文本框中显示出来;如果单击“计算保存”按钮,则计算小于或等于500的所有数之和,并把求和结果在文本框Text1中显示出来,同时把该结果存入考生文件夹中的文件out53.txt中(在考生文件夹下有标准模块mode.bas,其中的putdata过程可以把结果存入指定的文件,考生可以把该模块文件添加到自己的工程中,直接调用此过程)。注意:文件必须存放在考生文件夹中,窗体文件名为execise53.frm,工程文件名为 execise53.vbp,计算结果存入out53.txt文件,否则没有成绩。

在考生文件夹内(C:\ylc)有一个工程文件ylc.vbp。在窗体上有一个文本框,名字为Text1,以及两个命令按钮,名字分别为Command1和Command2,标题分别为Search和Save。还有一个函数过程Search(a),在程序中可以直接调用该函数,其功能为判断整型参数number是否为质数。如果是则返回True,否则返回False。编写一个事件过程,实现以下功能:运行时,在文本框内输入一个正整数。单击Search按钮后,找到小于该正整数的第一个素数,显示在 Text1中;单击“Save”,则把Text1中的计算结果存入考生文件夹下的out.txt文件中。程序运行后如图27所示。要求实现题目给出的功能,并将文件保存在考生文件夹下,工程文件名为 ylc.vbp。

注意:下面出现的“考生文件夹”均为C:\wexam\25160002。在考生文件夹下有一个工程文件sjt5.vbp,在该工程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上画一个名称为Text1的文本框;画一个名称为C1,标题为“计算”的命令按钮;再画两个单选按钮,名称分别为Op1和op2,标题分别为“求200到300之间能被7整除的数之和”和“求200到300之间能被3整除的数之和”,如图27-5所示。请编写适当的事件过程,使得在运行时,选中一个单选按钮,再单击“计算”按钮,就可以按照单选按钮后的文字要求计算,并把计算结果放入文本框中,最后把已经修改的工程文件和窗体文件以原来的文件名存盘。注意:考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前,必须至少要进行一种计算,否则不得分。

在名称为Form1的窗体上画一个名称为Text1的文本框,通过属性窗口设置文本框属性,在文本框中显示“AAAA”(如图2—1所示);再建立一个名称为Cmd1,标题为“清除”的命令按钮,编写适当的事件过程。要求程序运行后,如果单击“清除”命令按钮,则清除文本框中所显示的信息。注意:保存时必须存放在考生文件夹下,窗体文件名为sjt3.frm,工程文件名为sit3.vbp。2.在考生文件夹中有工程文件sit4.vbp,它包含一个窗体文件form1。在窗体上有一个列表框,名称为List1,一个文本框,名称为Text1,和一个命令按钮,名称为Command1,标题为“复制”。要求程序运行后,在列表框中自动建立四个列表项,分别为“项目1”、“项目2”、“项目3”、“项目4”。如果选择列表框中的一项,则单击“复制”按钮时,可以把该项复制到文本框中(程序运行结果如图2—2)。要求:编写程序,以实现试题要求的功能。注意:存盘时必须放在考生文件夹下,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。

注意:下面出现的“考生文件夹”均为c:\wexam\25160001。在窗体上有三个菜单,名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”,一个文本框,名称为Text1,MultiLine属性设置为Tree,ScrollBars属性设置为2,如图21-7所示。程序运行后,如果执行“读入数据”命令,则读入datain1.txt文件中的100个整数,放入一个数组中,数组的下界为1;如果单击“计算并输出”按钮,则把该数组中下标为奇数的元素在文本框中显示出来,求出它们的和,并把所求得的和在窗体上显示出来;如果单击“存盘”按钮,则把所求得的和存入考生文件夹下的dataout.txt文件中。在考生文件夹下有一个工程文件sjt5.vbp,窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Air数组中;而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得,文件名为dataout.txt)。请将程序中有问号的地方用相应的代码补完整,将注释号(')去掉。注意:考生不得修改窗体文件中已经存在的程序。存盘时,工程文件名仍为sjt5.vbp,窗体文件名仍为sjt5.frm。

注意:下面出现的“考生文件夹”均为c:\wexam\25160001。(1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“帮助”,名称分别为vbFile和vbHelp,在“文件”菜单下有3个子菜单项,标题分别为“新建”、“打开”和“存盘”,名称分别为 vbNew、vbOpen和vbSave。要求程序运行后,如果选中“文件”下的某个菜单项,则通过MsgBox对话框显示该菜单项的标题,如图3-3所示。注意:保存时必须存放在考生文件夹下,窗体文件名为sjt3.frm,工程文件名为sjt3.vbp。(2)在窗体上建立一个名称为Text1的文本框,再建立一个名称为Cmd1,标题为“计算”的命令按钮,如图3-4所示。要求程序运行后,单击命令按钮,将计算100-200之间所有素数之和,在文本框中显示结果,同时把结果存入文件out.txt中。 (在考生文件夹中有标准模块mode.bas,其中的putdata过程可以把结果存入文件,而isprime函数可以判断整数x是否为素数,如果是素数,则函数返回True,否则返回 False,考生可以把该模块文件添加到自己的工程中。)注意:保存时必须存放在考生文件夹下,窗体文件名为sjt4.frm,工程文件名为sjt4.vbp,结果存入out.txt文件。

在名为Form1的窗体上建立一个文本框,名为Text1;一个命令按钮,名为Cmd1,标题为“计算”,如下图所示。程序运行后,单击“计算”命令按钮,通过在对话框输入整数10,放入整型变量s中,然后计算s!(提示:运算结果应放入Long型变量中),在文本框中显示结果,并把结果存入文件output.txt中(在考生文件夹中有一个标准模块 mode.bas,该模块中提供了保存文件的过程putdata,考生可以直接调用)。注意:文件必须存放在考生文件夹中,窗体文件名为execise54.frm,工程文件名为 exeeise54.vbp。

在考生文件夹中有一个工程文件execise54.vbp设窗体文件execise54.frm。在窗体Form1中已经给出了所有控件,如下图所示。编写适当的事件过程实现以下功能;单击Read按钮,则把考生目录下的in54.txt文件中的一个整数放入Text1;单击Calc按钮,则计算出小于该数的最大素数,并显示在Text2中;单击Save按钮,则把找到的素数存到考生目录下的out54.txt文件中。注意:在结束程序运行之前必须单击Save按钮,把结果存入out54.txt文件,否则无成绩。最后把修改后的文件按原文件名保存。

在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮,如图4-3所,示。程序运行后,单击“计算”命令按钮,通过在对话框输入整数12,放人整型变量a中,然后汁算a!.(提示:运算结果应放人Lon9型变量中),在文本框中显示结果,如图4—4所示,并把结果存入文件out.txt中。考生文件夹中有一个标准模块mode.bas,该模块中提供了保存文件的过程putdata,考生可以直接调用。 注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。

在名称为Form1的窗体上有两个命令按钮(名称分别为Command1和Command2、标题分别为“读取”和“保存”)和一个文本框(名称为Text1、MultiLine属性为True、ScrollBars 属性为2)。要求程序运行后,如果单击“读取”按钮,则读入in.txt文件中的50个整数,放入一个数组中(数组下界为1),并在文本框Text1中显示出来,运行界面如图6-5所示。如果单击“保存”按钮,则把数组中的前30个数据在文本框Textl中显示出来,并存入考生文 件夹中的文件result.txt中。(考生文件夹中有标准模块mode5.bas,其中的writeData过程可以把指定个数的数组元素存人result.txt文件。)注意:在考生乏件夹中有工程文件si5.vbp及其窗体文件sj5.frm,该程序是不完整的,请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“b”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考生文件夹下,窗体文件名为sis.frm,工程文件名为sj5.vbp,结果存入result.txt文件,否则没有成绩。 在考生文件夹中有工程文件sis.vbp及其窗体文件sis.frm,该程序是不完整的,请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。

本题描述如下: 在名称为Form1的窗体上有一个文本框,名称为Textl,MultiLine属性为True,Scr01lBars属性为2;两个命令按钮,名称分别为Command1和Command2、标题分别为“读人数据”和“计算保存”,运行界面如图7-5所示。要求程序运行后,如果单击“读入数据”按钮,则读入in.txt文件中的50个整数,放入一个数组中(数组下界为1),同时在文本框中显示出来;如果单击“计算保存”按钮,则先进行升序排列,计算前25个数的和与后25个数的和之差,并把求得的结果在文本框Text2中显示出来,同时把该结果存入考生文件夹中的out.txt文件中。(在号生文件夹下的标准模块mode.bas中的writedata过程可以把结果存入指定的文件。)注意:文件必须存放在考生文件夹下,窗体文件名为sj5.frm,工程文件名为sj5.vbp,计算结果存入out.txt文件,否则没有成绩。

在名称为Form1的窗体上画一个文本框,名称为Text1,MultiLine属性为True,ScrollBars 属性为2;两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为“读入数据”和“计算保存”,如图3-6所示。要求程序运行后,如果单击“读入数据”按钮,则读入in.txt文件中的100个整数,放入一个数组中(数组下界为1),同时在文本框中显示出来;如果单击“计算保存”按钮,则计算数组中大于或等于400并且小于800的所有数之和,并将结果在文本框Text1中显示出来,同时把结果存入考生文件夹的result.txt文件中(在prog.bas中的putdata过程可以把结果存入 result.txt文件)。注意:文件必须存放在考生文件夹下,窗体文件名为si5.frm,工程文件名为si5.vbp,计算结果存入result.txt文件中,否则没有成绩。

在名为Form1的窗体上建立一个名为Text1的文本框,将MultiLine属性设置为True,ScrollBars属性设置为2。同时建立两个名称分别为Cmd1和Cmd2的命令按钮,标题分别为Read和Save(如下图所示)。要求程序运行后,如果单击Read按钮。则读入inl.txt文件中的100个整数,放入二个数组中(数组下界为1),同时在文本框中显示出来;如果单击Save按钮,则计算数组中大于或等于1并且小于400的所有数之和,把求和结果在文本框Text1中显示出来,同时把计算结果存入考生文件夹中的文件out1.txt中。(在prog.bas中的putdata过程可以把结果存入out1.txt文件,考生可以把该模块文件添加到自己的工程中,直接调用此过程)注意:文件必须存放在考生文件夹中,窗体文件名为execise1.frm,工程文件名为execise1.vbp,计算结果存入out1.txt,否则没有成绩。

在考生文件夹中有一个工程文件execise2.vbp及窗体文件execise2.frm。在名为Form1的窗体上有一个文本框,名称为Text1:还有两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为“计算”和“保存”,如下图所示。有一个函数过程isprime可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则返回True,否则返回False。编写适当的事件过程,使得在运行时,单击“计算”按钮,则找出大于5000的第1个素数,并显示在Text1中:单击“保存”按钮,则把Text1中的计算结果存入考生文件夹下的out2.txt文件中。注意:考生不得修改isprime函数过程和控件的属性,必须把计算结果通过“保存”按钮存入 out2.txt文件中,否则无成绩。

在名为Form1的窗体上建立一个文本框,名为Text1;建立一个命令按钮,名为Cmd1,标题为“计算”的,如下图所示。要求程序运行后,如果单击“计算”按钮,则求出1~30之间所有可以被7整除的数的乘积并在文本框中显示出来,结果存入考生文件夹中的out117.txt文件中。在考生的文件夹中有一个mode.bas标准模块,该模块中提供了保存文件的过程putdah,考生可以直接调用。注意:文件必须存放在考生文件夹中,窗体文件名为execisell7.frm,工程文件名为execise117.Vbp。

(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm,该程序是不完整的。在窗体上有两个单选按钮,名称分别为Op1和Op2,标题分别为斜体和黑体,一个文本框,名称为Text1,字体为宋体,字号为四号字,还有一个命令按钮,名称为Command1,标题为切换。要求程序运行后,在文本框中输入测试结果,并选择一个单选按钮,单击切换按钮后,会根据所选的单选按钮来切换文本框中所显示的汉字字体,程序运行时的窗体界面如图12-3所示。注意:请在有?的地方填入正确内容,然后删除?及代码前的所有注释符‘但不能修改其他部分。存盘时不得改变文件名和文件夹。(2)在考生文件夹下有一个工程文件sj4.vbp,窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,标题是计算。程序运行后,单击计算命令按钮,通过对话框输人整数12,放入整型变量a中,然后计算1+2+3+…+a(提示:运算结果应放人Long型变量中),如图12-4所示。在文本框中显示结果,并把结果存入文件out4.txt中。在考生文件夹中有一个标准模块mode4.bas,该模块中提供了保存文件的过程WriteData,考生可以直接调用。注意:去掉程序中的注释符‘,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。

(1)在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮,如图64-3所示。程序运行后,单击“计算”命令按钮,通过在对话框输人整数12,放入整型变量a中,然后计算a!(提示:运算结果应放入Long型变量中),在文本框中显示结果,如图64-4所示,并把结果存入文件out.txt中。考生文件夹中有一个标准模块mode.bas,该模块中提供了保存文件的过程PutData,考生可以直接调用。注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。(2)在考生文件夹中有一个工程文件sj4.vbp及窗体文件sj4.frm。在名为Form1的窗体上有两个容器,其中一个容器中有两个单选按钮,另一个容器中有两个复选框,窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,则对文本框中的文字进行相应的设置,如图64-5所示。窗体上的控件已经绘制出,但没有给出主要程序内容,请编写适当的事件过程,完成上述功能。注意:不能修改已经给出的程序部分和已有的控件;在结束程序运行之前,必须选中一个单选按钮和至少一个复选框,并单击“确定”按钮;必须通过单击窗体右上角的“关闭”按钮结束程序,否则无成绩。最后,按原文件名并在原文件夹中保存修改后的文件。

在名为Form1的窗体上建立一个文本框,名为Text1;再建立一个命令按钮,名为Cmd1,标题为“计算”,如下图所示。要求程序运行后,单击命令按钮,则计算出1~200之间所有素数之和,并在文本框中显示结果,同时把结果存入文件out48.txt中(在考生文件夹中有标准模块mode.bas,其中的 putdata过程可以把结果存入文件;而isprime函数可以判断整数x是否为素数,如果是素数,则函数返回True,否则返回False;考生可以把该模块文件添加到自己的工程中)。注意:文件必须存放在考生文件夹中,窗体文件名为execise48.frm,工程文件名为 execise48.vbpo

在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个标题为“计算”的命令按钮,1个标题为“1!+2!+…+10!=”的标签。请画1个名称为Text1,初始内容为空的文本框,如图所示。程序功能:单击“计算”命令按钮,则计算“l!+2!+…+10!”的值,并将结果显示在Textl文本框中。请将“计算”命令按钮的Click事件过程中的注释符去掉,把?改为正确的内容,以实现上述程序功能。注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序按原文件名存盘。

在考生文件夹中有一个工程文件execise56.vbp及窗体文件execise56.frm。在窗体Form1上有一个文本框,名称为Text1;还有两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为“计算”和“存盘”,如下图所示。有一个函数过程isprime可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则返回True,否则返回False。编写适当的事件过程,使得在运行时,单击“计算”按钮,则找出小于5000的最大的素数,并显示在Text1中:单击“存盘”按钮,则把Text1中的计算结果存入考生目录下的out56.txt文件中。注意:考生不得修改isprime函数过程和控件的属性,必须把计算结果通过“存盘”按钮存入 out56.txt文件中,否则无成绩。

在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”按钮,则可以将该偶数分解为两个素数之和,且要求其中一一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合,例如24可以分解为5和19,也可以分解为11和13,要求取含有最小素数的组合,如图8所示)。要求编写“分解为”按钮事件过程中“考生编写程序开始”和“考生编写程序结束”之间的代码.以实现上述功能。过程IsPrime用来判断一个数是否为素数,如果是,返回值为True,否则返叵值为False。 注意:不得修改原有程序和控件的属性。至少正确运行一次程序,且运行时在文本框中输入23456,单击“分解为”按钮,将结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。

在考生文件夹下有一个工程文件sj5.vbp,其窗体上有一个文本框,名称为Text1;有三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“输入”、“计算显示”和“保存”,运行界面如图25-5所示。在给定程序中有一个函数过程isPrimeNum,其功能是判断参数是否为素数,如果是素数,则返回True,否则返回False。请将程序中有“?”的地方替换为相应的代码,使得在运行时,单击“输入”按钮,弹出“输入”对话框,单击“计算显示”按钮,则找出大于输入参数的最小素数,并显示在Text1中;单击“保存”按钮,则把Text1中的计算结果存入考生文件夹下的out5.txt文件中。注意:去掉程序中的注释符“‘”,把程序中的“?”改为正确的内容,使其实现下述功能,但不能修改程序中的其他部分,也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。考生不得修改isPrimeNum函数过程和控件的属性,必须把计算结果通过“保存”按钮存入out5.txt文件中,否则无成绩。

在名为Form1的窗体上建立两个名称分别为Opt1和Opt2、标题分别为“1-300之间素数”和“300-500之间素数”的单选按钮,一个名为Text1文本框和两个名称分别为Cmd1和Cmd2,标题分别为“计算”和“保存”命令按钮,如下图所示。程序运行后,如果选中一个单选按钮并单击“计算”按钮,则计算出该单选按钮标题所指明的所有素数之和。并在文本框中显示出来。如果单击“保存”按钮,则把计算结果存入out19.txt文件中,该文件必须放在考生文件夹中(在考生文件夹中有标准模块 mode.bas,其中的putdata过程可以把结果存入指定的文件,而isprime函数可以判断整数x是否为素数,如果是素数,则函数返回True,否则返回False,考生可以将该模块文件添加到自己的工程中)。注意:必须把300~500之间的素数之和存入考生文件夹下的out19.txt文件中,否则没有成绩。保存程序时必须存放在考生文件夹中,窗体文件名为execise19.frm,工程文件名为 execise19.vbp。

在考生文件夹中有一个工程文件execise7.vbp及窗体文件exeeise7.frm。在名为Form1的窗体中已经给出了所有控件,如下图所示。编写适当的事件过程完成以下功能:单击Read按钮,则把考生目录下的in7.txt文件中的一个整数放入Text1;单击Calc按钮,则计算出大于该数的第1个素数,并显示在Text2中;单击Save按钮,则把找到的素数存到考生目录下的out7.txt文件中。注意:在结束程序运行之前,必须单击Save按钮,把结果存入out7.txt文件,否则无成绩。最后把修改后的文件按原文件名保存。

在考生文件夹下有一个工程文件execise23.vbp(相应的窗体文件为execise23.frm)。在名为Form1的窗体上有2个文本框,名称分别为Text1和Text2还有3个命令按钮,名称分别为Cmd1、Cmd2和Cmd3,标题分别为“读取”、“计算”和“保存”,如下图所示。有一个函数过程isprime可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则返回True,否则返回False。编写适当的事件过程,使得在运行时,单击“读取”按钮,就把文件in23.txt中的整数放入Text1中;单击“计算”按钮,则找出大于Text1中的整数的第1个素数,并显示在Text2中;单击“保存”按钮,则把Text2中的计算结果存入out23.txt文件中。注意:考生不得修改isprime函数过程和控件的属性,必须把计算结果通过“保存”按钮存入 out23.txt文件中。

问答题在名称为Form1的窗体上建立一个文本框(名称为Text1,且MultiLine属性为True,ScrollBars属性为2)和两个命令按钮(名称分别为Command1和Command2,标题分别为“读入数据”和“计算保存”),如下图所示。要求程序运行后,如果单击“读入数据”按钮则读入in003.txt文件中的100个整数放入一个数组中(数组下界为1),同时在文本框中显示出来;如果单击“计算保存”按钮则计算数组中大于或等于400并且小于800的所有数之和,把求和结果在文本框Text1中显示出来,同时把结果存入考生文件夹中的out003.txt文件中。补充窗体模块中“?”处的程序。(在mode003.bas中的put data过程可以把结果存入out003.txt文件中。)  注意:文件必须存放在考生文件夹下,窗体文件名为djks003.frm,工程文件名为djks003.vbp,计算结果存入out003.txt。否则没有成绩。  程序运行的窗体界面如右图所示。试题源程序如下: