首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时
admin
2017-03-27
52
问题
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合,例如24可以分解为5和19,也可以分解为11和13,要求取含有最小素数的组合,如图3—178所示)。要求编写“分解为”按钮事件过程中“考生编写程序开始”和“考生编写程序结束”之间的代码,以实现上述功能。过程IsPrime用来判断一个数是否为素数,如果是,返回值为True,否则返回值为False。
注意:不得修改原有程序和控件的属性。至少正确运行一次程序,且运行时在文本框中输入23456,单击“分解为”按钮,将结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,在代码编辑窗口的指定位置编写以下代码。 参考代码: Dim i As Integer Dim n As Inteqer n=Val(Text1.Text) If n Mod2<>0Then MsgBox"请输入偶数!" Exit Sub End If For i=2To n/2 If IsPrime(i)And IsPrime(n-i)Then Label1.Caption=i Label2.Caption=n-i Exit For End If Next 步骤2:按<F5>键运行程序,在文本框中输入23456,单击“分解为”按钮。 步骤3:按要求将文件保存至考生文件夹中。
解析
本题程序设计思路:两个整数之和为n的组合有:1和n-1、2和n.2…i和n-i,在For循环中按前一个加数由小到大的顺序,依次通过调用函数IsPrime来判断每个组合中的两个加数是否均为素数,第一个找到的素数组合中即含有能够分解出的最小素数。由于1不是素数,故循环变量的初值从2开始;由于i和n-i的组合与n-i和i组合在本题中可被视为相同组合,故循环变量的终值设定为n/2即可。
转载请注明原文地址:https://kaotiyun.com/show/AhGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行下面的程序段后,S的值为【】。s=5Fori=2.6To4.9Step0.6s=s+1Nexti
使用PublicConst语句声明一个全局的符号常量时,该语句应放在______。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) DimaAsInteger,sAsInteger a=8 s
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnu
下面循环语句巾在任何情况下都至少执行一次循环体的是()。
语句PrintSgn(-5.1^2)+Abs(Int(-5.1^2))的输出结果是()。
编写如下程序:PrivateSubCommand1_Click()x="abcd"y="1234"Fori=1To4z=z+Mid(x,i,1)+Left(y,1)
在程序运行期间可以将图形装入窗体、图片框或图像框的函数是
假定一个文本框的Name属性为Text1,为了在该文本框中显示“Hello!”,所使用的语句为【】。
软件生命周期一般可分为以下阶段;问题定义、可行性研究、______、设计、编码、测试、运行与维护。
随机试题
可视黏膜黄染的原因不包括
人民法院受理申请宣告婚姻无效案件后,经审查确属无效婚姻,原告申请撤诉的____________。
《苦恼》中人与马的对比体现在
Toourdisappointment,veryfewlambs________theseverewinterlastwinter.
叩诊发现肺上界变宽常见于
症见咳逆喘息气粗,胸满,烦躁,目胀睛突,痰黄或白,黏稠难咳,伴身热。微恶寒,口渴欲饮,溲赤,便干,舌边尖红,苔黄腻,脉滑数,治法为
应付职工薪酬包括职工在职期间和离职后提供给职工的全部货币性薪酬和非货币性福利,也包括解除劳务关系给予的补偿。()
下列选项中,构成唐律“十恶”罪中不孝罪的有()。
网络系统分层设计中层次之间的上联带宽与下一级带宽之比一般控制在()。
深圳某科技公司的人事经理需要制作一个演示文稿,主要用于在会议开始前或会议休息时间向公司同事传达公司的办公理念。请按照如下要求完成该演示文稿的制作:将文档中的所有中文文字字体由“宋体”替换为“微软雅黑”。
最新回复
(
0
)