首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
为了验证一个正整数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
2017-11-27
39
问题
为了验证一个正整数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=200 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:按
键运行程序,单击按钮测试验证。
解析
转载请注明原文地址:https://kaotiyun.com/show/P5Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读程序:OptionBase1PrivateSubFormClick()Dimarr,SumSum=0arr=Array(1,3,5,7,9,11,13,15,17,19)Fo
数据库的逻辑模型设计阶段的任务是将______转换成关系模式。
下列程序段的执行结果为______。I=0ForG=10To19Step3I=I+1NextGPrintI
数据的存储结构是指()。
软件设计模块化的目的是______。
下列选项中属于面向对象设计方法主要特征的是
下列表达式的值为2123的是()。
窗体上有一个名称为VScrol11的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是
语句:PrintInt(Rnd*5+20)的输出不可能是
以下选项中,不合法的VisualBasic的变量名是( )。
随机试题
关于早产的概念下列说法正确的是()
中医学辨证观念的内容包括
电梯机房、轿厢和井道中电气装置的间接接触保护,应符合()规定。
下列关于在原始凭证上数字书写要求的说法中,正确的有()。
镀锡薄钢板简称镀锡板,俗称白铁皮。()
某压力容器的压力等级代号为M,则此压力容器为()。
实行非调节型货币政策的理由是()。
请根据上述材料完成下列任务:如指导中年段小学生学唱本歌曲,试拟定教学目标。
无穷级数的收敛区间为________。
DoWeNeedCitiesAnyMore?Idon’twanttoliveinacity.Perhapswedividenaturallyintotwotypes:thoseforwhomcit
最新回复
(
0
)