首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”命令按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”命令按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数
admin
2016-06-23
109
问题
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”命令按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合,例如24可以分解为5和19,也可以分解为11和13,要求取含有最小素数的组合,如图所示)。要求编写“分解为”命令按钮事件过程中“考生编写程序开始”和“考生编写程序结束”之间的代码,以实现上述功能。过程。IsPrime用来判断一个数是否为素数,如果是,返回值为True,否则返回值为False。
注意:不得修改原有程序和控件的属性。至少正确运行一次程序,且程序运行时在文本框中输入23456,单击“分解为”按钮,将结果显示在标签中,否则将没有成绩,最后将修改后的文件按原文件名存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考代码 For i=1 To Val(Text1.Text)’i从1开始,第一个找到的肯定就是满足条件的最小素数 If IsPrime(i)And IsPrime(Val(Text1.Text)-i)Then’定两个数是否都满足素数条件 Label1=i Label2=Val(Text1.Text)-i Exit For End If Next i 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/0vLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行以下Commaand1的Click事件过程在窗体上显示()。OptionBase0PrinvateSubCommand1_Clcik()Dimaa=Array("a","b","C","d","e","
以下程序段执行后整型变量n的值为()。n=0Fori=1to20Step5n=n+1Nexti
对象的属性是指______。
要使文本框获得输入焦点,则应采用文本框控件的
要获得当前驱动器应使用驱动器列表框的属性是
下列叙述中,不属于软件需求规格说明书的作用的是
某二叉树中度为2的结点有n个,则该二叉树中有______个叶子结点。
需求分析阶段的任务是确定
设s="中华人民共和国",表达式Left(S,1)+Right(S,1)+Mid(S,3,2)的值为()。
使用驱动器列表框Drivel?目录列表框Dirl?文件列表框Filel时,需要设置控件的同步。以下能够正确设置两个控件同步的命令是
随机试题
休克病人病情严重,应置于重危病室,并设()
下述有关压力容器液压实验准备工作中,()不符合《压力容器安全技术监察规程》的要求。
母乳喂养,增加辅食最适宜的时间是()
( )( )
媒体是连接信息需求者和信息供给者的桥梁,因此媒体是信息发布的主要渠道而非信息发布的主体之一。( )
某公司发行总面值为500万元的10年期债券,票面利率为12%,每年付息一次,到期一次还本,发行费用率为5%,公司所得税税率为25%。该债券采用溢价发行,发行价格为600万元,则该债券的资本成本为()。
纳税义务人有下列哪些情形之一的,应当按照规定到主管税务机关办理纳税申报?()
甲曾表示将赠与乙5000元,且已实际交付乙2000元,后乙在与甲之子丙的一次纠纷中,将丙打成重伤。下列表述正确的是()。
给付之诉是指对被告享有给付请求权的原告要求人民法院判令被告向自己履行一定给付义务的民事诉讼请求。确认之诉是指原告要求法院确认其所主张的法律关系存在或不存在的民事诉讼请求。确认之诉与给付之诉的区别在于:当事人只要求人民法院确认当事人之间发生争议法律关系的存在
AgingposesaseriouschallengetoOECD(OrganizationofEconomicCo-operationandDevelopment)countries,inparticular,howtop
最新回复
(
0
)