首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程FindMin求数组的最小值。程序运行后,在4个文本框中各输入一个整数,然后单击命令按钮,即可求出数组的最小值,并在窗体上显示出来(如图所示)。
在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程FindMin求数组的最小值。程序运行后,在4个文本框中各输入一个整数,然后单击命令按钮,即可求出数组的最小值,并在窗体上显示出来(如图所示)。
admin
2020-04-08
74
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
已知在菜单编辑器中设计了窗体的快捷菜单,其主菜单为a1,且取消其“可见”属性,如图2所示。运行时,以下()事件过程可以使快捷菜单的菜单项响应鼠标右键单击。
下列叙述中正确的是
以下叙述中正确的是()。
下列叙述中正确的是
以下关于文本框Text1的叙述中,错误的是
表达式12/2\4的值是( )。
某二叉树的前序序列为ABCD,中序序列为DCBA,则后序序列为
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏For/rd,显示Form2。若口令为“XSLNCE
在E-R图中,用来表示实体联系的图形是( )。
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是( )。
随机试题
下列哪次会议重新确立了解放思想、实事求是的思想路线()
尿液检查下列哪项对慢性肾功能衰竭的诊断最有价值
某台10kV笼型感应电动机的工作方式为负荷平稳连续工作制,额定功率800kW。额定转速2975r/min,电动机启动转矩倍数0.72,启动过程中的最大负荷转矩899N.m。请回答下列问题。若电动机采用铜芯交联聚乙烯绝缘电缆(YJV)供电,电缆沿墙穿钢管
《建设项目竣工环境保护验收管理办法》规定,违反本办法第十条规定,建设项目投入试生产超过3个月,建设单位未申请建设项目竣工环境保护验收或者延期验收的,由有审批权的环境保护行政主管部门依照《建设项目环境保护管理条例》的规定责令限期办理环境保护验收手续;逾期未办
基金公司的投资管理部门中,负责根据投资决策委员会制定的投资原则和计划制定投资组合的具体方案,向交易部下达投资指令的是()。
下列关于无意注意在实际教学中应用正确的是()
简述组织工作的步骤。
结合材料回答问题:材料1在那个风雨如晦的年代,为改变中华民族的命运,中国人民和无数仁人志士进行了千辛万苦的探索和不屈不挠的斗争。太平天国运动,戊戌变法,义和团运动,不甘屈服的中国人民一次次抗争,但又一次次失败。孙中山先生领导的辛亥革命,
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
Wherehasthewomanbeen?
最新回复
(
0
)