首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所
admin
2019-05-14
29
问题
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所示)。程序不完整,请在指定的位置把程序补充完整。
注意:不得修改原有程序和控件的属性。程序结束运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件。 步骤2:分析并在适当位置编写程序代码。 参考代码 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)<=bThen’比较素数大小 b=arr(i)’将较小素数赋给b Label4.Caption=b’在标签中显示 Next 步骤3:按照题目要求调试并运行程序,效果如图3.16所示。 [*] 步骤4:关闭程序后,按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/LUUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面()不是VB的文件系统控件。
在窗体上有两个文本框:Text1和Text2,然后编写如下事件过程:PrivateSubForm_Load()ShowText1.Text=“”:Text2.Text=“”:Yext2.SetFocusEnd
当窗体最小化时缩小为一个图标,设置这个图标的属性是()。
以下数据结构中,属于非线性数据结构的是()。
在窗体(Name属性为Form1)上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下两个事件过程()。PrivateSubCommandl__Click()
若将变量TestDate声明为Date类型,则下列为变量TestDate赋值的语句中正确的是()。
窗体上有两个名称分别为Textl、Text2的文本框,一个名称为Commandl的命令按钮。设有如下的类型声明:TypePersonnameAsString*8majorAsString*20EndType
下列操作中不能向工程中添加窗体的是()。
在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,如图1所示,对应的事件过程是()。
随机试题
患儿,5月,反复阵发性哭闹,发作时面色苍白,呕吐3次,为胃内容物。体检腹部扪及腊肠样块物,肛指检查指套上有果酱样大便。最可能的诊断为:
患者,男性,20岁,大二学生。2周来突然兴奋话多,言语夸大,说自己是中国的乔布斯,能开很多家公司,每个都可以进入世界500强。连夜搞发明创造,吃饭都狼吞虎咽,说要分秒必争。家人朋友劝阻他就发脾气,说他们智障者,不配与自己说话。针对该患者宜首选的药物是
Thesedaysmostpeople,especiallyyounggirls,liketolookslim.Ourgrandfather’s【21】weredifferent【22】ours,butnowadays【23】
呼吸中枢兴奋剂应用于下述哪种疾病
关于诉讼代理人的代理权消灭,下列说法正确的是:()
魏某系收购废旧物品小贩,他答应某钢铁广的青年工人赵某:如果赵某从厂里偷出钢锭,他将如数收购。赵某遂陆续从厂内共偷出价值3000元的钢锭交于魏某。二人的行为属于:
以下说法符合《中华人民共和国矿产资源法》规定的是()。
企业定额的作用表现在( )。
以下与“书山有路勤为径,学海无涯苦作舟”判断不同的是()。
Hetalkstoughbuthasatenderheart.
最新回复
(
0
)