在考生目录下有一个工程文件sjt5.vbp。运行程序后,单击“读数据”按钮,从data5.dat文件中读出一个数据,并显示在标签Labe11.1中;单击“找素数”按钮,则在大于Labe11的数据范围内找出最小的素数,并将其显示在标签Labe12中。

admin2019-03-14  29

问题 在考生目录下有一个工程文件sjt5.vbp。运行程序后,单击“读数据”按钮,从data5.dat文件中读出一个数据,并显示在标签Labe11.1中;单击“找素数”按钮,则在大于Labe11的数据范围内找出最小的素数,并将其显示在标签Labe12中。
    在给出的窗体文件中已经有了全部控件,并给出了读写文件和判断素数的程序代码。但程序不完整。
    要求:去掉程序中的注释符,把程序中的“?”改为正确的内容,并编写相应程序段,实现程序功能。
    注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,各命令按钮的事件过程必须至少各执行一次。

选项

答案【操作步骤】 步骤1:打开考生文件夹中的工程文件sjt5.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Labe11.Caption=x Close#1 Private Sub Command2 C1ick() ’=========以下考生编写============ Dim n As Integer n=Labe11.Caption+1 While(P(n)=False) n=n+1 Wend Labe12.CaDtion=n ’====考生编写程序结束============== Open App.Path&"\out5.dat"For Output As#1 Print#1,Labe12.Caption Close #1 End Sub 步骤2:按<F5>键运行程序,单击各个按钮测试验证。 步骤3:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://kaotiyun.com/show/GbUp777K
0

随机试题
最新回复(0)