首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjl5.vbp,其窗体上有一个文本框,名称为Textt;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3—77所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
在考生目录下有一个工程文件sjl5.vbp,其窗体上有一个文本框,名称为Textt;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3—77所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
admin
2017-10-27
36
问题
在考生目录下有一个工程文件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://kaotiyun.com/show/8VGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
决定一个窗体有无控制菜单的属性是______。
设有数组定义语句:Dima(5)AsInteger,List1为列表框控件。下列给数组元素赋值的语句错误的是
多窗体操作中,窗体文件的扩展名是______。
下列程序的执行结果为()。PtivateSubCommand_Click()DimFirStrAsStringFirStr="abcdef"PrintPat(FirSB)EndSubPrivat
下面程序段的作用:在窗体上一个命令按钮。单击命令按钮后,将程序中字符串"WelcomeHome"中的字符全部大写输出,其后字符"WelBack"全部小写输出。请填空。PrivateSubCommand1_Click()
用Close语句可以关闭一个已经用完不再使用的文件,当该语句不带任何参数时,它的功能是______。
数据独立性是数据库技术的重要特点之一。所谓数据独立性是指______。
在数据库设计中,将E-R图转换为关系模式的过程属于()。
下列有关数据库的描述,正确的是_________。
随机试题
Therearefewmoresobering(使清醒的)onlineactivitiesthanenteringdataintocollege-tuitioncalculatorsandgasping(喘气)astheWeb
由电阻抗血细胞分析仪间接测定的指标是
尖锐湿疣的病原体是
患者血清嗜异性凝集试验滴度为1:224,用豚鼠肾吸收后为1:56,用牛红细胞吸收后为0,可以辅助诊断
非公开发行证券,不得采用广告、公开劝诱和变相公开方式。()
物业服务企业对物业行政管理部门的下列行为提起行政诉讼,人民法院应当受理的是()
教师在进行“二氧化碳的密度”教学时,设计了如下活动,教师给出实验研究方案,学生在教师的引导下,收集两小瓶二氧化碳,先用一小瓶二氧化碳熄灭下层火焰,而上层蜡烛继续燃烧,再用一小瓶二氧化碳熄灭上层火焰,观察现象,解释原因,该活动中学生的学习方式属于()。
以下哪两个图形调换位置之后,所有的图形能呈现出一定的规律性?
SWIFT是一种专用金融服务系统,主要传递______。
1Iwillnowteach,offeringmywayoflifetowhomsoeverdesirestocommitsuicidebytheschemewhichhasenabledmetobea
最新回复
(
0
)