首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Text1;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3.77所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Text1;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3.77所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
admin
2018-12-20
47
问题
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Text1;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3.77所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则返回True,否则返回False。请编写适当的事件过程,使得在运行时,单击“计算”按钮,则找出大于15000的第一个素数,并显示在Text1中;单击“存盘”按钮,则把Text1中的计算结果存入考生文件夹下的out5.txt文件中。
注意:考生不得修改isprime函数过程和控件的属性,必须把计算结果通过单击“存盘”按钮存入out5.txt文件中,否则无成绩。
选项
答案
步骤1:打开本题对应工程文件sjt5.vbp。 步骤2:双击窗体Form1上的“计算”按钮,打开代码编辑窗口,在其Click事件过程中输入如下代码。参考代码: PriVate Sub C1_Click() a%=15000 Do a% =a% + 1 Loop Until isprime(a%) Text1.Text=a% End Sub 步骤3:双击窗体Form1上的“存盘”按钮,在代码编辑窗口其Click事件过程中输入如下代码。参考代码: Private Sub C2_Click() Open App.Path &"\out5.txt"For Outpult As #1 Print#l,Text1.Text Close #1 End Sub 步骤4:按要求将文件保存至考生文件夹中。
解析
素数的判断准则就是看该数除了1和其本身外有无其他约数。程序设计思路:要找出大于15000的第一个素数,可以定义一个初值为15000的整型变量a,通过调用函数isprime(a),以其返回值是素数(即isprime(a))作为Do循环语句的继续循环条件,在循环体中加入语句:a=a+1,实现每执行循环体一次变量a的值增加1,当循环结束时将a的值在文本框中显示出来。
要将结果存入考生文件夹下的out5.txt文件,可先用Open语句以输出方式打开该文件;然后通过Print语句将文本框中的内容写入打开的文件;最后用Close语句关闭打开的文件。
转载请注明原文地址:https://kaotiyun.com/show/gyFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有语句:Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是( )。
以下叙述中错误的是( )。
以下关于控件数组的叙述中,错误的是( )。
如果要将一个窗体从内存中清除,应使用的语句是
数据字典(DD)所定义的对象都包含于
已知列表框控件List1中已放入若干表项,下列关于List1的叙述中错误的是
在关系数据库中,用来表示实体间联系的是
下列关于软件工程的描述中正确的是
下列不属于软件工程3个要素的是.()。
随机试题
蛋白质-热能营养不良患儿皮下脂肪逐渐减少或消失,首先累及的部位是( )。【2005年考试真题】
我国上海证券市场上允许发行和流通的证券包括()。
[2007年第94题]某大型商场(净高小于6.0m)设置机械排烟系统。以下哪种防烟分区分隔做法是不正确的?
美术学习档案袋包含哪些内容?
下列成语与漫画(作者:石松涛)蕴含的哲学道理一致的是()。
能引起流感、艾滋病等疾病的微生物是:
某作家在一书城举办签售会,已知签售会8:30开始,但是之前已有人提前排队等候,从第一个顾客来到时起,每分钟所到来的人数相同,如果开4个入场口,则在8:37时便不会有人排队,若开5个人场口,则在8:35时便不会有人排队,那么第一个顾客到达的时间是几点?(秒数
从所给的四个选项中,选择最合适的一个填入问号处,使之呈现一定的规律性。
Doyouknowinsurance(保险)?Buyinginsuranceisameansbywhichpeoplecanprotectthemselves【C1】______largelosses.Protection
A、Helpothersfornothinginreturn.B、Savemoneytohelpothers.C、Trytomakemoremoney.D、Gethelpfromtherichones.A讲座中提
最新回复
(
0
)