首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其功能是: ①单击“读数据”命令按钮,则将考生文件夹下in5.dat文件中的100个正整数读人数组a中,同时显示在文本框Text1中。 ②单击“素数”按钮,则将数组a中所有素数(只能被1和自身整除的
在考生文件夹下有一个工程文件sjt5.vbp,其功能是: ①单击“读数据”命令按钮,则将考生文件夹下in5.dat文件中的100个正整数读人数组a中,同时显示在文本框Text1中。 ②单击“素数”按钮,则将数组a中所有素数(只能被1和自身整除的
admin
2015-06-30
25
问题
在考生文件夹下有一个工程文件sjt5.vbp,其功能是:
①单击“读数据”命令按钮,则将考生文件夹下in5.dat文件中的100个正整数读人数组a中,同时显示在文本框Text1中。
②单击“素数”按钮,则将数组a中所有素数(只能被1和自身整除的数称为素数)存人数组b中,并将数组b中的元素显示在文本框Text2中。
在给出的窗体文件中已经有了全部控件(如图所示),但程序不完整。
要求:完善程序使其实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须先执行“素数”操作,然后再用窗体右上角的关闭按钮结束程序,否则将没有成绩。最后,程序按原文件名进行存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(100) As Integer, num As Integer Private Sub Command1_Click() Dim k As Integer Open App.Path & "\in5.dat" For Input As #1 For k = 1 To 100 Input #1, a(k) Text1 = Text1 + Str(a(k)) + Space(2) Next k Close #1 End Sub Private Sub Command2_Click() Dim b(100) As Integer num = 0 If Len(Text1.Text) = 0 Then MsgBox "请先执行"读数据"功能!" Else ’考生编写(功能:生成存放素数的数组 b ) ’注意:请务必将数组 b 的元素个数存入变量num中。 ’以下程序段将 b 数组的内容显示在Text2中 For i = 1 To num Text2.Text = Text2.Text + Str(b(i)) + Space(2) Next i End If End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & "\out5.dat" For Output As #1 Print #1, Text2.Text Close #1 End Sub 程序结束 参考答案 For k = 1 To 100 flag = True i = 2 Do While i <= Int(a(k) / 2) And flag If Int(a(k) / i) = a(k) / i Then flag = False Else i = i + 1 End If Loop If flag = True Then num = num + 1 b(num) = a(k) End If Next k 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/pVQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体中放置控件,对该控件的操作错误的是()。
有下列二叉树,对此二叉树中序遍历的结果为()。
有如下函数过程。FunctionUNC(ByValxAsInteger,ByValyAsInteger)AsIntegerDoWhiley<>0S=x/yx=yy
设在工程中有一个标准模块,其中定义了如下记录类型TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮
下列程序段的执行结果为______。K=0ForI=1To3A=I^I^KPrintA;NextI
在窗体上面画一个命令按钮,然后编写如下事件过程______。OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)
在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1、Text2,然后编写如下程序:PrivateSubCommand1_Click()a=Text1.Textb=Text2.
在3种不同类型的组合框中,只能选择而不能输入数据的组合框是【】。
数据结构包括数据的逻辑结构、数据的【】以及对数据的操作运算。
下列数据结构中,能用二分法进行查找的是()。
随机试题
婴幼儿易患呼吸道感染的免疫因素是()
彩色多普勒超声检测外周血管异常,下列哪一项是错误的
王小二在旁听其弟故意伤害一案中,违反法庭秩序,当庭侮辱作证的证人,且不听审判长的制止警告,影响恶劣。经院长批准,对其可予以何种处罚?( )
在()中,证券当前价格完全反映所有公开信息,仅仅以公开资料为基础的分析将不能提供任何帮助,未来的价格变化依赖于新的公开信息。
装修公司甲在完成一项工程后,将剩余的木地板、厨卫用具等卖给了物业管理公司乙。但甲营业执照上的核准经营范围并无销售木地板、厨卫用具等业务。甲、乙的买卖行为法律效力是()。
根据《关于组织社会力量参与社区矫正工作的意见》,下列关于社会力量参与社区矫正工作的说法,正确的有()。
一般资料:求助者,男性,33岁,大学教师。案例介绍:求助者博士毕业后,留校任教,由于工作出色,29岁时就破格评为副教授。求助者一直全心追求事业,无暇顾及个人问题。直到一年前才经人介绍结识了现在的女友。随着了解的加深,求助者觉得女友各方面都很优秀,
某化学教师在一次化学考试中设计了这样一道题:【试题】装满氧气的集气瓶如图4所示放置,并将带火星的木条迅速伸入到集气瓶底部,发现木条复燃,且在甲瓶中比在乙瓶中燃烧时间长,上述实验说明氧气具有的性质是:(1)_______________________
我国古代有一种文体,介于诗和散文之间。刘勰在《文心雕龙》中描述其特点为“铺采摘文,体物写志”。这类文体是()。
若网络的各个节点均连接到同一条通信线路上,且线路两端有防止信号反射的装置,这种拓扑结构称为()。
最新回复
(
0
)