首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件(如图3—116所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Text1;单击“计算”按钮,则计算出大于该数的第一个素数,并
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件(如图3—116所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Text1;单击“计算”按钮,则计算出大于该数的第一个素数,并
admin
2017-03-27
22
问题
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件(如图3—116所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Text1;单击“计算”按钮,则计算出大于该数的第一个素数,并显示在Text2中;单击“存盘”按钮,则把找到的素数存到考生目录下的out5.txt文件中。
注意:在结束程序运行之前,必须单击“存盘”按钮,把结果存入out5.txt文件,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题对应工程文件sjt5.vbp。 步骤2:双击窗体Form1上的“计算”按钮,打开代码编辑窗口,在其Click事件过程中输入如下代码。 参考代码: Private Sub Command2_Click() a%=CInt(Text1.Text) Do a%=a%+1 Loop Until isprime(a%) Text2.Text=a% End Sub 步骤3:编写判断素数的函数过程isprime,参考代码为: Function isprime(a As Integer) Dim flag As Boolean k%=2 flag=True While k%<=Int(a/2)And flag If a/k%=Int(a/k%)Then flag=False End If k%=k%+1 Wend isprime=flag End Function 步骤4:按<F5>键运行程序,先单击“读数”按钮,接着单击“计算”按钮,最后单击“存楹”按钮。 步骤5:按要求将文件保存至考生文件夹中。
解析
程序设计思路:要找出大于给定数的最小素数,可以首先将给定数加1赋值给变量a,通过调用函数isprime(a),以其返回值不是素数作为Do循环语句的循环条件,在循环体中加入语句:a=a+1实现每执行循环体一次变量a的值加1,当循环结束时a的值即为所求。
转载请注明原文地址:https://kaotiyun.com/show/FhGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在下面向文件中写入数据的命令语句中,不正确的是______。
改变驱动器列表框的Drive属性值将激活______事件。
如果在程序中要将c定义为静态变量,且为整型数,则应使用的语句是
属性窗口分为4个部分,这4个部分分别是______。
在程序运行时,可以通过______方法来移动滚动条的位置。
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程: PrivateSubCommand1_Click() n=Val(Text1.Text) Fori=2Ton Forj
在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是_________。
有如下程序:FunctionF(aAsInteger)b=0StaticCb=b+1c=c+2F=a+b+cEndFunctio
对话框在关闭之前,不能继续执行应用程序的其他部分,这种对话框属于()。
为了定义自己的鼠标光标,首先应把MousePointer属性设置为【】,然后把【】属性设置为一个图标文件。
随机试题
加工风鸡的最佳时间是________。
以下有关提前竣工的说法正确的有()
海关依法收取的担保资金包括()。
在商用房贷款发放过程中,对于借款人未到银行直接办理开户放款手续的,()部门应及时将有关凭证邮寄给借款人或通知借款人来银行取回。
记cos(一80°)=k,那么tan100°=()
李军在某服装店挑选衣服,店主向其推荐了一款风衣。李军试穿后觉得不合适,脱下风衣后准备离开,店主却强迫李军买下了这件风衣。店主的这一行为侵犯了李军的()。
2019年3月5日,李克强总理在作政府工作报告时强调,2019年国有大型商业银行____,贷款要增长30%以上。
俗话说“不要将你的鸡蛋全都放在一只篮子里”。下列选项与该俗语蕴含的道理相吻合的是:
概要叙述你参与实施的电子商务系统项目以及你所担任的主要工作。阐述该项目实施或运行过程所发现的主要问题及其解决方法,并说明效果。
Thereisperhapsnoothereventinthenaturalworldthatisascharacteristicofaseasonasafullchorusofspringpeepers.I
最新回复
(
0
)