首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上添加有两个名称分别为Text1、Text2的文本框,其中Text1中MutiLine属性为True。请添加两个名称为Command1、Command2,标题分别为“产生数组”、“查找”的命令按钮,如图所
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上添加有两个名称分别为Text1、Text2的文本框,其中Text1中MutiLine属性为True。请添加两个名称为Command1、Command2,标题分别为“产生数组”、“查找”的命令按钮,如图所
admin
2015-06-30
42
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
能够获得一个文本框中被选取文本的内容的属性是______。
在窗体上画一个命令按钮,然后编写如下程序:SubS1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=rEndSub
设a=5,b=6,c=7,d=8,则执行下列语句后,x的值为______。X=IIF((a>B)And(c<D,10,20)
对长度为N的线性表进行顺序查找,在最坏情况下所需要的比较次数为______。
在VB中,过程共有三种,它们是()
数据库逻辑设计阶段分为______。
下列叙述正确的是
为了使标签Lahel1显示文字“姓名”,可把Label1的______属性设置为“姓名”。
在C:\Pic文件夹中有一个图形文件,名为Welcome.gif。为了将该图形装入窗体Form1,应使用的语句为()
已知数据表A中每个元素距其最终位置不远,为节省时间,应采用的算法是______。
随机试题
支气管扩张患者咳嗽、咳痰加重多见于()。
青年李某,右下腹疼痛难忍,到医院就诊。经医师检查,检验,当即诊断为急性阑尾炎,遂对其施行阑尾切除术。手术情况正常,但拆线时发现伤口愈合欠佳,有蛋黄色液体渗出。手术医师告知,此系缝合切口的羊肠线不为李某人体组织吸收所致,在临床中少见。经过近1个月的继续治疗,
不能用对立制约解释的是
半合成青霉素的原料是
《城市房地产管理法》所称的房地产交易包括()。
在会计人员继续教育中,明确会计职业道德教育主要内容为()。
下列契税计税依据的确定中正确的有()。
在古代,对未知世界的恐惧感不只属于儿童。中世纪的绘图师们在绘制地图时,并不把未知地带留为空白,而是画上海蛇和想象中的怪兽,并标记“此处有龙”。几个世纪以来,探险家们穿越大洋,攀登高山,逐渐在地图上把这些想象替换成了真实的标记。现如今,我们可以从外太空拍摄照
ICMP协议中,如果在IP数据包传送过程中,发现生命周期字段为零,则路由器发出——报文。
OnPublicSpeakingI.People’sfrequentresponsetogivingtheirfirstspeech:feel【T1】________【T1】________II.Th
最新回复
(
0
)