首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上画有两个名称分别为Text1、Text2的文本框,其中Text1可多行显示。请画两个名称为Command1、Command2,标题为“产生数组”、“查找”的命令按钮。如图8所示。程序功能如下: ①单
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上画有两个名称分别为Text1、Text2的文本框,其中Text1可多行显示。请画两个名称为Command1、Command2,标题为“产生数组”、“查找”的命令按钮。如图8所示。程序功能如下: ①单
admin
2020-07-22
29
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上画有两个名称分别为Text1、Text2的文本框,其中Text1可多行显示。请画两个名称为Command1、Command2,标题为“产生数组”、“查找”的命令按钮。如图8所示。程序功能如下:
①单击“产生数组”按钮,则用随机函数生成10个0~100之间(不含0和100)互不相同的数值,并将它们保存到一维数组a中,同时也将这10个数值显示在Text1文本框内;
②单击“查找”按钮将弹出输入对话框,接收用户输入的任意一个数,并在一维数组a中查找该数,若查找失败,则在Text2文本框内显示该数“不存在于数组中”;否则显示该数在数组中的位置。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。
选项
答案
步骤l:打开考生文件夹中的本题工程文件sjt5.vbp,在窗体上画两个命令按钮,属性及其值如下表所示。 [*] 步骤2:在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 a(i)=Fix(Rnd*99+1) For j=l To i-1 i=i-1 If a(i)=num Then If i>10 Then 步骤3:按要求将文件保存至考生文件夹中。
解析
本题在“生成数组”按钮的单击事件过程中,通过For循环生成10个0~100之间(不含0和100)互不相同的随机数,并存入数组a,其中生成函数的表达式应为:Fix(Rnd*99+1)。为防止生成相同的随机数值,每新生成一个随机数后,都通过For循环让其与之前生成的i.一个随机数逐一比较,若新生成的随机数已存在,则将当前循环变量i的值减1,重新为数组元素a(i)生成随机数。
在“查找”按钮的单击事件过程中,通过For循环让数组a中的元素逐一与用户在输入对话框中输入的数相比较,若条件表达式a(i)=num成立,则表示找到相同的数,并在文本框Text2中显示相关信息。若没找到相同的数,循环结束后循环变量i>10,则在Text2文本框内显示该数“不存在于数组中”。
转载请注明原文地址:https://kaotiyun.com/show/cPHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
若要把窗体上命令按钮Command1的状态设置为不可用,应该执行的命令是
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程:PrivateSubCommand1Click()Counter=0Fori=1To4Fori=6To1Step-2
以下叙述中错误的是
关于文件操作,以下叙述中正确的是
窗体上有文本框Text1和一个菜单,菜单标题、名称见表,结构如图所示。要求程序执行时单击“保存”菜单项,则把其标题显示在Tcxt1文本框中,下面可实现此功能的事件过程是()。
在利用菜单编辑器设计菜单时,为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键,可以将该菜单项的标题设置为
下列关于顺序文件的描述中,正确的是()。
某二叉树共有12个结点,其中叶子结点只有1个。则该二叉树的深度为(根结点在第1层)
算法的空间复杂度是指()。
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
随机试题
()不是家禽的器官。
下列可减弱硝苯地平治疗心绞痛的因素是
当久期缺口为负值时,如市场利率上升,流动性减弱;市场利率下降,流动性增强。()
阅读下面高中课堂教学导入片段,回答问题。某地理教师在讲述“热力环流”时,这样导入新课:“同学们,地球周围的大气好像一部巨大的机器,日夜不停地运动着。它的运动形式多种多样,范围也有大有小,正是这种不停的大气运动,形成了地球上今天不同地区的天气和气候。大气
_______、_______、_______是学生体质健康标准的必测项目。
运行如下程序:PrivateSubCommand1_Click()Dima(5,5)AsIntegerFori=1To5Forj=1To4a(i,j)=i*2+jIfa(i,
考生文件夹下存在一个数据库文件“samp1.accdb”,里面已经设计好表对象“tStud”。请按照以下要求,完成对表的修改:完成上述操作后,将“备注”字段删除。
SusanCarter
Whatdoesthewomansayaboutthebook?
AttherecentInternationalSoundOffinKansasCity-whosecarsand【M1】______driverscompetedforthehighestvolu
最新回复
(
0
)