首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上画有两个名称分别为Text1、Text2的文本框,其中Text1可多行显示。请画两个名称为Command1、Command2,标题为“产生数组”、“查找”的命令按钮。如图8所示。程序功能如下: ①单击
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上画有两个名称分别为Text1、Text2的文本框,其中Text1可多行显示。请画两个名称为Command1、Command2,标题为“产生数组”、“查找”的命令按钮。如图8所示。程序功能如下: ①单击
admin
2020-02-27
58
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上画有两个名称分别为Text1、Text2的文本框,其中Text1可多行显示。请画两个名称为Command1、Command2,标题为“产生数组”、“查找”的命令按钮。如图8所示。程序功能如下:
①单击“产生数组”按钮,则用随机函数生成10个0~100之间(不含0和100)互不相同的数值,并将它们保存到一维数组a中,同时也将这10个数值显示在Text1文本框内;
②单击“查找”按钮将弹出输入对话框,接收用户输入的任意一个数,并在一维数组a中查找该数,若查找失败,则在Text2文本框内显示该数“不存在于数组中”;否则显示该数在数组中的位置。要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt5.vbp, 在窗体上画两个命令按钮,属性及其值如表12-6所示。 [*] 步骤2:在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: a(i)=Fix(Rnd*99+1) Forj=1 To i-1 i=i-1 Ifa(i)=num Then Ifi>10Then 步骤3:按要求将文件保存至考生文件夹中。
解析
Rnd()函数用于产生一个小于1但大于或等于0的随机数值,为了生成某个范围内的随机整数,可使用以下公式:Int((upperbound-lowerbound+1)*Rnd+lowerbounD。upperbound是随机数范围的上限,而lowerbound则是随机数范围的下限。
本题在“生成数组”按钮的单击事件过程中,通过For循环生成10个0~100之间(不含0和100)互不相同的随机数,并存入数组a,其中生成函数的表达式应为: Fix(Rnd*99+11。为防止生成相同的随机数值,每新生成一个随机数后,都通过For循环让其与之前生成的i-一个随机数逐一比较,若新生成的随机数已存在,则将当前循环变量i的值减1,重新为数组元素a(i)生成随机数。
在“查找”按钮的单击事件过程中,通过For。循环让数组a中的元素逐一与用户在输入对话框中输入的数相比较,若条件表达式a(i)=num成立,则表示找到相同的数,并在文本框Text2中显示相关信息。若没找到相同的数,循环结束后循环变量i>10,则在Text2文本框内显示该数“不存在于数组中”。
转载请注明原文地址:https://kaotiyun.com/show/8CTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有变量声明:Dima,bAsInteger,c!,d%,e#,fAsLong其中所有的整型变量是()。
用树型结构表示实体之间联系的模型是()。
循环队列的存储空间为Q(1:100),初始状态为front=rear=100。经过一系列正常的人队与退队操作后,front=rear=99,则循环队列中的元素个数为()。
设有以下程序代码:PrivateSubCommand1_Click()a=Array(1,2,7,10,6)b=Array(5,4,7,8,2)i=0j=0DoIfi<=UBound(a)Andj<=UBound(b)ThenIf
下列说法中正确的是()。
在数据库管理技术发展的三个阶段中,没有专门的软件对数据进行管理的是()。
以下选项中,不合法的VisualBasic的变量名是()。
在VisualBasic环境下设计应用程序时,系统能自动检查出的错误是()。
软件调试的目的是()。
一名雇员就职于一家公司,一个公司有多个雇员。则实体公司和实体雇员之间的联系是
随机试题
妊娠期间不排卵主要是与下列哪种激素的作用有关?
A.肋间隙B.肋脊角C.肋骨角D.肩胛下角E.脊柱棘突连线
患者男,35岁。诉左下后牙剧烈持续性跳痛1天,伴伸长感。检查:21远中邻面深龋洞,探(一),叩(++),松动工度,根尖部黏膜轻度肿胀,扪诊不适。牙髓活力测试无反应,X片示根尖区牙周膜增宽。最可能的诊断是
妊娠合并心脏病孕妇的妊娠期处理哪项是错误的
伤寒慢性带菌者常见的带菌部位是
根据《合同法》的规定,在买卖合同中,除法律另有规定或当事人另有约定外,标的物所有权转移时间为()。
陶行知先生曾经说过,我们做教师的人,必须天天学习,天天进行再教育,才能有教学之乐而无教学之苦。这句话指出教师要()。
有些作家,他们笔尖触动的生活与人性之深,文字创造力之强,令人吃惊。待到人们去______去议论,他们又不声不响扎到什么地方去了。惟有这样才能写出真正______社会人生的作品来。填入横线处最恰当的一组词是:
“证照分离”改革有效降低了企业制度性交易成本,优化了营商环境,激发了市场活力和社会创造力。国务院决定,在全国各自由贸易试验区率先开展“证照分离”改革全覆盖试点。关于“证照分离”改革,下列说法正确的是()。
以下程序的功能是:生成20个200~300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。PrivateSubCommand1_Click()Fori=1To20
最新回复
(
0
)