首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程FindMin求数组的最小值。程序运行后,在4个文本框中各输入一个整数,然后单击命令按钮,即可求出数组的最小值,并在窗体上显示出来(如图所示)。
在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程FindMin求数组的最小值。程序运行后,在4个文本框中各输入一个整数,然后单击命令按钮,即可求出数组的最小值,并在窗体上显示出来(如图所示)。
admin
2020-04-08
35
问题
在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程FindMin求数组的最小值。程序运行后,在4个文本框中各输入一个整数,然后单击命令按钮,即可求出数组的最小值,并在窗体上显示出来(如图所示)。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤l:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“′”,将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Option Base I Private Function FindMin(a()As Inte·ger) Dim Start As Integer Dim Finish As Integer,i As Inte-ger Start=
LBound
(a)′求教组下界值 Finish=
UBound(a)
′求数组上界值 Min=
a
(Start)’将第一个数赋给最小值进行比较 For i=Start To Finish’循环判断找最小值 If a(i)
<
Min ThenMin=
a(i)
Next i FindMin=Min End Function Private Sub Commandl_Click() Dim arrl Dim arr2(4)As Integer arrl=Array(Val(Textl.Text), Val(Text2.Text),Val(Text3.Text),Val (Text4.Text))′申请arrl数组并初始化 For i=1 To 4 arr2(i)=CInt(arrl(i))′CInt 函数将arrl中的数值转换为整型 Next i M=FindMin(
arr2
) Print"最小值是:";M End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 【易错提示】option base在模块级别中使用,用来声明数组下标的默认下界,option base后面只能是0或者l,默认值为0。
解析
文本框里的内容(包括数字)默认都是当做字符串来处理的,如果需要参与数据运算,则需先用Val()函数将其转化为数字(例如Val(TextI.Text))。CInt函数将数值转换为整型。
转载请注明原文地址:https://jikaoti.com/ti/rAx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerm=2:n=1SelectCasemCase1
如下关于变体类型变量的叙述中,错误的是()。
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程:PrivateSubCommandl_Click()Counter=0F0ri=1To4Forj=6T
为了读取数据,需打开顺序文件"D:\data5.txt",以下正确的命令是
为使文本框具有初始值"VB",在设计阶段正确的操作是
下面关于算法的叙述中,正确的是()。
以下关于菜单的叙述中,错误的是( )。
表达式Sin(0)+Abs(-1)+Int(Rnd(0))+Len(Str(3.14))的值是
在结构化方法中,用数据流程图(DFD)作为描述工具的软件开发阶段是()。
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
随机试题
根据以下资料,回答以下问题。2010年底,全国高速公路里程为7.41万公里,居世界第二位,比“十一五”规划目标增加9108公里。其中,国家高速公路5.77万公里,比上年末增加0.54万公里。“五纵七横”12条国道主干线提前13年全部建成。全国有1
A.多为上腹正中或偏右节律性疼痛B.上腹持续性较剧烈疼痛,放射至背部C.上腹疼痛无典型节律性,呕吐多见D.多为剑突下正中或偏左节律性疼痛穿透性溃疡
某铁路工程地质勘察中,提示地层如下:①粉细砂层,厚度4m;②软黏土层,未揭穿;地下水位埋深为2m。粉细砂层的土料比重Gs=2.65,水上部分的天然重度γ=19.0kN/m3,含水量w=15%,整个粉细砂层密实程度一致;软黏土层的不排水抗剪强度cu=20kP
产业政策是同一定的经济发展阶段、一定的经济运行态势相对应的,这体现了产业政策的()特征。
关于工程价款支付的表述中,不正确的是()。
关于股票性质的描述,正确的是( )。
在社会发展中起决定作用的因素是()。
模糊厌恶是指人们对模糊的风险事件有担心和恐惧的感觉,对主观的或含糊的不确定性的厌恶程度要超过对客观不确定性的厌恶。即在所有伴随风险的不确定性中下注的话,人们倾向于下注已知的不确定类型,而不是未知类型。根据上述定义,下列选项中体现了模糊厌恶这一概念的是(
马克思主义巾国化的最新理沦成果是
Lookattheformbelow.YouwillhearawomantelephoningaCommercialPropertyAgentaboutanadvertisementinthepress.Green
最新回复
(
0
)