首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”命令按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”命令按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数
admin
2015-06-30
61
问题
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”命令按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合,例如24可以分解为5和19,也可以分解为11和13,要求取含有最小素数的组合,如图所示)。要求编写“分解为”命令按钮事件过程中“考生编写程序开始”和“考生编写程序结束”之间的代码,以实现上述功能。过程IsPrime用来判断一个数是否为素数,如果是,返回值为True,否则返回值为False。
注意:不得修改原有程序和控件的属性。至少正确运行一次程序,且程序运行时在文本框中输入23456,单击“分解为”按钮,将结果显示在标签中,否则将没有成绩,最后将修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Function IsPrime(ByVal x As Integer) As Boolean Dim i As Integer IsPrime = False If x = 1 Then Exit Function For i = 2 To Sqr(x) If x Mod i = 0 Then Exit Function End If Next IsPrime = True End Function Private Sub Command1_Click() ’考生编写程序开始 ’==================== ’======================= ’考生编写程序结束 Open App.Path & "\out5.dat" For Output As #1 Print #1, Text1.Text, Label1.Caption, Label2.Caption Close #1 End Sub 程序结束 参考答案 For i = 1 To Val(Text1.Text) 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/skQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下事件过程;PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XASSingle,YAsSingle)IfShif=6AndBu
下列程序段的执行结果为______。Dimm(3,3)AsIntegerDimiAsIntegerDimjAsIntegerDimxAsIntegerFori=1To3m(i
下列程序弹出对话框中按钮的个数为______。MsgBox"确认!",vbAbortRetryIgnore+vbMsgBoxHelpButton+vbQuestion,"提示"
表达式Len(Str(1.3))Mod2的值为______。
只能用来显示文本信息的控件是()。
按照“先进先出”组织数据的数据结构是()。
在窗体上画4个文本框,并用这4个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大),然后编写如下事件过程:PrivateSubCommand1_Click()ForEachTextBoxInText
为了将表达式列表中数据写入顺序文件中,所使用的语句的格式为()
VB的工程资源管理器可管理多种类型的文件,下面叙述正确的是______。
下面不属于软件设计原则的是
随机试题
排土场是露天矿山采矿排弃物集中排放的场所。堆积物基底不稳引起的滑坡占排土场滑坡的40%,造成沿排土场与基底接触而滑坡的原因是()。
简述扁平式组织结构的优缺点。
早产儿的护理重点是
药材浸出过程包括哪几个阶段,可采取什么措施提高药材的浸出效率?
下列函数中不是方程y’’-2y’+y=0的解的函数是()。
( )的目的在于迅速取得资料,在经济活动中及时采取措施进行调整。
2010年2月25日上午,中共中央政治局常委、中央书记处书记、国家副主席习近平在人民大会堂出席“2010’经济全球化工会”国际论坛开幕时强调,()是实现可持续发展的主体。
公文中的批复最显著的特点是()。
政府机构和工作人员把制订的计划方案付诸实施的活动过程,是政府的()。
Jobsharingreferstothesituationinwhichtwopeopledividetheresponsibilityofonefull-timejob.Thetwopeoplewillingly
最新回复
(
0
)