首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Text1;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图2.20所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Text1;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图2.20所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
admin
2016-12-29
56
问题
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Text1;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图2.20所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则返回True,否则返回False。请编写适当的事件过程,使得在运行时,单击“计算”按钮,则找出大于15000的第一个素数,并显示在Text1中;单击“存盘”按钮,则把Text1中的计算结果存入考生文件夹下的out5.txt文件中。
注意:考生不得修改isprime函数过程和控件的属性,必须把计算结果通过单击“存盘”按钮存入out5.txt文件中,否则无成绩。
选项
答案
【操作步骤】 步骤1:打开本题对应工程文件sjt5.vbp。 步骤2:双击窗体Forml上的“计算”按钮,打开代码编辑窗口,在其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一C1 ick() Open App.Path&”\out5.txt”For Output As:#1 Print:#1,Textl.Text Close:#1 End Sub 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/z9Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在VisualBasic中,要将一个窗体加载到内存进行预处理但不显示,应使用的语句是()。
VisualBasic对象可以分为两类,分别为_________和________。
在面向对象方法中,_________描述的是具有相似属性与操作的一组对象。
在窗体上画一个名称为Timerl的计时器控件,其Enabled属性值设为False,Interval属性值设为100。要求程序运行后,当鼠标在窗体上移动时,沿鼠标经过的轨迹画出一系列半径为100的小圆。其效果如图所示,以下是实现上述功能的程序,请填空。
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为()。
下列程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容。请填空。PIivateSubCommandlClick()X=
图像框有—个属性,可以自动调整图像框的大小,以适应图像的尺寸,这个属性是______。
在窗体上有一个名称为Check1的复选框数组(含4个复选框),还有一个名称为Text1的文本框,初始内容为空。程序运行时,单击任何复选框,则把所有选中的复选框后面的文字罗列在文本框中(见图)。下面能实现此功能的事件过程是()。
随机试题
A.黄色标志B.蓝色标志C.红色标志D.橙色标志E.棕色标志严密管理的标志是
一个良好的嵌体蜡型应该是
下列表述哪项是正确的?
项目监理机构中任何一个下级只接受唯一上级的命令的是()组织形式的特点。
政府理财的主导环节是()。
下列关于经济增加值的说法中,错误的是()。
原来交响曲中的第三乐章是小步舞曲,贝多芬将其改为()。
(48)指对主体访问和使用客体的情况进行记录和审查,以保证安全规则被正确执行,并帮助分析安全事故产生的原因。
Youwillhearacustomerphoningahotelforareservation.Completetheformusingtheinformationyouhear.Youwillhearth
AGrassrootsRemedyMostofusspendourlivesseekingthenaturalworld.Tothisend,wewalkthedog,playgolf,gofishin
最新回复
(
0
)