首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件(如图3—116所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Text1;单击“计算”按钮,则计算出大于该数的第一个素数,并
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件(如图3—116所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Text1;单击“计算”按钮,则计算出大于该数的第一个素数,并
admin
2017-03-27
30
问题
在考生目录下有一个工程文件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全国计算机二级
相关试题推荐
在对象的MouseDown和MouseUp事件过程中,当Button参数的值为1、2、4时,分别代表按下鼠标______。
窗体上命令按钮Commandl的事件过程如下:PrivateSubCommand1_Click()DimtotalAsIntegertotal=s(1)+s(2)PrinttotalEndSubPrivateFunctions
下列程序运行后,在窗体上打印的结果是【】。PrivateSubtest(a,b,c)a=a+1:b=b+2:C=C+3EndSubPrivateSubCommand1
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度:1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。PrivateTyPeAngKAsIntegerSinxAsSin
在窗体上画一个命令按钮command1和两个文本框,名称分别为Text1和Text2。编写如下两个事件过程:DimStr1AsString,str2AsStringPrivateSubform_load()Tex
窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目,然后单击命令按钮,将该项目从列表框删除。程序如下:PrivateSubCommand1_Click()DimInAsIntegerIn=______L
对话框在关闭之前,不能继续执行应用程序的其他部分,这种对话框属于()。
产生[10,27]之间的随机整数的VisualBasic表达式是
随机试题
调试液压系统时,为了使负载变化对工作机构运动速度的影响较小,所采用的流量控制阀由其节流口形状决定的指数应为()。
Dannywasjusttiredaboutthewaythingsweregoing.HismomcametotheschoolandwentonandontalkingaboutRickJackson.
根据药品安全管理,药品安全风险的特点不包括()。
男性,18岁。拔牙后开始发热,24h体温波动在37.5-40℃。此种热型为()
在程租船的情况下,普遍使用的租船合同格式是()。
同业拆借市场在金融体系同属于()市场。
Afundamentalproblemforunderstandingtheevolutionofhumanlanguagehasbeenthelackofsignificantparallelsamongnonhuma
A、B、C、D、B
A、T-shirts.B、Jeans.C、Boots.D、Jackets.A男士问女士对于穿衣服有什么建议,女士讲通常会穿T恤、短裤和运动鞋,不建议穿牛仔裤和靴子,因此本题选A项T-shirts。
Employeeswouldliketoworkunderteamleaderswho______goodexamples.
最新回复
(
0
)