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

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

admin2010-09-02  32
问题 在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件(如图1-113所示)。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目录下的in5．txt文件中的一个整数放入Textl：单击“计算”按钮，则计算出大于该数的第一个素数，并显示在Text2中；单击“存盘”按钮，则把找到的素数存到考生目录下的out5．txt文件中。
注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入out5．txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案 【操作步骤】 步骤l：打开本题对应工程文件sjt5．vbp。 步骤2：双击窗体Forml上的“计算”按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码： 参考代码： PriVate Sub Cormmand2_Click() a％=CInt(Textl．Text) Do a％=a％+l Loop Until isprime(a％) Text2．Text=a％ End Sub 步骤3：编写判断素数的函数过程isprime，参考代码为： Functioff isprime(a As Ingeger) Dim flag As B00lean k％=2 flag=True ffhile k％<=Int(a／2) And flag If a／k％=Int(a／k％) Then flag=False End If k％=k％+1 Wend isprime=flag End Function 步骤4：按键运行程序，先单击“读数”按钮，接着单击“计算”按钮，最后单击“存盘”按钮。 步骤5：按要求将文件保存至考生文件夹中。
解析     ①过程是构成程序的一个模块，常用来完成一个相对独立的功能。Function过程也叫函数过程，一般用于调用后不仅要执行一组代码完成相应操作，还需返回一个有用值的情况。Function函数的参数有两种传递方式：按值传递(Byval)和按址传递(Byref)，默认为按址传递。调用Function函数常放在赋值符右端。
    ②For循环通常用于知道次数的循环，在不知道明确的循环次数的情况下，我们可以用条件来控制循环，While循环和Do循环就是用条件来控制的循环。
    ③素数的判断准则就是看该数除了l和其本身外是否别无其他约数。
    程序设计思路：要找出大于给定数的最小素数，可以首先将给定数加1赋值给变量a，通过调用函数isprime(a)，以其返回值不是素数作为Do循环语句的循环条件，在循环体中加入语句：a=a+l实现每执行循环体一次变量a的值加1，当循环结束时a的值即为所求。
转载请注明原文地址:https://kaotiyun.com/show/1Tmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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