首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件(如图1-113所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Textl:单击“计算”按钮,则计算出大于该数的第一个素数,并
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件(如图1-113所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Textl:单击“计算”按钮,则计算出大于该数的第一个素数,并
admin
2010-09-02
44
问题
在考生目录下有一个工程文件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全国计算机二级
相关试题推荐
下列数组array_test中,能在程序运行时动态调整大小的是
用树形结构表示实体之间联系的模型是
在一个类的内部嵌套定义的类称为______。
数据库系统的主要特点为数据集成性、数据的高______和低冗余性、数据独立性和数据统一管理和控制。
在文件类提供的方法中,用于创建目录的方法是.
在两种基本测试方法中,【】测试的原则之一是保证所测模块中每一个独立路径至少要执行一次。
在Java中,实现用户界面功能的包是()。
单个用户使用的数据视图的描述称为( )。
数据库系统其内部分为三级模式,即概念模式、内模式和外模式。其中,______是用户的数据视图,也就是用户所见到的数据模式。
我们在Java程序中把关键字【】加到方法名称的前面,来实现子类调用父类的方法。
随机试题
急性附睾炎好发年龄为:
下列关于火灾报警控制器的消音功能的说法中,错误的是()。
简述设置和登记账簿的作用。
在新的历史起点上,如何做到在实践中检验真理和发展真理?
当其取于心而注于手也,惟陈言之务去,戛戛乎其难哉!
《类经图翼》指出:"阴经之输并于"何穴
在其他条件不变的情况下,考虑资金时间价值时,下列现金流量图中效益最好的是()。
已知幂级数在x>0时发散,且在x=0时收敛,则
CulturalUnderstandingLikelearningalanguage,developingculturalunderstandingoccursstepl>ystepovertime.Herearefive
A、Consequencesofaccidents.B、Communicationsindriving.C、Lossoflifeinaccidents.D、Useofmobiledevices.D录音提到,移动通讯与驾驶中注意
最新回复
(
0
)