2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有两个文本框，名称分别为Textl、Text2：还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“输入”、“计算”、“存盘”(如图1-210所示)。并有一个函数过程isprime(a)可以在程序

在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有两个文本框，名称分别为Textl、Text2：还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“输入”、“计算”、“存盘”(如图1-210所示)。并有一个函数过程isprime(a)可以在程序

admin2010-09-02  51
问题 在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有两个文本框，名称分别为Textl、Text2：还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“输入”、“计算”、“存盘”(如图1-210所示)。并有一个函数过程isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。请编写适当的事件过程，使得在运行时，单击“输入”按钮，就把文件in5．txt中的整数放入Textl中；单击“计算”按钮，则找出大于Textl中的整数的第一个素数，并显示在Text2中；单击“存盘”按钮，则把Text2中的计算结果存入out5．txt文件中。
注意：考生不得修改isprime函数过程和控件的属性，必须把计算结果通过单击“存盘”按钮存入out5．txt文件中。
选项
答案 【操作步骤】 步骤l：打开考生文件中的本题工程文件sit5．vbp，在代码编辑窗口，分别编写命令按钮的单击事件。 参考代码： Private Sub Cl_Click() Open"in5．txt"For Input As#1 Input#1，a％ Close#1 Textl．Text=a％ End Sub Private Sub C2_Click() a％=Text1．Text DO a％=a％+1 Loop Until isprime(a％) Text2．Text=a％ End S11b Private Sub C3_Click() Open"out5．txt"For Output As#1 Print#1，Text2．Text Close#1 End Sub 步骤2：按要求将文件保存至考生文件夹中。
解析 程序设计思路：在“输入”按钮的单击事件过程中，用Open语句以Input方式打开数据文件in5．txt，并用Input()函数读出所有字符后显示在文本框中；在“计算”按钮的单击事件过程中，调用过程isprime来求解大于Textl中整数的第一个素数。
    在“存盘”按钮的单击事件过程中，用Open语句以Output方式打开数据文件out5．txt，并通过For循环用Print#方法逐一将数组中的元素存入该文件。
转载请注明原文地址:https://www.kaotiyun.com/show/EUmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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