首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”命令按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”命令按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数
admin
2016-06-23
79
问题
在考生文件夹下有一个工程文件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://www.kaotiyun.com/show/0vLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面语句的输出结果为______。x!=3.1415926Printx
阅读程序:FunctionFun(aAsInteger)StaticC b=0:b=b+2:c=c+2 F=a*b*cEndFunctionPrivateSubCommand1_Click(
下列各选项说法错误的一项是()。
在窗体模块的通用声明段中声明变量时,不能使用()关键字。
下列关于DO…Loop语句的叙述不正确的是()。
设有以下循环结构Do循环体LoopWhile〈条件〉则以下叙述中错误的是()。
能够获得一个文本框中被选取文本的内容的属性是
在窗体上画一个名为Command1的命令按钮,其Command1_Click事件过程如下:SubCommand1_Click()DimstudentAsstudtypeDimrecord_noAsInteger
下列叙述中错误的是
在修改列表框内容时,AddItem方法的作用是
随机试题
设总体X~N(μ,σ2),其中σ2未知,抽取样本x1,x2,…,xn,则未知参数μ的置信水平为1~a的置信区间为_____.
患者男,60岁。因“声音嘶哑半个月余伴咽痛”就诊,查体发现颈部可及2cm×4cm大小肿大淋巴结,颈部MRI提示:①右侧梨状窝新生物,侵及右侧声带,环状软骨部分受侵;②双侧颈部多个肿大淋巴结,最大径<6cm。关于该患者术前常规放射治疗,下面说法错误的是
围绝经期的特点中下列哪项是正确的
支气管哮喘发作时,病人应取()
图示双跨结构正确的弯矩图是()。
经海关核准的中国国际商会及其他商会是我国ATA单证册的出证单位。()
根据投资方式和操作风格的不同,通常将私募股权基金分为()。
甲公司为乙公司的母公司。(1)年初有关资料为:乙公司股本800000元,资本公积100000元,盈余公积50000元,未分配利润50000元;甲公司长期股权投资余额700000元,其中对乙公司的股权投资余额为600000元;甲公司拥有乙公司60%的股权;
Ascollegeseniorshurtleintothejobhunt,littleliesontheresume—forexample,claimingadegreewhenthey’rethreecredits
SaltLakeCity,Utah’scapitalandlargestcity,isindustrialandbankingcenter.
最新回复
(
0
)