首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjl5.vbp,其窗体上有一个文本框,名称为Textt;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3—77所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
在考生目录下有一个工程文件sjl5.vbp,其窗体上有一个文本框,名称为Textt;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3—77所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
admin
2017-10-27
49
问题
在考生目录下有一个工程文件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中,将一个窗体加载到内存进行预处理但不显示所使用的语句是【】。
以下叙述正确的是
下面程序段的作用:在窗体上一个命令按钮。单击命令按钮后,将程序中字符串"WelcomeHome"中的字符全部大写输出,其后字符"WelBack"全部小写输出。请填空。PrivateSubCommand1_Click()
A、B、C均为整型,执行下列语句后,窗口上将显示_______。A=7:B=2:C=11PrintA*C^2\B-A*C^2/B
设有如下的VisualBasic表达式:5*x^2-3*x-2*Sin(A)/3,它相当于代数式【】。
VisualBasic对象可以分为两类,分别为_________和________。
软件维护活动包括以下几类:改正性维护、适应性维护、【】维护和预防性维护。
有下列两个过程:SubS1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=tEndSub
表示X和Y之中有一个是奇数的表达式是______。
下列关于数据库系统,说法正确的是______。
随机试题
()油田开发经济评价的主要任务有开展油田开发经济动态预测与分析。
侧柏叶除凉血止血、生发乌发外,又能()。
企业财务比率分析中,反映盈利能力的指标有()。
公司型基金的最高权力机构是()。
下列关于无形资产摊销的表述不正确的有()。
下列项目中,属于借款费用的有()。
如果某人现有退休金100000元,准备存入银行,在银行年复利率为4%的情况下,其10年后可以从银行取得()元。
Ionlyknowthemanby______butIhaveneverspokentohim.
Withtherapiddevelopmentofoureconomy,thepastdecadehaswitnessedaremarkableincreaseinpeople’sincome.Now,moreand
Theabilitytoseewordsoneithersideofthepointatwhichyoureyesfocusiscalledperipheralvision(外围视觉).Foreignstuden
最新回复
(
0
)