首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Text1;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图2.20所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Text1;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图2.20所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
admin
2016-12-29
65
问题
在考生目录下有一个工程文件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全国计算机二级
相关试题推荐
在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程:PrivateSubCommandlClick()CommonDialogl.Filter=“AllFiles(*.*)丨*.
执行下列程序段后,输出的结果是()。Forkl=0To4y=20Fork2=0To3Y=10Fork3=0To2y=Y+10Nextk3Nextk2Nextk1
设a=“VisualBasic”,下面使b=“Basic”的语句是()。
在窗体上画一个名称为Timerl的计时器控件,其Enabled属性值设为False,Interval属性值设为100。要求程序运行后,当鼠标在窗体上移动时,沿鼠标经过的轨迹画出一系列半径为100的小圆。其效果如图所示,以下是实现上述功能的程序,请填空。
设有如下程序:OptionBase1PrivateSubFormClick()Dima(5)AsString,iAsIntegerFori=1TO5a(i)=Chr(Asc("A")+i)
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click()Dima1(4,4)a2(4,4)DimiAsInteger,jAsInte
图像框有—个属性,可以自动调整图像框的大小,以适应图像的尺寸,这个属性是______。
假定有如下的Sub过程:SubSub1(xAsSingle,yAssingle)t=xx=t/yy=tModyEndSub在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand
确定复选框是否选中,可访问的属性是
以下语句可以实现将文件filename1复制为filename2的是______。
随机试题
Drawingapictureisthesimplestwayofputtinganideadownonpaper.Thatis【C1】______menfirstbegantowritesixthousandy
MMPI是一种
涩味药多用于治疗
A.肉桂B.附子C.牛膝D.当归E.鹿角胶
背景:某办公楼工程,结构施工完后进入装饰装修阶段,由于前期建设单位对部分做法一直未能定论.导致后期装修工期紧张,根据合同规定,无论何种原因导致的工期滞后,最终工程竣工日期不能变化,在此情况下.施工单位紧急调动一批普通油漆工进场施工,并采取师傅带徒
根据教育概念的分类方法,“课程”属于()。
在OSI参考模型中,直接为会话层提供服务的是_______。
设一电路由三个电子元件串联而成,且三个元件工作状态相互独立,每个元件的无故障工作时间服从参数为λ的指数分布,设电路正常工作的时间为T,求T的分布函数.
Accordingtothenews,thebillwould________.
A、Becauseshedoesn’tdrinkcoffee.B、Becauseshehasaplanetocatch.C、Becauseshehastogotoalesson.D、Becauseshedoesn
最新回复
(
0
)