首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjl5.vbp,其窗体上有一个文本框,名称为Textt;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3—77所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
在考生目录下有一个工程文件sjl5.vbp,其窗体上有一个文本框,名称为Textt;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3—77所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
admin
2017-10-27
22
问题
在考生目录下有一个工程文件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://jikaoti.com/ti/ALy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果在立即窗口中执行以下操作(<CR>是回车键):a=8<CR>b=9<CI>Printa>b<CR>则输出结果是______。
假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Forml和Form2,启动窗体为Forml。在Forml上画一个命令按钮Commandl,程序运行后,要求当单击该命令按钮时,Forml窗体消失,显示窗体Form2,请在横线处将程序补充
下列关于菜单的说法错误的是()。
确定一个控件在窗体上的大小的属性是
软件(程序)调试的任务是
下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请补充完整。PrivateSubForm_Click()DimiAsInteger Open"Num.txt”ForOutputAs#1
在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为______。
数据库恢复是将数据库从【】状态恢复到某一已知的正确状态。
如下图所示的二叉树,若按后序遍历,则其输出序列为【】。
冒泡排序在最坏情况下的比较次数是
随机试题
改正错别字:穿流不息__________义不容词__________责无旁代__________煞废苦心__________
ORA的含义是()
现在全世界的人口一共70亿,扣除中国的13亿人,剩下都是外国人,而我国平均每人每年给每一位外国人做三件半衣服、三双鞋,其中有相当一部分是晋江的品牌……___________中国第二产业在___________没有问题,问题在于大而不强,还缺少核心技术。
根据以下情境材料,回答问题。2014年10月,某公司司机孙某驾驶轻型货车到甲市送货,途经乙市一个十字路口时,因思想上麻痹大意未提前减速,撞向正常穿越公路的行人于某。事发后,孙某报警并协同路人将于某送往医院抢救,但于某终因伤势过重,抢救无效死亡。现场如下图
组织变革的动因可以分为_____________和_____________两个方而。
若方程x2+ax+b=0的一个根是另一个根的3倍,则a,b的关系满足().
设有微分方程y′-2y=φ(x),其中φ(x)=在(-∞,+∞)上求连续函数y(x),使其在(-∞,1)及(1,+∞)内都满足所给的方程,且满足条件y(0)=0.
某系统集成公司最近承接了一个系统集成项目,客户方是某省电信分公司。客户方的大企业服务历经多年的发展,已经开发了很多接口系统。这次承接的系统集成项目是要将这些接口系统集中到一个总线式的中间件软件上,客户方出具了系统功能要求清单作为合同的附件。该系统
Thefactthattheworld’scitiesaregettingmoreandmorecrowdedisawell-documenteddemographicfact.CitiessuchasTokyo
Oneofthemostcriticalproblems【C1】______blackandotherminorityAmericanstodayisthedifficultyofentering【C2】______soc
最新回复
(
0
)