首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个正整数读入数组a中; ②单击“统计”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个正整数读入数组a中; ②单击“统计”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整
admin
2017-04-26
32
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:
①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个正整数读入数组a中;
②单击“统计”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方,那么它就是完全平方数。例如,36:62,所以36就是一个完全平方数),并将这些完全平方数的最大值与个数分别显示在文本框Text1、Text2中。
在给出的窗体文件中有了全部控件(如图6所示),但程序不完整,请将程序中的注释符去掉,把?号改为正确的内容,实现上述功能。
注意:考生不得修改窗体文件已存在的控件和程序,最后将程序原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有两个标题分别为“添加”和“退出”的命令按钮,一个内容为空的列表框List1。请画一个标签,其名称为Label1,标题为“请输入编号”;再画一个名称为Text1,初始值为空的文本框,如图7所示。程序功能如下:
①系统启动时,自动向列表框添加一个编号信息“a0001”。
②系统运行时,在文本框Text1中输入一个编号,并单击“添加”按钮时,如果该编号与已存在于列表框中的其他编号不重复,则将其添加到列表框List1已有项目之后;否则,将弹出“不允许重复输入,请重新输入!”对话框,单击该对话框中的“确定”按钮,可以重新输入。
③单击“退出”按钮,则结束程序运行。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。
选项
答案
第1小题 步骤1:打开考生文件夹下的本题工程文件sjt3.vbp,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 Ifx=m^2 Then:is_square=flag Ifa(k)>max Then Text1.Text=max:Text2.Text=num 步骤2:按要求将文件保存至考生文件夹中。 第2小题 步骤l:打开考生文件中的本题工程文件sjt4.vbp,如下表在窗体中画出控件并设置其相关属性。 [*] 步骤2:在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 List1.Addltem"a0001" For i=0 To List1.ListCount-1 List1.ListIndex=I:List1.Addltem Text1.Text End 步骤3:按要求将文件保存至考生文件夹中。
解析
第1小题
is square()函数用于判断参数x是否为完全平方数,方法是从1到x的平方根进行循环,依次判断x是否能等于循环变量的平方,若等于则退出循环,返回True,若循环结束后都没有等于某个循环变量的平方则返回False。
求完全平方数的最大值,只需要先预设最大值为0,然后在循环中每次找到一个完全平方数就将其与最大值比较,若大于预设最大值则令其为新的最大值,同时令计数器加1,循环结束后可得最大值与个数。
第2小题
若要在系统启动时,自动向列表框添加一个编号信息“a0001”,需要在窗体的Load事件中调用列表框的Addltem方法向列表框中添加列表项。
在“添加”按钮的单击事件中,需要判断输入的值是否在列表框中已存在,为了实现这个功能,需要遍历整个列表框,其循环条件为For i=0 To List1.ListCount-1;在循环中首先令ListIndex属性值为i,这样第i个列表项的内容就是列表框的Text属性值,可以与文本框中的内容进行比较,若已经存在则弹出提示信息,并退出事件过程,若循环结束后还没有重复,则调用列表框的AddItem方法将文本框的内容加入列表框。
在“退出”按钮的单击事件过程中,使用End语句结束整个程序的运行。
转载请注明原文地址:https://kaotiyun.com/show/DUGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假设有如下的记录类型:TypeStudentnumberAsStringnameASStringageAsIntegerEndType则正确引用该记录类型变量的代码是_____
树是结点的集合,它的根结点的数目是()。
执行如下语句:a=InputBox("Today","Tomorrow","Yesterday",,,"Daybeforeyesterday",5)将显示一个对话框,在对话框的输入区中显示的信息是______。
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Forn=1To20IfnMod30Thenm=m+n/3NextPrintnEnd
假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。在Form1上画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请将下面的程序补充
计时器事件之间的间隔通过【】属性设置。
设有下列二叉树:对此二叉树后序遍历的结果为
一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体“项目主管”与实体“项目”的联系属于【】的联系。
For-Next循环的初值、终值与步长()。
随机试题
A.血胸B.张力性气胸C.闭合性气胸D.开放性气胸E.血气胸胸腔创口较大,空气随呼吸自由出入胸腔的疾病称为
[2011年第60题]关于排水管的敷设要求,以下哪项错误?
电路如图所示,已知Is=5A,US=3V,当恒流源单独作用时,流过电阻R的电流是3A,那么,当恒流源和恒压源共同作用时,流过电阻R的电流I值为()。
实现项目管理目标的决定因素是( )。
某机器中使用的轴,其危险截面上承受的最大弯曲应力σmax=80MPa,最小弯曲应力σmin=-80MPa,该截面的尺寸系数εσ=0.84,表面质量系数β=0.93,有效应力集中系数Kσ=1.88。轴所使用的材料的弯曲疲劳极限,σ-1=245MPa,若规定
选出对下列句子运用修辞方法判断正确的一组()。(1)杜鹃花开遍山野,香飘万里。(2)姑娘银铃般的笑声也跟着响起来。(3)不读书,无以知窗外的精彩;不读书,无以知世界的宽广;不读书,无以知文化的力量。(4)微风
犯罪吸引是指犯罪个体之间或犯罪团伙成员之间.因性格与目标的一致.能力与经验的互补.兴趣与情绪的相投而产生的相互聚合的愿望和张力。根据上述定义.下列属于犯罪吸引的是:
家的温暖自然是有父母之间、夫妻之间互为牵挂相依的浓浓的亲情维系。家和万事兴,这句话我们追求了数千年仍然是无果期盼,为了亲人朋友间亲情的传递,从远古的跑马传书信鸽递信的见信如面,到现在快捷的交通工具,日行万里都嫌慢;从声讯传播到视频面对面仍然觉得隔膜,我们仍
唐代建立了中央和地方分级管理的教育行政体制。
WhatisthemaincauseoftheproblemofthemovieindustryinHongKong?Whichofthefollowingisthebesttitleofthispass
最新回复
(
0
)