首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有一个名称为Text1的文本框;还有两个名称分别为C1、C2的命令按钮,标题分别为“计算”、“存盘”。有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有一个名称为Text1的文本框;还有两个名称分别为C1、C2的命令按钮,标题分别为“计算”、“存盘”。有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则
admin
2019-08-21
56
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有一个名称为Text1的文本框;还有两个名称分别为C1、C2的命令按钮,标题分别为“计算”、“存盘”。有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则返回True,否则返回False。
请编写适当的事件过程,使得程序运行时,单击“计算”按钮,找出小于18000的最大素数,并显示在Text1中;单击“存盘”按钮,则将Text1中的计算结果存人考生文件夹下的out5.txt文件中。
注意:考生不得修改isprime函数过程和控件的属性,必须把计算结果通过“存盘”按钮存入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 Lcop isprime=flag End Function 程序结束 参考答案 Private Sub C1_Click() Dim i As Integer For i=17999 To 1 Step-1 If isprime(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:调试并运行程序,关闭程序后按题目要求存盘。
解析
函数过程isprime(a)的功能是通过Do While语句、If判断语句和Int函数,判断参数a是否为素数,如果是素数,则函数返回True,否则函数返回False。在单击“计算”按钮事件过程中,通过For语句和调用函数过程isprime(a),找出小于18000的最大的素数,并将其显示在Textl中;在单击“存盘”按钮事件过程中,通过文件操作把Text1中的计算结果存入考生文件夹下的out5.txt文件中。
转载请注明原文地址:https://kaotiyun.com/show/iOUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为CD1的通用对话框,一个名称为Command1的命令按钮,相应的事件过程如下:PrivateSubCommandl_Click()CD1.Filter="AllFile|*.*|TextFile|*.txt|PPT|*.p
窗体上有1个名称为Commandl的命令按钮,事件过程如下:PrivateSubCommandl_Click()Dimx%,y%,z%x=InputBox("请输入第1个整数"):y=InputBox("请输入第2个整数")DoUnt
在窗体上画一个命令按钮,然后编写如下程序:OptionBase1PrivateSubCommandl_Click()DimArr(10)AsIntegerFori=1To10Arr(i)=11-iNexti
在窗体上画一个文本框,其名称为Text1,然后编写如下程序:OptionBase1PrivateSubForm_Click()DimArc(10)AsIntegerFori=6To10Arr(i)=i-3Ne
关系数据库管理系统能实现的专门关系运算包括()。
数据库设计中反映用户对数据要求的模式是()。
设一棵树的度为4,其中度为4,3,2,1的结点个数分别为2,3,3,0。则该棵树中的叶子结点数为()。
有三个关系R、S和T如下:其中关系T由关系R和S通过某种操作得到,该操作为()。
设一棵满二叉树共有15个结点,则在该满二叉树中的叶子结点数为()。
某棵树中共有25个结点,且只有度为3的结点和叶子结点,其中叶子结点有7个,则该树中度为3的结点数为()。
随机试题
每一个硅抛光片上可制出成百上千独立的集成电路,这种硅片称为_______。
下列哪项不属于肉芽组织的组成成分?
颈椎椎间盘CT扫描的层厚、层距通常为
悬空高处作业人员应系挂安全带、佩戴工具袋。严禁在未固定、无防护的构件及安装中的管道上作业或通行。下列关于悬空作业的要求中,错误的是()。
根据反垄断法律制度的规定,下列以低于成本的价格销售商品的情形中,不属于违法行为的有()。
材料一“总有一天,到那时……所有的欧洲国家,无须丢掉你们各自的特点和闪光的个性,都将紧紧地融合在一个高一级的整体里;到那时,你们将构筑欧洲的友爱关系……”
(1)外表大大咧咧的她,其实内心里深藏着不为人知的丰富_______的感情。(2)经过_______深入的调查研究,这家公司最终选择上海作为进入中国市场的切人点。(3)我们在对某些教育现象进行分析后,_______应该思考教育的更深层次
根据下列材料回答问题。2013年1—9月,苏南、苏中、苏北地区生产总值分别为26273.1亿元、8426.8亿元、9784.8亿元,同比分别增长10.2%、11.9%、12.2%;规模以上工业增加值为11762.9亿元、4900.9亿元、4829
A.奶瓶龋B.环状龋C.猛性龋D.静止龋E.继发龋包括涉及下前牙在内的绝大多数牙齿的快速、广泛的龋蚀()。
Youshouldspendabout20minutesonQuestions13—26whicharebasedonReadingPassage2below.Moleshapp
最新回复
(
0
)