在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件(如图3-82所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Text1;单击“计算”按钮,则计算出大于该数的第一个素数,并显

admin2019-05-14  28

问题 在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件(如图3-82所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Text1;单击“计算”按钮,则计算出大于该数的第一个素数,并显示在Text2中;单击“存盘”按钮,则把找到的素数存到考生目录下的out5.txt文件中。
    注意:在结束程序运行之前,必须单击“存盘”按钮,把结果存入out5.txt文件,否则无成绩。最后把修改后的文件按原文件名存盘。
   

选项

答案审题分析 程序设计思路:要找出大于给定数的最小素数,可以首先将给定数加1赋值给变量a,通过调用函数isprime(a),以其返回值不是素数作为Do循环语句的循环条件,在循环体中加入语句:a=a+1实现每执行循环体一次变量a的值加1,当循环结束时a的值即为所求。 操作步骤 步骤1:打开本题对应工程文件sjt5.vbp。 步骤2:双击窗体Form1上的“计算”按钮,打开代码编辑窗口,在其Click事件过程中输入如下代码: 参考代码: Private Sub Command2_Click() a%=CInt(Text1.Text) Do a%=a%+1 Loop Unti1 isprime(a%) Text2.Text=a% End Sub 步骤3:编写判断素数的函数过程isprime, 参考代码为: Function isprime(a As Integer) Dim flag As Boolean k%=2 flag=True While k%<=Int(a/2) And flag If a/k%=Int(a/k%) Then flaa=False End If k%=k%+1 Wend isprime=flag End FunctiOn 步骤4:按键运行程序,先单击“读数”按钮,接着单击“计算”按钮,最后单击“存盘”按钮。 步骤5:按要求将文件保存至考生文件夹中。 考点链接 Do循环和While循环、Sub过程和函数过程、参数调用。

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

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