首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有一个名称为Textl的文本框;还有两个名称分别为C1、C2的命令按钮,标题分别为“计算”、“存盘”。有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有一个名称为Textl的文本框;还有两个名称分别为C1、C2的命令按钮,标题分别为“计算”、“存盘”。有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则
admin
2017-12-14
77
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有一个名称为Textl的文本框;还有两个名称分别为C1、C2的命令按钮,标题分别为“计算”、“存盘”。有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则返回True,否则返回False。
请编写适当的事件过程,使得程序运行时,单击“计算”按钮,找出小于18000的最大素数,并显示在Text1中;单击“存盘”按钮,则将Text1中的计算结果存入考生文件夹下的out5.txt文件中。
注意:考生不得修改isprime函数过程和控件的属性,必须把计算结果通过“存盘”按钮存入out5.txt文件中,否则将没有成绩。
选项
答案
函数过程isprime(a)的功能是通过Do While语句、If判断语句和Int函数,判断参数a是否为素数,如果是素数,则函数返回True,否则函数返回False。在单击“计算”按钮事件过程中,通过For语句和调用函数过程isprime(a),找出小于18000的最大的素数,并将其显示在Text1中;在单击“存盘”按钮事件过程中,通过文件操作把Text1中的计算结果存入考生文件夹下的out5.txt文件中。 【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 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 For i=17999 To 1 Step一1 Ifisprime(i)Then Textl=i Exit For End If Next End Sub Private Sub C2一Click() Open App.Path&“\out5,txt”For Output As#1 Print#1.Text1.Text Close#1 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/TgGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要使一个文本框具有水平和垂直滚动条,应先将其MultiLine属性设置为True,然后再将ScrollBar属性设置为______。
下列关于Sub过程的叙述,正确的是()。
将命令按钮的______属性设置为True后,就可以按Esc键触发其Click事件。
用Dim(1,3to7,10)声明的是一个______维数组。
VisualBasic一共有设计、运行和中断三种模式,要使用调试工具应该()。
记时器控件能有规律的以一定时间间隔触发【】事件,并执行该事件过程中的程序代码。
数据库技术的根本目标是要解决数据的
执行下列语句后,显示输入对话框,此时如果单击“确定”按钮,则变量strlnput的内容是______。atrInput=InputBox("请输入字符串","字符串对话框","字符串")
下列叙述中,不属于设计准则的是()。
表达式x=Sqr(a^2-5)+sqr(b^2-5)的类型是
随机试题
中国国民经济在1959年到1961年发生严重困难的原因是()
当前我国农民增收困难,城乡收入差距不断扩大的势头遏制不住,其原因是什么?
A.舌神经B.舌咽神经C.舌下神经D.鼓索神经E.下颌神经支配舌后1/3感觉的是
图4-25所示起重机的平面构架,自重不计,且不计滑轮自重。已知F=100kN,L=70cm,B、D、E为铰链连接,则支座A的约束力为()。
在已浇注混凝土强度未达到( )N/mm2以前,不得在其上踩踏或安装模板及支架等。
下列关于期货公司期货投资咨询业务利益冲突防范的表述中,错误的是()。
万利家具公司为中档卧室家具生产企业,成立于1995年,并于2000年在深圳证券交易所公开发行股票及上市。万利家具公司2005年至2010年间分店数量、职工人数、收入总额及税前利润数据如下:鉴于2011年第一季度税前利润继续下滑,万利家具
甲乙丙三人实施信用证诈骗。侦查过程中,某地级市公安机关向该市检察院提请批准逮捕甲、乙、丙三人。其中,甲系省、市两级人民代表大会代表;乙系自由职业者;丙系无国籍人士。在审查批捕过程中,检察院查明:乙已怀有两个月身孕。根据刑法规定,信用证诈骗罪的法定最高刑
孙中山建立的兴中会的纲领是()。
INSURANCEPOLICYTheinsurer(保险公司):(46)Theinsured:(47)Theobject(投保对象)oftheinsurancepolicy:(48)of
最新回复
(
0
)