2. 计算机
  3. 在考生文件夹下有一个工程文件sj5．vbp，其窗体上有一个文本框，名称为Textl；有三个命令按钮，名称分别为Commandl、Command2和Command3，标题分别为“输入”、“计算显示”和“保存”，运行界面如图45—5所示。在给定程序中有一个函数

在考生文件夹下有一个工程文件sj5．vbp，其窗体上有一个文本框，名称为Textl；有三个命令按钮，名称分别为Commandl、Command2和Command3，标题分别为“输入”、“计算显示”和“保存”，运行界面如图45—5所示。在给定程序中有一个函数

admin2010-07-13  51
问题  在考生文件夹下有一个工程文件sj5．vbp，其窗体上有一个文本框，名称为Textl；有三个命令按钮，名称分别为Commandl、Command2和Command3，标题分别为“输入”、“计算显示”和“保存”，运行界面如图45—5所示。在给定程序中有一个函数过程isPrimeNum，其功能是判断参数是否为素数，如果是素数，则返回True，否则返回False。
    请将程序中有问号(即“?”)的地方替换为相应的代码，使得在运行时，单击“输入”按钮，弹出“输入”对话框，单击“计算显示”按钮，则找出大于输人参数的最小素数，并显示在Textl中；单击“保存”按钮，则把Textl中的计算结果存入考生文件夹下的out5．txt文件中。

    注意：去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。考生不得修改isPrimeNum函数过程和控件的属性，必须把计算结果通过“保存”按钮存入out5．txt文件中，否则无成绩。
选项
答案 判断一个数是否为素数就是看该数是否除了1及其本身外别无其他约数(即从2到n-1之间没有可以将其整除的数)即可，从Function函数中可知，变量isPrimeNum用于保留判断数是否是素数的结果，值为True表示是素数，值为False表示不是素数。文本框通过Text属性显示计算结果，其形式为：文本框名．Text=要显示的内容。将数据写入文件可用命令Write#语句或Print#语句，本程序中用的是前者，其形式为：Write#文件号，[输出列表]。 根据题意，将一个文本框控件和3个命令按钮添加到窗体中，文本框的名称为Textl，Text属性为空，命令按钮的名称分别为Commandl，Command2和Command3，Caption属性分别为“输入”、“计算显示”和“保存”。双击Commandl进入代码窗口，编写如下代码： Dim a As Integer Dim res As Integer Private Sub Commandl Click() a=Val(InputBox("输入参数：")) ’弹出输入对话框 End Sub Private Sub Command2_Click() While isPrimeNum(a)=False’如果输入参数不是素数则继续循环 a=a+1 Wend Textl．Text=a’将获得的素数在Textl中显示出来 End Sub Function isPrimeNum(num As Integer)As Boolean’判断输入是否为素数 isPrimeNum=True Dim i As Integer For i=2 To num-1 If num Mod i=0 Then isPrimeNum=False End If Next i End Function Private Sub Command3 Click() Open App．Path&"out．txt"For Output As#1 Write#l，a Close#1 End Sub 单击[*] 按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/vLmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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