首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”命令按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”命令按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数
admin
2020-07-22
56
问题
在考生文件夹下有一个工程文件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’判定两个数是否都满足素数条件 Labell=i Label2=Val(Text1.Text) 一i Exit For End If Next i 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/9rHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设x为一整型变量,且情况语句的开始为:SelectCasex,则不符合语法规则的case子句是()。
执行下列语句:strlnput=InputBox("请输入字符串","字符串对话框","字符串")将显示输入对话框。此时如果直接单击“确定”按钮,则变量strInput的内容是()。
下面程序的功能是:从键盘输入若干个自然数,输入-1则结束输入,然后计算平均值输出(因事先不知道执行时会输入多少个数,定义一个动态数组存放这些数)。PrivateSubCommand1_Click()Dima()AsInteger
下列关于窗体的描述中,错误的是()。
在设计阶段,如果双击窗体上的一个文本框控件,则在代码窗口中显示该控件的事件过程所对应的事件是
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
数据库设计中,用E—R图来描述信息结构但不涉及信息在计算机中的表示,它属于数据库设计的
在名称为Form1,标题为“选课”的窗体上添加一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机”复选框处在选中状态下,程序运行时的窗体如图所示。请按要求添加控件并设置相应属性。
算法的时间复杂度是指()。
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为()。
随机试题
OnehundrednewbookstallsthatwillsellnewspapersaswellasbookshavebeenmakingtheirdebutoncitystreetssinceSaturda
在我国手工行业传说中,发明了指南车和乐器的人是()
清查银行存款时,要与银行对账单逐笔核对的是
闭合性肋骨骨折的治疗要点是
【2008年真题】作为施工承包单位计划体系的重要内容,项目管理规划大纲应由()编制。
在国家政权中,警察与监狱是最主要的支柱。()
商业银行的最高风险管理和决策机构是()。
设f(x)为连续函数,且f(t)dt=x,则f(7)=________.
在虚拟页式存储管理系统中,如果页面淘汰算法选择不好,会使页面在内存与外存之间频繁调度,这种现象称为【】。
ACanadianresearcherhasdiscoveredthatsoundtravels【21】______airmorethanone-haftkilometeranhourslowerthanhadbeen
最新回复
(
0
)