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

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

admin2009-03-26  31
问题 在考生文件夹下有一个工程文件sj5．vbp，其窗体上有一个文本框，名称为Textl；有3个命令按钮，名称分别为Commandl、Command2和Command3，标题分别为“输入”、“计算显示”和“保存”，程序运行时的窗体界面如图25—5所示。在给定程序中有一个函数过程isPrimeNum。其功能是判断参数是否为素数，如果是素数，则返回True，否则返回False。

    请将程序中有问号的地方替换为相应的代码．使得在运行时，单击“输入”按钮，弹出“输入”对话框以便输入整数，单击“计算显示”按钮，则找出小于输入参数的最大素数，并显示在Text1中；单击“保存”按钮，则把Textl中的计算结果存人考生文件夹下的out5．txt文件中。
    注意：去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。考生不得修改isPrimeNum函数过程和控件的属性，必须把计算结果通过“存盘”按钮存入out5．txt文件中，否则无成绩。
选项
答案 素数的判断准则就是看该数是否除了1及其本身外无其他约数(即从2到n-1之间没有可以将其整除的数)即可。文本框用Text属性来显示计算结果，其形式为：文本框名．Text=显示内容。将数据写入文件可用命令Write#或Print#，本程序中用的是后者，其形式为：Print#文件号，[输出列表]。 根据题意，将一个文本框控件和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’将获得的素数在Text1中显示出来 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~”＼out5．txt”For Output As #1 Write#1，a Close#1 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/aV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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