首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹卜有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”命令按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数
在考生文件夹卜有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”命令按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数
admin
2020-07-22
51
问题
在考生文件夹卜有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”命令按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合,例如24可以分解为5和19,也可以分解为11和13,要求取含有最小素数的组合,如图所示)。要求编写“分解为”命令按钮事件过程中“考牛编写程序开始”和“考生编写程序结束”之间的代码,以实现上述功能。过程IsPrime用来判断一个数是否为素数,如果是,返同值为True,否则返回值为False。
注意:不得修改原有程序和控件的属性。至少正确运行一次程序,且程序运行时在文本框中输入23456,单击“分解为”按钮,将结果显示在标签中,否则将没有成绩,最后将修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 For i=1 To Val(Textl.Text)’i从1开始,第一个找到的肯定就是满足务件的最小素数 If IsPrime《i)And IsPrime(Val(Text1.Text)-i)Then’判定两个数是否都满足素数条件 Labe11=i Labe12=Val(Text1.Text)-i ExitFor End If Next i 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
Function IsPrime()函数用来判断一个数是否为素数,在处理循环变量的上限时,为了节约循环的次数,设置为Sqr(x)为x的平方根,如果x能被循环变量的值整除,IsPrime()函数的返回值为False,x就不是素数。在Command1—Click事件过程中,通过调用函数判断是否为素数。只要出现一组数据满足条件,就停止。For循环,这样可以保证是最小的素数。
转载请注明原文地址:https://kaotiyun.com/show/5VHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Combo1的组合框,为了引用Combo1中最后一个列表项,应使用的表达式是
设窗体名称为frmTest,为了在程序代码中将窗体的标题改为"等级考试",其代码应该是
要清除已经在图片框Picturel中打印的字符串而不清除图片框中的图像,应使用语句()。
对建立良好的程序设计风格,下面描述正确的是()。
在黑盒测试方法中,设计测试用例的主要根据是( )。
下面关于数据库三级模式结构的叙述中,正确的是()。
将E-R图转换为关系模式时,实体和联系都可以表示为( )。
假定已在窗体上画了多个控件,其中有一个被选中,为J了存属性窗口中设置窗体的属性,预先应执行的操作是()。
为了通过传值方式来传送过程参数,在函数声明部分应使用的关键字为
随机试题
君君一遇到困难就怯懦退缩,这反映的是性格的()
世界银行集团是由下列哪些国际金融组织组成的()
钢筋混凝土T梁,梁肋的宽度b=180mm,梁高h=1300mm,翼缘板的计算宽度为bf’=1380mm,hf’=110mm,所承受的弯矩组合设计值Md=980kN.m,结构重要性系数为1.0,拟采用C25混凝土,HRB335钢筋,受拉主钢筋形心到截面下缘的
关于食管癌的描述,下列哪项正确?
某案,公安机关决定对犯罪嫌疑人实行取保候审,下列说法正确的是()
关于指定居所监视居住,以下说法错误的是:()
根据《旅游饭店星级的划分与评定》,()可以自愿申报评定星级。
不报、谎报安全事故罪是指在安全事故发生后,负有报告职责的人员不报或者谎报事故情况,贻误事故抢救,情节严重的行为。犯罪主体为对安全事故负有报告职责的人员,即生产经营单位的负责人、实际控制人、负责经营的投资人以及其他负有报告职责的人员。根据上述定义,
编写如下程序:PrivateSubCommand1_Click()DimnAsInteger,tAsLongStaticsAsIntegert=1Forn=1To3t=
Whendoesthemanworkeveryday?
最新回复
(
0
)