首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjl5.vbp,其窗体上有一个文本框,名称为Textt;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3—77所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
在考生目录下有一个工程文件sjl5.vbp,其窗体上有一个文本框,名称为Textt;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3—77所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
admin
2017-10-27
21
问题
在考生目录下有一个工程文件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全国计算机二级
相关试题推荐
决定一个窗体有无控制菜单的属性是______。
假定Picture1和Text1分别为图片框和文本框的名称,下列不正确的语句是______。
18,有如下语句,执行后该段语句的循环次数是()。Dims,i,jasintegerFori=1to3Forj=3to1Step-1s=i*jNextjN
通过以下______窗口可以在设计时直观的调整窗体在屏幕上的位置。
如果存在如下过程:PrivateFunctionFMax(a()AsInteger)DimFirstAsInteger,LastAsInteger,iAsIntegerFirst=LBound(a)
在窗体中画一个命令按钮,然后编写以下事件过程:PrivateSubCommand1_Click()Forj=1To3PrintTab(3*j)11*(2*j-1);
A、B、C均为整型,执行下列语句后,窗口上将显示_______。A=7:B=2:C=11PrintA*C^2\B-A*C^2/B
执行下面的语句后,所产生的信息框的标题是【】。a=msgbox("AAAA",,"BBBB","",5)
下列有关数据库的描述,正确的是()。
下面有关标准模块的叙述中,错误的是
随机试题
由表皮衍生的皮肤附属器包括()
在确定审计证据的相关性时,下列表述中错误的是()
交易磋商的两个基本环节是()。
A.赤B.黄C.白D.黑E.青
施工企业职工学习、培训期间的工资,因气候影响的停工工资属于()
下列参数中,属于2000国家大地坐标系参数的有()。
假设A证券的预期报酬率为10%,标准差是12%,B证券的预期报酬率为18%,标准差是20%,A、B的投资比例分别为60%和40%。要求:假设证券A、B报酬率的相关系数为0.6,投资组合报酬率与整个股票市场报酬率的相关系数为0.8,整个市场报酬率的标准
在日常生活中,会骑自行车的人往往比较容易掌握摩托车的骑法。这种现象被称为()
材料:楚老师在接手三年级(1)班时就听说这是一个“问题”班级,但楚老师觉得所谓的“问题”其实都不是问题,只要找对方法,每个学生都可以获得更好地发展。班上的王明虽然成绩尚可,但总是满口脏话,稍微有点不顺心就对同学破口大骂,平时和同学聊天也
Iprefertostudyabroad.Ithasmanyadvantages.Firstofall,wecanbestseethestrongpointsandweakpointsofournation
最新回复
(
0
)