首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时
admin
2017-10-27
56
问题
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合,例如24可以分解为5和19,也可以分解为11和13,要求取含有最小素数的组合,如图3—178所示)。
要求编写“分解为”按钮事件过程中“考生编写程序开始”和“考生编写程序结束”之间的代码,以实现上述功能。过程IsPrime用来判断一个数是否为素数,如果是,返回值为Tree,否则返回值为False。
注意:不得修改原有程序和控件的属性。至少正确运行一次程序,且运行时在文本框中输入23456,单击“分解为”按钮,将结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,在代码编辑窗口的指定位置编写以下代码 参考代码: Dim i As Integer Dim n As Integer n=Val(Text1.Text) If n Mod 2 <> 0 Then MsgBox"请输入偶数!" Exit Sub End If For i=2 To n/2 If IsPrime(i)And IsPrime(n-i)Then Labe11.Caption=i Labe12.Caption=n-i Exit For End If Next 步骤2:按
键运行程序,在文本框中输入 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/kVGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Filel的文件列表框,并编写如下程序:PrivateSubFilel_DblClick()x=Shell(Filel.FileName,1)EndSub以下关于该程序的叙述中,错误的是__
设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为al,且取消其"可见"属性。运行时,可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是
第一范式是满足关系模式所要遵循的最基本的条件的范式,即关系中的每个属性必须是【】的简单项。
使用CoamonDialog控件的______方法可显示”打印”对话框。
执行如下语句:a=InputBox("Today","Tomorrow","Yesterday","Daybeforeyesterday",5)将显示一个输入对话框,在对话框的输入区中显示的信息是______。
软件(程序)调试的任务是
能够将文本框控件隐藏起来的属性是______。
设A="12345678",则表达式Val(Left(A,4)+Mid(A,4,2))的值为______。
VisualBasic一共有设计、运行和中断三种模式,要使用调试工具应该()。
希尔排序法属于哪一种类型的排序法______。
随机试题
选用单角铣刀铣削三面刃圆柱面直齿槽时,其端面刃与工件前刀面___________装入刀轴。
在Excel2010中,在单元格B2中输人数据“80”,在C2中输入字符“good”(均不含引号),在单元格D2中输入=IF(AND(B2>80,C2=”good”),B2+10,B2—10),则D2单元格中的结果为______。
[背景资料]下图为简支梁AB的受力图。该受力图中的约束反力肯定为正值。
承包人投标报价时,下列关于分部分项工程综合单价确定的描述中,正确的是()。
若施工过程中发现设计文件和图纸差错,施工企业的正确做法是()。
水泵按泵轴安装形式分为()。
简要概述消防车登高操作场地的检查方法的主要操作内容。
根据企业所得税法的规定,以下适用25%税率的是()。
某人持有盗版软件,但不知道该软件是盗版的,该软件的提供者不能证明其提供的复制品有合法来源。此情况下,则该软件的______应承担法律责任。
Australiaistheworld’slargestexporterof
最新回复
(
0
)