首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有一个名称为Textl的文本框;还有两个名称分别为C1、C2的命令按钮,标题分别为“计算”、“存盘”。有一个函数过程isprirne(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有一个名称为Textl的文本框;还有两个名称分别为C1、C2的命令按钮,标题分别为“计算”、“存盘”。有一个函数过程isprirne(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,
admin
2015-06-30
25
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有一个名称为Textl的文本框;还有两个名称分别为C1、C2的命令按钮,标题分别为“计算”、“存盘”。有一个函数过程isprirne(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:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/8wQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行下面的程序段后,变量c的值为a=14b=30SelectCaseb\10Case0c=a*10+bCase1To9
下面程序段的运行结果是a=1b=1Doa=a+1b=b+1LoopUntilb>5Print"k=";a;Spc(4);"b="
下列说法正确的是
要使文本框获得输入焦点,则应采用文本框控件的方法是
结构化程序设计主要强调的是______。
阅读程序:OptionBase1PrivateSubFormClick()Dima(3)AsIntegerPrint“输入的数据是:”;Fori=1To3
以下Prime过程,用于判断一个数是否为素数。素数是只能被1和数本身整除的自然数。一个自然数不是素数,就是合数。用被测试的数除以从2开始到该数本身的数,如果能除尽(余数为0),则为合数:如果都除不尽(余数均不为0),则为素数。请在划线处将下面过程补充完整:
VisualBasic中的控件分为3类,它们是标准控件、【】和可插入对象。
E-R模型设计属于数据库的______。
假定建立了一个名为Command1的命令按钮数组,则下列说法中错误的是()。
随机试题
教育是如何促进生产力发展的?
能量型彩色多普勒的技术特点是
与咽旁间隙不直接相通的间隙是( )
患者,男,50岁,腰膝酸软,手足不温,小便频数,淋沥不尽,阳痿早泄;舌淡胖,苔白,脉沉细。其证型是( )
普萘洛尔阻断β1受体可使
肺结核大咯血的病人突然血痰停止,病人极度紧张,双手乱抓,应考虑
铁路工程地质调绘时,全线工程地质图,地层单元宜划分到(),影响线路方案的地层时应划分到()。
某建设项目排放两种大气污染物,经计算甲污染物的最大地面浓度占标率Pi为50%,D10%为6km,乙污染物的最大地面浓度占标率Pi为70%,D10%为5.5km,则该项目的大气环境评价等级为()。
以下表述中存在错误的是()。
若要求查找选修“数据库技术”这门课程的学生姓名和成绩,将使用关系______。为了提高查询速度,对SC表(关系)创建唯一索引,应该创建在哪个(组)属性上?______。
最新回复
(
0
)