首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面出现的“考生文件夹”均为c:\wexam\25160001。 去掉程序中的注释符,把程序中的?改为正确的内容,使其实现下述功能,但不能修改程序中的其他部分,也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。 在考生文件夹下有一个工
下面出现的“考生文件夹”均为c:\wexam\25160001。 去掉程序中的注释符,把程序中的?改为正确的内容,使其实现下述功能,但不能修改程序中的其他部分,也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。 在考生文件夹下有一个工
admin
2009-02-25
63
问题
下面出现的“考生文件夹”均为c:\wexam\25160001。
去掉程序中的注释符,把程序中的?改为正确的内容,使其实现下述功能,但不能修改程序中的其他部分,也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Text1;有两个命令按钮,名称分别为C1和C2,标题分别为“计算”、“存盘”,如图,18-5所示。在给定程序中有一个函数过程isprime,其功能是判断参数a是否为素数,如果是素数,则返回True,否则返回False。
请将程序中有问号的地方替换为相应的代码,使得在运行时,单击“计算”按钮,则找出大于15000的第1个素数,并显示在Text1中;单击“存盘”按钮,则把Text1中的计算结果存入考生文件夹下的out5.txt文件中。
注意:考生不得修改isprime函数过程和控件的属性,必须把计算结果通过“存盘”按钮存入out5.txt文件中,否则无成绩。
选项
答案
素数的判断准则就是看是否该数除了1和其本身外别无其他约数(即从2到n-1之间没有可以将其整除的数)即可,变量flag是用于保留判断数是否是素数的结果的,值有True和False两个(从程序中可以看出)所以应将其定义为布尔型(Boolean),并且在过程中判断完之后,将flag的值赋给函数过程isprime的名字。文本框通过Text属性显示计算结果,其形式为: 文本框名.Text=要显示的内容 将数据写入文件可用命令Write#语句或Ptint#语句,本程序中用的是后者,其形式为: Pint#文件号,[输出列表]。解题步骤: 第一步:建立了界面并设置控件属性。程序用到的控件及其属性值见表18-5。 [*] 第二步:编写程序代码。 程序提供的代码: Private Function isprime(a As Integer) As Boolean ’ Dim flag As? flag=True b%=2 Do While b%<=Int(a/2) And flag If Int(a/b%)=a/b% Then flag=False Else b%=b%+1 End If Loop ’ isprime= End Function Private Sub C1_Click() Dim i As Integer i=15O00 Do While Not isprime(i) i=i+1 Loop Text1.Text=i End Sub Private Sub C2_Click() Open "Out5.txt" For Output As #1 ’ Print #1, Text1.? Close #1 End Sub 参考代码: Private Function isprime(a As Integer) As Boolean Dim flag As Boolean flag=True b%=2 Do While b%<=Int(a/2) And flag If Int(a/b%)=a/b% Then flag=False Else b%=b%+1 End If Loop isprime=flag End Function Private Sub C1_Click() Dim i As Integer i=15000 Do While Not isprime(i) i=i+1 Loop Text1.Text=i End Sub Private Sub C2_Click() Open "Out5.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/Kh1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行下面的赋值语句后,a的值为 【】 a=Float.valueOf(”12.34").floatValue();
下列说法中错误的是()。
在面向对象方法中,【】描述的是具有相似属性与操作的一组对象。
在面向对象方法中,类之间共享属性和操作的机制称为【】。
设有二维数组A[0…9,0…19],其每个元素占两个字节,第1个元素的存储地址为100,若按行优先顺序存储,则元素A[6,6]的存储地址为【】。
如果对一个关系实施了一种关系运算后得到了一个新的关系,而且新的关系中属性个数少于原来关系中属性个数,这说明所实施的运算关系是()。
在面向对象方法中,类之间共享属性和操作的机制称为【】。
使用()方法可以将JMenuBar对象设置为主菜单。
使用( )方法可以将JMenuBar对象设置为主菜单。
随机试题
在对农业的社会主义改造中,以互助合作的优越性吸引农民走互助合作道路应坚持的原则有()
在生产关系的构成中,起决定作用的是
A.沙丁胺醇B.沐舒坦C.异丙托溴铵D.布地奈德E.二丙酸倍氯米松可快速扩张支气管的药物是
A.吸气性呼吸困难B.呼气性呼吸困难C.混合性呼吸困难D.间断呼吸E.潮式呼吸喉头异物的病人可见
下列属于不稳定骨折的是()
在上道工序的出口处与下道工序的入口处之间往返运动的是()。
某公司股票的当前市价为10元,有一种以该股票为标的资产的看跌期权,执行价格为8元,到期时间为三个月.期权价格为3.5元。下列关于该看跌期权的说法中,正确的是()。(2011年)
探究训练中,教师的作用是帮助学生探究,而不是代替学生探究。教师的主要任务是()。
能够模式化为维属性和度量属性的数据统称为______数据。
ThanksgivingisAmerica’snationalholidayforgivingthankstoGod.ThanksgivingDayhasaspecial【S1】______forAmericansbecau
最新回复
(
0
)