首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件是sjt5.frm(如图所示)。该程序的功能是:单击“读数”按钮,读入考生文件夹下in5.txt文件中的一个整数,并放入Text1中;单击“计算”按钮,则计算小于该数的最大素数,并显示在Text2
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件是sjt5.frm(如图所示)。该程序的功能是:单击“读数”按钮,读入考生文件夹下in5.txt文件中的一个整数,并放入Text1中;单击“计算”按钮,则计算小于该数的最大素数,并显示在Text2
admin
2015-06-30
45
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
阅读下面的程序段:Fori=1To3Forj=iTo3Fork=1To3a=a+iNextkNextjNexti执行上面的
下列数据结构中,能用二分法进行查找的是
在窗体上添加一个命令按钮,名为Command1,其单击事件中有如下程序段,则事件过程执行后,文本框中输出()。Fori=1To4Forj=1To3x=3Fork=1T
某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签,计时器的属性设置为Enabled=True,Interval=0,并编程如下。希望在程序运行时,可以每2秒在标签上显示一次系统当前时间。PrivateSubTimer
表达式"12345"<>"12345"&"ABC"的值是______。
以下叙述正确的是()
下面控件中,用于将屏幕上的对象分组的是
如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是
以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是
(1)在窗体Forml上画一个名称为Textl的文本框和一个名称为Labell的标签,程序运行时,在文本框Textl中输入字符,文本框中的字符将值赋到Labell中。注意,本程序代码中不得使用任何变量。程序运行时的窗体界面如图50—l所示。注意:
随机试题
Theconference______afullweekbythetimeitends.
产力的主要力量是
30岁男性,3日前因着凉,突然寒战高热,右胸刺痛,咳嗽,伴少许黄痰。体检:气管居中,右上肺实变体征该患病程中出现呼吸困难、发绀等缺氧表现,其发生机制主要为
某女,53岁,2小时前突然发现右半身麻木,口角歪斜,言语不利。现神志清,头晕目眩,苔白腻,脉弦滑。其诊断是()
番泻叶基部的特点是
A.香树脂B.油树脂C.胶树脂D.油胶树脂E.混合树脂按照上述所含主要化学成分,下列中药属于乳香
依据中国银监会颁布的《商业银行风险监管核心指标》(试行),风险监管核心指标主要类别包括( )。
在供应链管理方法中,()是供应链上的生产商、批发商和零售商等通过合作和协调,以更好的质量、更快的速度和更低的成本满足消费者需求的一种管理方法。
《旅游法》共()。
A、交通B、环境C、价格D、大小C根据男的说的“就是有点儿贵”,可知男的对房子的价格不满意,所以选C。
最新回复
(
0
)