首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Text1;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3.77所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Text1;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3.77所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
admin
2018-12-20
20
问题
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Text1;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3.77所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则返回True,否则返回False。请编写适当的事件过程,使得在运行时,单击“计算”按钮,则找出大于15000的第一个素数,并显示在Text1中;单击“存盘”按钮,则把Text1中的计算结果存入考生文件夹下的out5.txt文件中。
注意:考生不得修改isprime函数过程和控件的属性,必须把计算结果通过单击“存盘”按钮存入out5.txt文件中,否则无成绩。
选项
答案
步骤1:打开本题对应工程文件sjt5.vbp。 步骤2:双击窗体Form1上的“计算”按钮,打开代码编辑窗口,在其Click事件过程中输入如下代码。参考代码: PriVate Sub C1_Click() a%=15000 Do a% =a% + 1 Loop Until isprime(a%) Text1.Text=a% End Sub 步骤3:双击窗体Form1上的“存盘”按钮,在代码编辑窗口其Click事件过程中输入如下代码。参考代码: Private Sub C2_Click() Open App.Path &"\out5.txt"For Outpult As #1 Print#l,Text1.Text Close #1 End Sub 步骤4:按要求将文件保存至考生文件夹中。
解析
素数的判断准则就是看该数除了1和其本身外有无其他约数。程序设计思路:要找出大于15000的第一个素数,可以定义一个初值为15000的整型变量a,通过调用函数isprime(a),以其返回值是素数(即isprime(a))作为Do循环语句的继续循环条件,在循环体中加入语句:a=a+1,实现每执行循环体一次变量a的值增加1,当循环结束时将a的值在文本框中显示出来。
要将结果存入考生文件夹下的out5.txt文件,可先用Open语句以输出方式打开该文件;然后通过Print语句将文本框中的内容写入打开的文件;最后用Close语句关闭打开的文件。
转载请注明原文地址:https://kaotiyun.com/show/gyFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
某人编写了下面的程序:PrivateSubCommand1_Click() DimaAsInteger,bAsInteger a=InputBox("请输入整数") b=InputBox("请输入整数") pro
窗体上有一个如右图所示的图形控件,控件中显示了如图所示的文字,可以判断这个图形控件( )。
下面不能在信息框中输出"VB"的是( )。
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程:PrivateSubCommand1_Click() Counter=0 Fori=1To4 Forj=6To1S
以下关于窗体的叙述中错误的是( )。
A、选择B、差C、交D、并B关系T是关系R的一部分,并且是关系R去掉R和S相同的元素,符合差操作。
在数据库设计中,将E-R图转换成关系数据模型的过程属于( )。
设:a=2,b=8,c=6,d=3,表达式a>bAndNot(c>d)Ord>c的值是
数据库管理系统是( )。
下列关于软件工程的描述中正确的是
随机试题
HowShouldYouBuildupYourVocabulary?[A]Exactlywhatdoyoudoduringanormalday?Howdoyouspendyourtime?Paul
最能体现太平天国社会理想和这场农民战争特点的方案是()
正常婴儿开始添加辅食及完全断奶的时间为
某男,65岁。肛门脱出已近三年,每大便稍用力,肛门即会脱出。面白,神疲、气短、乏力、纳少、大便干,二至三日一行,舌淡苔少,脉沉细无力,临床诊断最可能是
下列各项中,不应该授予专利权的是( )。
下列关于记账式国债的说法,正确的有()。
最基本、最常用的风险识别方法是()。
根据所学知识,绘制水循环的基本过程。
无线局域网使用的是无线传输介质,按采用的传输技术可以分为三类:红外线局域网、窄带微波局域网和______无线局域网。
Advertisingmedialikedirectmail,radio,televisionandnewspapers______toincreasethesalesofindustrialproducts.
最新回复
(
0
)