在考生文件夹下有一个工程文件sjt5.vbp,窗体上有2个标题分别是“读数据”和“查找质数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图3—36所示。 程序功能: (1)考生文件

admin2017-10-27  30

问题 在考生文件夹下有一个工程文件sjt5.vbp,窗体上有2个标题分别是“读数据”和“查找质数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图3—36所示。

    程序功能:
    (1)考生文件夹下in5.dat文件中存放着100个大于10的正整数。单击“读数据”按钮,则将in5.dat文件中的数据读入数组a中。
    (2)单击“查找质数”按钮,则查找in5.dat文件中的所有质数,并将这些质数顺次显示在Text1文本框内。
    “读数据”按钮的Click事件过程己给出,请编写函数prime,实现上述功能。
    注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须使用“查找质数”按钮完成查找质数的过程,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。

选项

答案【操作步骤】 步骤1:打开考生文件夹中的工程文件sjt5.vbp,在窗体上添加以一个文本框,并按照表4—24设置相关属性。 [*] 步骤2:在代码编辑窗口中,补充prime函数。参考代码: Function prime(P As Integer) As Boolean ’考生编写 Dim flag As Boolean flag=True For m==2 To P/2 If P Mod m=0 Then flag=False Exit For End If Next m prime=flag End Function 步骤3:按运行程序,单击各按钮测试验证。 步骤4:按要求将文件保存至考生文件夹中。

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

最新回复(0)