首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上添加有两个名称分别为Text1、Text2的文本框,其中Text1中MutiLine属性为True。请添加两个名称为Command1、Command2,标题分别为“产生数组”、“查找”的命令按钮,如图所
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上添加有两个名称分别为Text1、Text2的文本框,其中Text1中MutiLine属性为True。请添加两个名称为Command1、Command2,标题分别为“产生数组”、“查找”的命令按钮,如图所
admin
2015-06-30
16
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上添加有两个名称分别为Text1、Text2的文本框,其中Text1中MutiLine属性为True。请添加两个名称为Command1、Command2,标题分别为“产生数组”、“查找”的命令按钮,如图所示。程序功能如下:
①单击“产生数组”按钮,则用函数生成10个0一100范围内(不含0和100)互不相同的随机数值,并将它们保存到一维数组a中,同时将这10个数值显示在Text1文本框内。
②单击“查找”按钮将弹出输入对话框,接收用户输入的任意一个数,并在一维数组a中查找该数,若查找失败,则在Text2文本框内显示该数“不存在于数组中”;否则显示该数在数组中的位置。
要求:请去掉程序中的注释符,把程序中的“?”改为正确内容,使其实现上述功能,但是不能修改窗体文件中已经存在的控件和程序,最后将修改后的文件按原文件名进行存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件,添加两个名称为Command1、command2,标题为"产生数组"、"查找"的命令按钮。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(10) Private Sub Command1_Click() Text1.Text = "": Text2.Text = "" For i = 1 To 10 ’ a(i) = Fix(Rnd * ? + 1) ’ For j = 1 To ? If a(i) = a(j) Then ’ i = ? Exit For End If Next j Next i For i= 1 To 10 Text1.Text = Text1.Text + Str(a(i)) + Space(2) Next i End Sub Private Sub Command2_Click() Dim num As Integer, i As Integer num = InputBox("请输入待查找的数") For i = 1 To 10 ’ If a(i) = ? Then Text2.Text = Str(num) + "是数组中的第" + Str(i) + "个值" Exit For End If Next i ’ If ? > 10 Then Text2.Text = Str(num) + "不存在于数组中" End If End Sub 程序结束 参考答案 第1个?处填入:99 第2个?处填入:i-1 第3个?处填入:i - 1 第4个?处填入:num 第5个?处填入:i 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/OMQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据库系统中实现各种数据管理功能的核心软件是______。
在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则在下列横线处合适的语句是()。PrivateSubForm_Cli
下列程序段的执行结果为()。a=75Ifa>60Theni=1Ifa>70Theni=2Ifa>80Theni=3Ifa<90Theni=4Print"i=";i
设有变量声明为“DimaDateAsDate”,则为变量aDZe正确赋值的表达方式是()。
在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程:PrivateSubComnmnd1_Click()Dima(5,5)AsIntegerDimiAsInteger,jAsInteger
在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()b=5c=6Pdnta=b+cEndSub程序运行后,
以下关系表达式中,其值为假的是______。
假定有一个菜单,名为Menultem,为了运行时使该菜单项失效,应使用的语句为()
下面______机制允许对一个函数名给出多个函数定义。
有三个关系R,S和T如下:其中关系T由关系R和s通过某种操作得到,该操作为
随机试题
激素需与受体结合才起作用,受体有在细胞膜上的也有在胞内的。下列通过胞内受体发挥作用的激素是
AAMYBALTCGGTDACPEALP对于诊断慢性酒精中毒最敏感的是
一日龄6天新生儿,2日来不吃奶,精神差,面色灰白,体温0℃呼吸急促,皮肤黄染,心肺正常,脐带未脱落,脐根部有少量稀薄分泌物,肝肋下3cm,脾肋下lcm,血清胆红素24μmol/L(14mg/dl),间接胆红素为主,最可能的诊断是
卫生服务需求的正确描述是()
货币政策的任务包括()。
Ⅰ.土建工程某建筑物地下室挖土方工程,内容包括:挖基础土方和基础土方回填,基础土方回填采用打夯机夯实,除基础回填所需土方外,余土全部用自卸汽车外运800m至弃土场。提供的施工场地,已按设计室外地坪-0.20m平整,土质为三类土,采取施工排水措施。
公安工作具有广泛的社会性和群众性,尤其不能离开人民群众的支持,是因为()。
根据以下资料,回答问题。2012年,山东海平面较常年变化值与福建海平面较常年变化值之比约为:
被判处()的犯罪分子,在刑罚执行期间如果确有悔改或者立功表现,可以减刑。
Asaphysicianwhotravelsquitealot,Ispendalotoftimeonplaneslisteningforthatdreaded"Isthereadoctoronboard?"
最新回复
(
0
)