首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjl5.vbp,其窗体上有一个文本框,名称为Textt;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3—77所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
在考生目录下有一个工程文件sjl5.vbp,其窗体上有一个文本框,名称为Textt;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3—77所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
admin
2017-10-27
37
问题
在考生目录下有一个工程文件sjl5.vbp,其窗体上有一个文本框,名称为Textt;还有两个命令按钮,名称分别为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_C1ick() 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 Output As #1 Print #1,Text1.Text Close#1 End Sub 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/8VGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列可作为VisualBasic中所允许的形式的数是______。
以下循环的执行次数是【】。k=0DoUntilk>=10k=k+1Loop
为了提高软件模块的独立性,模块之间最好是()。
用InputBox函数设计的对话框,其功能是
软件测试的目的是()。
VisualBasic的对象是______和控件的总称。
结构化程序设计主要强调的是()。
数据库恢复是将数据库从【】状态恢复到某一已知的正确状态。
某二叉树的先根遍历序列为CEDBA,中根遍历序列为DEBAC,则其后根遍历序列为【】。
设有下面的循环。i=1Doi=i+3PrintiLoopUntili>______程序运行后要执行3次循环体,则条件中i的最小值为
随机试题
有限合伙人无权参与合伙企业事务。()
止嗽散的组成药物不包括
患者,男性,48岁,因吞咽食物易梗噎,胸骨后有异物感和烧灼样痛2个月,经纤维食管镜检查证实为食管癌,准备入院手术治疗。既往吸烟15年。患者术后最常见和最严重的并发症是
DIC早期最常用的抗凝药物是
根据某省新修订的《行政执法证管理办法》,行政执法证的有效期为5年,到期前3个月须按程序申领换发。要想继续行政执法,有关人员应重新参加综合法律知识考试,考试不合格的不予换发。此外,对于“粗暴、野蛮”执法情节严重的,还将取消行政执法资格。对此,下列哪些说法是正
资料:上海美华家电产业有限公司(3185220×××)是一家从事冰箱生产进出口有限公司,委托广州云峰国际贸易公司(4423592×××)进口一批冰箱配件生产冰箱供应国内市场。船舶进口次日委托广州远通货运有限公司(443980×××)向海关申报。
在欧洲发行的债券就是欧洲债券。()
TheSupremeCourt’sdecisionsonphysician-assistedsuicidecarryimportantimplicationsforhowmedicineseekstorelievedying
A、 B、 C、 ADoesanyone…?意思上的who疑问句→回答人名
A—proofofdeathB—bodilyharmC—keywitnessD—fightofauthorE—rejectanappeal
最新回复
(
0
)