首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件是sjt5.frm(如图所示)。该程序的功能是:单击“读数”按钮,读入考生文件夹下in5.txt文件中的一个整数,并放入Text1中;单击“计算”按钮,则计算小于该数的最大素数,并显示在Text2
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件是sjt5.frm(如图所示)。该程序的功能是:单击“读数”按钮,读入考生文件夹下in5.txt文件中的一个整数,并放入Text1中;单击“计算”按钮,则计算小于该数的最大素数,并显示在Text2
admin
2015-06-30
46
问题
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件是sjt5.frm(如图所示)。该程序的功能是:单击“读数”按钮,读入考生文件夹下in5.txt文件中的一个整数,并放入Text1中;单击“计算”按钮,则计算小于该数的最大素数,并显示在Text2中;单击“存盘”按钮,则把该素数保存到考生文件夹下的out5.txt文件中。
要求:
①程序已给出“存盘”按钮的事件过程代码。“读数”按钮的事件过程和判断x是否是素数的函数prime(x)不完整,请去掉注释,并在?处填上正确的内容,使程序完整。
②编写“计算”按钮的事件过程中。计算小于Text1中数据的最大素数。
③请不要改动窗体上所有控件属性设置及相应的过程代码。最后将改动后的程序用原文件名保存。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Open App.Path & "\in5.txt" For Input As #1 Input #1, a% Text1.Text = a% Close #1 End Sub Private Sub Command2_Click() ’考生自己编写"计算"按钮的事件过程 End Sub Private Sub Command3_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, Text2.Text Close #1 End Sub Function prime(x) As Boolean flag = 1 For i = 2 To x - 1 If x Mod i = 0 Then flag = 0 Exit For End If Next If flag = 0 Then prime = False Else prime = True End If End Function 程序结束 参考答案 n = Val(Text1.Text) For i = n To 2 Step -1 l = prime(i) If l = True Then Exit For End If Next Text2.Text = i 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/XgQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个列表框控件List1,且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是
设有语句Open"c:\Test.Dat"ForOutputAs#1"则以下叙述错误的是
在设计阶段,当双击窗体上的某个控件时,所打开的窗口是
在窗体上画一个名称为Text1的文本框,然后画3个单选按钮,并用这3个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,请选择空白处合适的语句()。PrivateSu
设有变量声明为“DimaDateAsDate”,则为变量aDZe正确赋值的表达方式是()。
当数据的物理结构(存储结构、存取方式等)改变时,不影响数据库的逻辑结构,从而不致引起应用程序的变化,这是指数据的【】。
类是一个支持集成的抽象数据类型,而对象是类的【】。
若要求在文本框中输入密码时文本框中只显示#号,则应在此文本框的属性窗口中设置()
在VisualBasic集成环境创建应用程序时,除了窗体设计器、【工具箱】窗口、【属性】窗口以外,必不可少的窗口是()
(1)在窗体Forml上画一个名称为Textl的文本框和一个名称为Labell的标签,程序运行时,在文本框Textl中输入字符,文本框中的字符将值赋到Labell中。注意,本程序代码中不得使用任何变量。程序运行时的窗体界面如图50—l所示。注意:
随机试题
下列各组穴中,间距为2寸的是:
A.上睑退缩B.上睑下垂C.瞳孔散大D.眼球外转受限E.瞳孔缩小Graves眼病可见
甲公司与乙公司约定,由甲公司向乙公司交付1吨药材,乙公司付款100万元。乙公司将药材转卖给丙公司,并约定由甲公司向丙公司交付,丙公司收货后3日内应向乙支付价款120万元。张某以自有汽车为乙公司的债权提供抵押担保,未办理抵押登记。抵押合同约定:“在丙公司不付
下列哪个行政案件,属于普通共同诉讼?()
进出境航行船舶或行驶于我国港口之间的船舶,哪些应征收船舶吨税?()
个体发展的两个反抗期的共同点包括()。
十七大以来,党对兴起社会主义文化建设新高潮,推动社会主义文化大发展大繁荣作出战略部署,这是基于:()
ApaperintheLancet,shamelesslytimedtocoincidewiththeOlympicgames,comparescountries’ratesofphysicalactivity.The
下面代码的输出结果是defchange(a,b):a=10b+=aa=4b=5change(a,b)print(a,b)
HowtoChooseaJob1.Howtostartout:thinkingaboutthework【T1】______you【T1】______lookingatjobadvertisements2.
最新回复
(
0
)