首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp。运行程序后,单击“读数据”按钮,从data5.dat文件中读出一个数据,并显示在标签Labe11.1中;单击“找素数”按钮,则在大于Labe11的数据范围内找出最小的素数,并将其显示在标签Labe12中。
在考生目录下有一个工程文件sjt5.vbp。运行程序后,单击“读数据”按钮,从data5.dat文件中读出一个数据,并显示在标签Labe11.1中;单击“找素数”按钮,则在大于Labe11的数据范围内找出最小的素数,并将其显示在标签Labe12中。
admin
2019-03-14
55
问题
在考生目录下有一个工程文件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://kaotiyun.com/show/GbUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据的存储结构是指
有下面程序代码:PrivateSubCommandl—Click()DimxAsInteger,sAsIntegerx=1Fork=1To3x=x+1:proex:s=s+xNextkPrintsEndSubP
以下过程定义中正确的过程首行是
窗体上有一个名称为CD1的通用对话框;一个名称为Commandl的命令按钮,相应的事件过程如下:PrivateSubCommandl—Click()CDl.Filter=“AllFile**11TextFile—txtlPPT*ppt”CD
以下关于过程及过程参数的描述中,错误的是
对于列表框控件Listl,能够表示当前被选中列表项内容的是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Labell、标题为“列表框的使用”的标签。再画一个名称为List1的列表框,列表中含有5个表项,表项内容分别为“北京”、“山西”、
在学校中,“班级”与“学生”两个实体集之间的联系属于()关系。
在考生目录下有一个工程文件sit4.vbp。窗体上有一大一小两个名称分别为Shape2、Shapel的Shape控件。请在属性窗口中将Shape1控件设置为圆形,并将其颜色设置为红色f颜色值为&HOOOOOOFF&),如图6所示。要求:当单击窗体时,Sh
某系统总体结构图如下图所示:该系统总体结构图的深度是
随机试题
男性,55岁,行右肺上叶切除术,术后4小时,意识恢复T35.8℃,P84次/分,R20次/分,BP120/80mmHg,此时监测生命体征间隔时间为()
新生儿缺氧缺血性脑病出现惊厥时首选
哪种睡眠障碍是最常见的
(2007)在公共建筑中,以下哪一种竖向交通方式不能作为防火疏散之用?
电能计量装置Ⅰ类用于()。
采用高压喷射注浆法加固地基时,下述说法中正确的是()。
存款准备金政策的主要内容有()。
根据契税相关法律规定,房屋被县级以上人民政府征用、占用后,重新承受房屋权属的,免征契税。()
政府机关成立时大都采用按照()来划分部门的方式。
A、InBritain.B、InAustralia.C、InItaly.D、Noneoftheabove.C
最新回复
(
0
)