首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上添加有两个名称分别为Text1、Text2的文本框,其中Text1中MutiLine属性为True。请添加两个名称为Command1、Command2,标题分别为“产生数组”、“查找”的命令按钮,如图所
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上添加有两个名称分别为Text1、Text2的文本框,其中Text1中MutiLine属性为True。请添加两个名称为Command1、Command2,标题分别为“产生数组”、“查找”的命令按钮,如图所
admin
2015-06-30
39
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
在结构化设计方法中,数据流图表达了问题中的数据流与加工间的关系,且每一个______实际上对应一个处理模块。
下列()事件过程可以将打开文件对话框的标题改变为“newCaption”。
下列程序段的执行结果为()。a=75Ifa>60Theni=1Ifa>70Theni=2Ifa>80Theni=3Ifa<90Theni=4Print"i=";i
在窗体上画一个文本框,一个命令按钮和一个标签,其名称分别为Text1、Command1和Label1,文本框的Text1属性设置为空白,然后编写如下事件过程:PrivateSubCommand1_Click()x=Int(Val(Tex
完全不考虑程序的内部结构和内部特征,而只是根据程序功能导出测试用例的测试方法是
在软件工程中,白箱测试法可用于测试程序的内部结构。此方法将程序看做是
在C:\Pic文件夹中有一个图形文件,名为Welcome.gif。为了将该图形装入窗体Form1,应使用的语句为()
下列有关文件的叙述中,正确的是
设一棵完全二叉树共有500个结点,则在该二叉树中有【】个叶子结点。
随机试题
在强化理论中,强化分为连续性强化和间歇性强化,相比较而言,不正确的是()
男,45岁,体检发现右下肺野一直径约2.5cm结节状影,边缘见分叶及毛刺,应首先考虑
栓剂的一般质量要求不包括
《药品管理法》规定,对疗效不确定、不良反应大或者其他原因危害人体健康的药品,应当
妊娠常脉是产后常脉是
下列关于工业炉煤气区域的预防控制措施,说法正确的是()。
监理单位在责任期内,不按监理合同约定履行监理职责,给建设单位或其他单位造成损失的,应承担()责任。
某公司拟发行5年期每年付息债券进行筹资,债券面值金额为100元,票面利率为14%,而当时市场利率为12%,那么,该公司债券发行价格应为()。
经过四个月的诊断,史密斯太太还是被宣告为彻底失明且无法治愈。(incurably)
Inthecauseofequalrights,feminists(女权主义者)havehadmuchtocomplainabout.Butonestrikingpieceofinequalityhasbeen【S
最新回复
(
0
)