首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所
admin
2020-02-27
63
问题
在考生文件夹中有一个工程文件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全国计算机二级
相关试题推荐
以下关于命令按钮的叙述中正确的是()。
窗体上有Command1、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommand1_Click()m=InputBox("请输入一个正
设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是()。
数据库应用系统中的核心问题是()。
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下:PrivateTypexaAsIntegerbAsIntegerEndTypePrivateSubCommand1_Click()
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:PublicxAsIntegerPrirateSubFo
程序运行时,要清除组合框Combol中的所有内容,应使用语句()。
以下语句中正确的是()。
在数据库管理技术发展的三个阶段中,没有专门的软件对数据进行管理的是()。
已知二叉树后序遍历序列是CDABE,中序遍历序列是CADEB,它的前序遍历序列是()。
随机试题
Overtheyears,collegestudentshavestoodtogetherforwhattheybelievein,fromcivilrightstoanti-warpoliciestothemor
蟾酥类成分的中毒表现是
消费者和经营者发生消费者权益争议的,解决途径不包括()。
关于沉入桩施工技术要点,正确的有()。
保险赔偿与给付的基础是( )。
下列有关管理层讨论与分析的说法中,正确的有()。
下列属于环境保护设施的是()。
下列关于法律与道德的表述,能够成立的是()。
2010年,某省广电实际总收入为145.83亿元,同比增长32.07%。其中,广告收入为67.08亿元,同比增长25.88%;有线网络收入为45.38亿元,同比增长26.35%;其他收入为33.37亿元,同比增长57.3%。2010年,该省广电收
Theenergycrisis,whichisbeingfeltaroundtheworld,hasdramatizedhowthecarelessuseoftheearth’sresourceshasbrough
最新回复
(
0
)