首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时
admin
2017-10-27
27
问题
在考生文件夹下有一个工程文件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://jikaoti.com/ti/dLy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
决定一个窗体有无控制菜单的属性是______。
程序执行结果S的值是【】。PrivateSubCommand1_Click()i=0Doi=i+1s=i+sLoopUntili>=4Print
在窗体上画两个文本框,名字分别为Text1和Text2,然后编写下列程序。程序运行后,如果在文本框Text2中输入lmn,那么在文本框Text1中显示的内容将是【】。PrivateSubForm_Load()ShowTex
决定一个窗体有无控制菜单的属性是______。
算法分析的目的是______。
按条件f对关系R进行选择,其关系代数表达式是
下面程序的功能是由随机函数产生100个在200~700之间的整数,然后找出最大者,并记下是第几个数,但程序不完整,请选择适当的内容在下划线处将程序补充完整。Dima(100)Forj=1To100a(j)=Int(Rn
设有如下的VisualBasic表达式:5*x^2-3*x-2*Sin(A)/3,它相当于代数式【】。
数据独立性是数据库技术的重要特点之一。所谓数据独立性是指______。
根据假定的条件,判断应该选择哪条途径来执行相应的程序语句序列,这样的程序结构是【】。
随机试题
HowdoMoviesorTelevisionInfluencesPeople’sBehavior?Theimpactthatmodernmassmediasuchasmoviesortelevisionsha
关于双源CT的叙述,正确的是
病人处于熟睡状态,较量的刺激方能唤醒,此时病人意识障碍的程度是
关节的基造有
患者,女,65岁,临床诊断为卵巢癌,经妇科手术后需放置一腹腔引流管。辅助检查中,较为敏感的标记物是
房地产交易,是指房地产的所有权、使用权及其他项权利的有偿取得或转让,其内容主要包括()。
下列关于EPC模式的说法,正确的有()。
扬州园林的主人多为()。
计算机通过MIC(话筒接口)收到的信号是_______。
Mostscientistsandengineersfindcareersinthreegeneralsectorsofsociety:collegesanduniversities,industries,andfeder
最新回复
(
0
)