2. 计算机
  3. 在考生目录下有一个工程文件sjt5．vbp，其窗体上有一个文本框，名称为Text1；还有两个命令按钮，名称分别为C1、C2，标题分别为“计算”、“存盘”，如图3—77所示。并有一个函数过程isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素

在考生目录下有一个工程文件sjt5．vbp，其窗体上有一个文本框，名称为Text1；还有两个命令按钮，名称分别为C1、C2，标题分别为“计算”、“存盘”，如图3—77所示。并有一个函数过程isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素

admin2019-05-14  23
问题 在考生目录下有一个工程文件sjt5．vbp，其窗体上有一个文本框，名称为Text1；还有两个命令按钮，名称分别为C1、C2，标题分别为“计算”、“存盘”，如图3—77所示。并有一个函数过程isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。请编写适当的事件过程，使得在运行时，单击“计算”按钮，则找出大于15000的第一个素数，并显示在Text1中；单击“存盘”按钮，则把Text1中的计算结果存入考生文件夹下的out5．tXt文件中。
注意：考生不得修改isprime函数过程和控件的属性，必须把计算结果通过单击“存盘”按钮存入out5．txt文件中，否则无成绩。
选项
答案步骤1：打开本题对应工程文件sjt5．vbp。 步骤2：双击窗体Form1上的“计算”按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码。 参考代码： Private Sub C1_Click() a％=15000 Do a％=a％+1 Loop Until isprime(a％) Text1．Text=a％ End Sub 步骤3：双击窗体Form1上的“存盘”按钮，在代码编辑窗口其Click事件过程中输入如下代码。 参考代码： Private Sub C2_Click() Open App．Path&"＼out5．txt"For Output As#1 print：#1，Text1．Text Close#1 End Sub 步骤4：按要求将文件保存至考生文件夹中。
解析 素数的判断准则就是看该数除了1和其本身外有无其他约数。程序设计思路：要找出大干15000的第一个素数，可以定义一个初值为15000的整型变量a，通过调用函数isprime(a)，以其返回值是素数(即isprime(a))作为Do循环语句的继续循环条件，在循环体中加入语句：a=a+1，实现每执行循环体一次变量a的值增加1，当循环结束时将a的值在文本框中显示出来。
要将结果存入考生文件夹下的out5．txt文件，可先用Open语句以输出方式打丌该文件；然后通过Print语句将文本框中的内容写入打开的文件；最后用Close语句关闭打开的文件。
转载请注明原文地址:https://kaotiyun.com/show/ZUUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)