首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Textl;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3-20所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Textl;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3-20所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
admin
2016-03-22
22
问题
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Textl;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3-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:双击窗体Forml上的“存盘”按钮,在代码编辑窗口其Click事件过程中输入如下代码: 参考代码: Private Sub C2 C1ick() Open App.Path&“\out5.txt”For Output AS#1 Print#1,Text1.Text C10se#1 End Sub 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/iMLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
软件工程研究的内容主要包括:【】技术和软件工程管理。
要触发组合框的DblClick事件,只有将组合框的Style属性设置为
设窗体上有_个名为Listl的列表框,并编写下面的事件过程:PrivateSubListl_Click()DimchAsStringch=Listl.List(Listl.Listlndex)Listl,R
为了使标签能自动调整大小以显示标题(Caption属性)的全部文本内容,应把该标签的【6】属性设置为True。
在窗体上面一个命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()MsgBoxStr(123+321)EndSub程序运行后,单击命令按钮,则在信息框中显示的提示信息为
在数据库设计中,将E-R图转换成关系数据模型的过程属于
产生[10,27]之间的随机整数的VisualBasic表达式是
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为
对长度为n的线性表排序,在最坏情况下,比较次数不是n(n-1)/2的排序方法是
数据库设计分为以下6个设计阶段:需求分析阶段、______、逻辑设计阶段、物理设计阶段、实施阶段以及数据库运行和维护阶段。
随机试题
曲轴箱通风系统的单向阀起什么作用?
下列关于预算组成的表述,哪项是错误的【】
A.白前B.百部C.前胡D.芥子E.桔梗性微寒,既降气祛痰,又宜散风热的药是()。
在FIDIC合同条件下,某工程保留金总额是450万元,其中一个区段的工程已被业主接收并颁发了接收证书,该区段的合同价值占总工程的20%,则应返还的保留金是()万元。
在采用总价法确认应收账款入账金额的情况下,销售方应将其给予客户的现金折扣计入()。
下述有关系统风险和非系统风险的正确说法是()。
下列行为免征营业税的有()。
设x(t)为调制信号,调频波的表示式为cos(ω0t+kf∫-∞tx(τ)dτ),则FM调制方式的瞬时频率偏移为()。
Thesewindowsneed______.Canyouhelpmewiththis?
Lestanyone______itstrange,letmeassureyouthatitisquitetrue.
最新回复
(
0
)