首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程FindMin求数组的最小值。程序运行后,在4个文本框中各输入一个整数,然后单击命令按钮,即可求出数组的最小值,并在窗体上显示出来(如图所示)。
在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程FindMin求数组的最小值。程序运行后,在4个文本框中各输入一个整数,然后单击命令按钮,即可求出数组的最小值,并在窗体上显示出来(如图所示)。
admin
2020-04-08
43
问题
在考生文件夹下有一个工程文件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://kaotiyun.com/show/b8Tp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中正确的是
在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是()。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()x=0doUntilx=-1a=InputBox("请输入a的值")a=Val(a)b=I
以下叙述中正确的是()。
下面程序的运行结果是()。PrivateSubFormClick()i=0DoUntil0i=i+1Ifi>10ThenExitDoLoopPrintiEndSub
计算机软件包括
如果要将一个窗体从内存中清除,应使用的语句是
在结构化方法中,用数据流程图(DFD)作为描述工具的软件开发阶段是()。
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为( )。
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是()。
随机试题
碳酸锂:丙米嗪:
A.重要动脉损伤B.重要神经损伤C.两者均可D.两者均不可股骨下1/3骨折可并发
高血压动脉硬化性脑出血最常见的破裂血管是
一般对致癌物制定的实际安全剂量在人群中引起的肿瘤超额发生率不超过
A、嫩蜜B、炼糖C、中蜜D、蜂蜜E、老蜜温度达116~118℃,相对密度为1.37()
在记账无误的情况下,造成银行对账单和银行存款日记账不一致的原因是()。
下列资源配置状态中,达到帕累托最优的是()。
()既是职业道德行为的出发点,又是激励教师实现某种职业道德目标的动力。
在中国特色社会主义伟大实践中,()是行动指南。
设随机变量.X~F(m,m),令p=P(X≤1),q=P(X≥1),则().
最新回复
(
0
)