首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp。运行程序后,单击“读数据”按钮,从data5.dat文件中读出一个数据,并显示在标签Labe11.1中;单击“找素数”按钮,则在大于Labe11的数据范围内找出最小的素数,并将其显示在标签Labe12中。
在考生目录下有一个工程文件sjt5.vbp。运行程序后,单击“读数据”按钮,从data5.dat文件中读出一个数据,并显示在标签Labe11.1中;单击“找素数”按钮,则在大于Labe11的数据范围内找出最小的素数,并将其显示在标签Labe12中。
admin
2019-03-14
75
问题
在考生目录下有一个工程文件sjt5.vbp。运行程序后,单击“读数据”按钮,从data5.dat文件中读出一个数据,并显示在标签Labe11.1中;单击“找素数”按钮,则在大于Labe11的数据范围内找出最小的素数,并将其显示在标签Labe12中。
在给出的窗体文件中已经有了全部控件,并给出了读写文件和判断素数的程序代码。但程序不完整。
要求:去掉程序中的注释符,把程序中的“?”改为正确的内容,并编写相应程序段,实现程序功能。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,各命令按钮的事件过程必须至少各执行一次。
选项
答案
【操作步骤】 步骤1:打开考生文件夹中的工程文件sjt5.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Labe11.Caption=x Close#1 Private Sub Command2 C1ick() ’=========以下考生编写============ Dim n As Integer n=Labe11.Caption+1 While(P(n)=False) n=n+1 Wend Labe12.CaDtion=n ’====考生编写程序结束============== Open App.Path&"\out5.dat"For Output As#1 Print#1,Labe12.Caption Close #1 End Sub 步骤2:按<F5>键运行程序,单击各个按钮测试验证。 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/GbUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面描述中错误的是
有下面程序代码:PrivateSubCommandl—Click()DimxAsInteger,sAsIntegerx=1Fork=1To3x=x+1:proex:s=s+xNextkPrintsEndSubP
设有如下函数:FunctionDelSpace(chAsString)AsIntegerDimn%,st$,c$st=“”:n=0Fork=1ToLen(ch)C=Mid(ch,k,1)Ifc“”Thenst=st&CEl
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Labe12和Command1,然后编写如下程序:PrivateSubftme(LAsLabel)PrivateSubCommandl-CliekOL.Caption=“1234”a
若要把窗体上命令按钮Command1的状态设置为不可用,应该执行的命令是
下列描述中,错误的是
当文本框中的内容发生改变时所触发的事件是
下列关于线性链表的描述中,正确的是()。I、只含有一个指针域来存放下一个元素地址Ⅱ、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件)Ⅲ、结点由两部分组成:数据域和指针域。
对下列二叉树进行前序遍历的结果为()。
在VB集成环境中要结束一个正在运行的工程,可单击工具栏上的一个按钮,这令按钮是
随机试题
不能将所选择的对象传人剪贴板的快捷方式有___________。
酸枣仁汤的功用是
急性腹膜炎提示病情恶化的重要指征是
施工过程中由偶然性因素引起的质量波动,一般属于()。
【背景资料】某建设工程于2014年4月16日开工,施工单位在开工前编制了施工组织设计、各专项施工方案,并明确了本工程的施工进度计划。已知本工程各项工作的计划持续时间及逻辑关系如表1所示:表1各项工作的计划持续时间及罗辑关系在工
世界多边贸易体制开始形成的标志是()
关于成长阶段企业信贷风险的分析,不正确的是()。
下列关于语言文字的说法错误的是:
Wisebuyingisapositivewayinwhichyoucanmakeyourmoneygofurther.Thewayyougoaboutpurchasinganarticleoraservi
______hecanrecoversoon,Idon’tmindhowmuchmoneyIhavetopay.
最新回复
(
0
)