首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
为了验证一个正整数n(n>3)是否为素数,最直观的方法是,看在2~n/2范围内能否找到一个整数m将n整除,若m存在,则n不是素数;若找不到m,则n为素数。在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有1个名称为Text1的文本框。请根据上面的算法
为了验证一个正整数n(n>3)是否为素数,最直观的方法是,看在2~n/2范围内能否找到一个整数m将n整除,若m存在,则n不是素数;若找不到m,则n为素数。在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有1个名称为Text1的文本框。请根据上面的算法
admin
2018-10-29
26
问题
为了验证一个正整数n(n>3)是否为素数,最直观的方法是,看在2~n/2范围内能否找到一个整数m将n整除,若m存在,则n不是素数;若找不到m,则n为素数。在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有1个名称为Text1的文本框。请根据上面的算法,编写判断一个正整数是否为素数的函数prime,然后用这个函数找出200~300之间的所有素数,求出这些素数的和,将该数在文槲显示出来,并存入文件out5.txt中。
要求:编写函数prime的代码,然后在Form_Click事件过程中调用该函数,并计算素数的和。事件过程中已给出了把素数和保存到文件中的代码,考生不得修改。
注意:请务必把求得的和在文本框中显示出来,这样才能存入文件out5.txt,否则没有成绩。
选项
答案
【操作步骤】 步骤1:打开考生文件夹中的工程文件sjt5.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Function prime(ByVal n As Integer)As Boolean ’******考生编写****** Dim flag As Boolean flag=IIf(n>1,True,False) For m=2 To n/2 If n Mod m=0 Then flag=False Exit For End If Next m prime=flag ************************ End Function Private Sub Form_Click( ) ’ ****** 考生编写 ****** Dim sun As Integer FOr n=2 00 To 300 If prime(n) Then Sum=Sum+n End If Next n Text1.TextαSum ’ ************************ Open App.Path &"\out5.txt"For _Output As #1 Print#1,Text1.Text Close 1 End Sub 步骤2:按<F5>键运行程序,单击按钮测试验证。 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/GtFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个组合框,其名称为Combo1,然后编写如下事件过程:PrivateSubForm_Load()Combo1.Text="1"Fori=1To10Sum=Sum+iNe
如果要将一个窗体从内存中清除,应使用的语句是
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click() d=0 c=10 x=Array(10,12,21,32,24) Fori=
运行如下程序PrivateSubCommand1_Click() Dima(5,5)AsInteger Fori=1To5 Forj=1To4 a(i,j)=i*2+j Ifa(i,
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是( )。
数据库设计中反映用户对数据要求的模式是( )。
窗体上有名称为Command1的命令按钮,名称分别为Label1、Label2、Label3的标签。编写如下程序:PrivatexAsIntegerPrivateSubCommand1_Click() StaticyAsIntege
设运行程序时弹出的菜单如图所示.关于该菜单,以下叙述中错误的是( )。
下面关于VB数据文件的叙述中错误的是()。
随机试题
资本主义制度下的民族不平等是指各民族()
A、垂直分离斜视B、上斜肌肌鞘综合征C、眼球后退综合征D、甲状腺相关眼病E、固定性斜视眼球外转受限内转不受限可以合并内斜视()
A.肺结核球B.急性血行播散型肺结核C.肺癌D.肺脓肿E.支气管扩张男性,70岁,吸烟40年,20支/日,刺激性咳嗽3个月,有时痰中带血,右胸痛。X线胸片示右上叶前段3cm×4.5cm块影,呈分叶状,边缘有毛刺
肝硬化,雌激素灭活障碍,可出现肝硬化门脉高压,可出现
所用文字必须以中文为主并使用国家语言文字工作委员会公布的规范化汉字的是必须用中文显著标示,与商品名称的用字的比例不得小于1:2的是
项目的初步可行性研究阶段对投资估算精度的要求为误差控制在()以内。
下列部件中,不属于存储器的有()。
按照宪法的理论,制宪主体不同于制宪机关。下列关于我国宪法的制宪主体或制宪机关的哪一表述是正确的?()
A.beappropriateB.commentonC.sunnyweatherD.totheaudiencePhrases:A.youmaywantto【T13】______theirdisorganizedbos
どちら()日本語が上手ですか。
最新回复
(
0
)