首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有一个名称为Text1的文本框;还有两个名称分别为C1、C2的命令按钮,标题分别为“计算”、“存盘”。有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有一个名称为Text1的文本框;还有两个名称分别为C1、C2的命令按钮,标题分别为“计算”、“存盘”。有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则
admin
2017-07-28
15
问题
在考生文件夹下有一个工程文件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 Loop isprime=flag End Function 程序结束 参考答案 Private Sub C1_Click() Dim i As Integer For i=17999 To 1 Step一1 If isprime(i)Then Text1=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 Whik语句、If判断语句和Int函数,判断参数a是否为素数,如果是素数,则函数返回True,否则函数返回False。在单击“计算”按钮事件过程中,通过For语句和调用函数过程isprime(a),找出小于18000的最大的素数,并将其显示在Text1中;在单击“存盘”按钮事件过程中,通过文件操作把Text1中的计算结果存入考生文件夹下的out5.txt文件中。
转载请注明原文地址:https://kaotiyun.com/show/vCGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列语句的输出结果是【】。PrintFormat$(1258.6,"000,000.00")
数据库保护分为:安全性控制【】并发性控制和数据的恢复。
以下能判断是否到达文件尾的函数是______。
为了描述x>y和y>z同时成立,下述选项中正确的是()。
以下叙述中错误的是
如果A为整数且|A|>=10,则打印“OK”,否则打印“Error”,表示这个条件的单行格式If语句是()。
下面关于菜单的叙述中错误的是______。
设有下列二叉树:对此二叉树后序遍历的结果为
在深度为5的满二叉树中,叶子结点的个数为______。
实现算法所需的存储单元多少和算法的工作量大小分别称为算法的【】。
随机试题
可以在饮用水水源一级保护区开展的活动是()
绩效计划的内容。
A.高渗性缺水B.低渗性缺水C.等渗性缺水D.低钾血症E.高钾血症肠外瘘()
男,2岁半,发热咳嗽3天气急半天,出生后3个月发现心脏有杂音,曾患肺炎5次,并发心力衰竭一次。体格检查:消瘦,唇周青紫,有轻度鼻扇。体温39℃,心率150次/分,呼吸50次/分。心前区隆起,胸骨左缘第3、4肋间有收缩期震颤伴3级全收缩期杂音,广泛传导。两肺
A.离子交换法B.电渗析法C.渗透法D.反渗透法E.蒸馏法制备注射用水最经典的方法是
食积气滞应首选的药物是()
与接合有关的细菌结构是
"Whereistheuniversity(大学)?"ThisisaquestionthatmanyvisitorstoCambridge(剑桥)ask.Butnoonecangivethema【C1】______an
=______.
TheGesturalTheoryofLanguageTheinitiallanguageinhominidswasgestural,andcommunicationusingthehandswasactual
最新回复
(
0
)