首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所
admin
2020-02-27
89
问题
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所示)。程序不完整,请在指定的位置把程序补充完整。
注意:不得修改原有程序和控件的属性。程序结束运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private arr(100) As Integer Public Function prime(x As Integer) k = Int(Sqr(x) + 5) For i = 2 To k If x Mod i = 0 Then prime = False Exit Function End If Next prime = True End Function Private Sub Command1_Click() Open App.Path & "\in5.txt" For Input As #1 For i = 1 To 40 Input #1, arr(i) Next Close #1 End Sub Private Sub Command2_Click() ’=====考生编写程序开始========== ’=====考生编写程序结束========== Open App.Path & "\out5.txt" For Output As #1 Print #1, Label3.Caption, Label4.Caption Close #1 End Sub 程序结束 参考答案 Dim a As Integer Dim b As Integer a = 0 b = arr(1) For i = 1 To 40 If prime(arr(i)) Then a = a + 1 Label3.Caption = a Next For i = 1 To 40 If prime(arr(i)) And arr(i) <= b Then b = arr(i) Label4.Caption = b Next 步骤3:按照题目要求调试并运行程序。 步骤4:关闭程序后,按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/zRTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click()DimiAsInteger,numAsIntegerDimarr(10)AsIntegerFori=0To10arr(
软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。
在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:PrivateSubCommand1_Click()Fori=1To2Fori=1ToiPrintString(i,"Hello")NextjPrintNexti
设窗体上有名称为Option1的单选按钮,且程序中有语句:IfOpfion1.Value=TrueThen下面语句中与该语句不等价的是()。
在程序运行时,下面的叙述中正确的是()。
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是()。
执行以下程序段:a$="Visi3alBasicProgramming"b$="C++"c$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为()。
能够存放组合框的所有项目内容的属性是()。
对下列二叉树进行前序遍历的结果为()。
某二叉树中有15个度为1的结点,16个度为2的结点,则该二叉树中总的结点数为
随机试题
国际货币基金组织的职能有________、________、________、________、________。
夸美纽斯在《大教学论》中提出了()。
一项研究表明,那些在舒适环境里工作的人比在不舒适环境里工作的人生产效率高25%。评价工作绩效的客观标准包括承办工件数和工件的复杂程度。这表明:日益改善的工作环境可以提高工人的生产效率。以下哪项为真,最能削弱上述结论?()
甲于1992年3月5日犯A罪,该罪的法定最高刑为10年,1996年11月21日甲又犯B罪,B罪的法定最高刑为7年,那么A罪的追诉期限的结束时间应为()。
What’saman?Or,indeed,awoman?Biologically,theanswermightseemobvious.Ahumanbeingisa(n)【C1】______whohasgrownfr
若没有特殊声明,匿名FTP服务登录口令为()。
In1995about700,000robotswereoperatingintheindustrializedworld.Over500,000wereusedinJapan,about120,000inWe
NOTJUSTASHOP!Inhisyearlyreport,theChairmanofachainofretailoutletswritesaboutthefinancialaspectsofthe
TheLondonCentreForyourmeeting,productlaunch,specialeventPurpose-builtroomsLatestpresentationtechnologyFirst-class
A、Neitherofthemlikethewriter.B、BothofthemlikeEllaFitzgerald.C、Oneofthemiscrazyaboutwriting.D、ThemanlikesFi
最新回复
(
0
)