首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件(如图3—116所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Text1;单击“计算”按钮,则计算出大于该数的第一个素数,并
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件(如图3—116所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Text1;单击“计算”按钮,则计算出大于该数的第一个素数,并
admin
2017-03-27
23
问题
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件(如图3—116所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Text1;单击“计算”按钮,则计算出大于该数的第一个素数,并显示在Text2中;单击“存盘”按钮,则把找到的素数存到考生目录下的out5.txt文件中。
注意:在结束程序运行之前,必须单击“存盘”按钮,把结果存入out5.txt文件,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题对应工程文件sjt5.vbp。 步骤2:双击窗体Form1上的“计算”按钮,打开代码编辑窗口,在其Click事件过程中输入如下代码。 参考代码: Private Sub Command2_Click() a%=CInt(Text1.Text) Do a%=a%+1 Loop Until isprime(a%) Text2.Text=a% End Sub 步骤3:编写判断素数的函数过程isprime,参考代码为: Function isprime(a As Integer) Dim flag As Boolean k%=2 flag=True While 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:按<F5>键运行程序,先单击“读数”按钮,接着单击“计算”按钮,最后单击“存楹”按钮。 步骤5:按要求将文件保存至考生文件夹中。
解析
程序设计思路:要找出大于给定数的最小素数,可以首先将给定数加1赋值给变量a,通过调用函数isprime(a),以其返回值不是素数作为Do循环语句的循环条件,在循环体中加入语句:a=a+1实现每执行循环体一次变量a的值加1,当循环结束时a的值即为所求。
转载请注明原文地址:https://jikaoti.com/ti/mOy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
改变驱动器列表框的Drive属性值将激活______事件。
当一个工程含有多个窗体时,其中的启动窗体是______。
关于结构化程序设计原则和方法的描述错误的是()。
执行下面的程序段后,S的值为【】。s=5Fori=2.6To4.9Step0.6s=s+1Nexti
数据结构分为逻辑结构和存储结构,循环队列属于【】结构。
在窗体上画一个命令按钮command1和两个文本框,名称分别为Text1和Text2。编写如下两个事件过程:DimStr1AsString,str2AsStringPrivateSubform_load()Tex
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dima(1To10)Dimp(1To3)k=5Fori=1To10a(i)=iNextiFori=1To3p
随机试题
在考生文件夹下的“samp1.accdb”数据库文件中已建立两个表对象(名为“职工表”和“部门表”)。请按以下要求,顺序完成表的各种操作:设置表对象“职工表”的聘用时间字段默认值为系统日期。
使血压测量值相对准确的措施不包括
《最高人民法院关于审理盗窃案件具体应用法律若干问题的解释》规定:各地高级人民法院可根据本地区经济发展状况,并考虑社会治安状况,在本解释规定的数额幅度内,分别确定本地区执行“数额较大”、“数额巨大”、“数额特别巨大”的标准。依据法理学的有关原理,下列正确的表
以下企业中,属于转让定价调查应重点选择的企业有()。
每笔个人汽车贷款只能展期()次。
客户信用评级是商业银行对客户偿债能力和偿债意愿的计量和评价,反映客户违约风险的大小。()
下列关于处理意见分歧的说法中,正确的是()。
王华被学校委派到国际交流处负责外籍老师的引进和管理工作。()
Previousresearchesonmindfulnessmeditationhaveshownsomeresultsthatinfluencepeopleformanyyears.Itshowsthatmindfu
SIGG’strendyaluminumwaterbottleshavescoredalotoffreeadvertisinginrecentyears.SIGGhasbeen【67】formorethan100y
最新回复
(
0
)