首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下列程序的功能是:找出给定的12个数中最大的一个数,然后输出这个数以及经在原来12 option Base 1 Private Sub Form_Click() Dim x x = Array(57,-9, 17,42, -31,46, 11, 8, 6,
下列程序的功能是:找出给定的12个数中最大的一个数,然后输出这个数以及经在原来12 option Base 1 Private Sub Form_Click() Dim x x = Array(57,-9, 17,42, -31,46, 11, 8, 6,
admin
2013-01-23
35
问题
下列程序的功能是:找出给定的12个数中最大的一个数,然后输出这个数以及经在原来12
option Base 1
Private Sub Form_Click()
Dim x
x = Array(57,-9, 17,42, -31,46, 11, 8, 6, -4, 3,90)
Max=1
For k=2 To 10 Step 1
If x(k) > x(Max) Then
______
End If
Next k
y=______
Print Max, y
End Sub
选项
答案
Max=k x(Max)
解析
在数组中查找多个数中最大的数的算法是:首先设变量 Max为1,从第一个数组元素开始与x(Max)对比,如果数组元素大于 x(Max),则Max记录该数组元素的下标,比较完后,Max记录了最大数的下标。所以第1个横线处,应填写Max=k,用Max记录较大数的下标;第2个横线处,用y来存储元素的最大值。
转载请注明原文地址:https://jikaoti.com/ti/TlO0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定有如下事件过程:PrivateSubFormMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then
在数据库的三级模式结构中,外模式有
在软件生命周期中,能准确确定软件系统必须做什么和必须具备的功能的阶段是
用某种排序方法对序列(25,84,21,47,15,27,68,35,20)进行排序,记录序列的变化情况如下:15,20,21,25,47,27,68,35,8415,20,21,25,35,
在窗体上画一个文本框,然后编写如下事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimcharAsStringchar=Chr(KeyAscii)
改变控件的位置不能通过下列()方法来直接实现。
不能在标准模块中使用或定义的是()。
假定已在窗体上画了多个控件,并有一个控件是活动的,为了在属性窗口中设置窗体的属性,预先应该执行的操作是
函数InputBox返回值的类型是______。
随机试题
最符合急性淋巴细胞白血病描述的是
A、虚寒证B、热证C、湿浊下注D、热伤血络E、实寒证小便量少而黄赤者可见于
两家及两家以上商业保险公司根据省政府授权,经营运作全省政策性农业保险项目,按照章程约定的比例,分摊保费、承担风险、享受政策、共同提供保险服务,这种保险模式是()。
阅读下列材料,回答问题。材料一苏格拉底说:“如果知识包括了一切的善,那么我们认为美德即知识就将是对的。”孟子说:“爱人者,人恒爱之;敬人者,人恒敬之。”材料二明清时期的早期启蒙思想家们先天不足,具有一种时代性的缺陷……黄宗羲、唐甄们提不出新
原告张某与邻居李某共同外出经商,二人因利润分配发生争执。某日李某到原告家索要,与原告发生争执,并发生厮打,后原告将李某打伤。事后,原告所在乡派出所几次找到原告要求其承担李某医药费,原告拒付。据此,原告所在地的市劳动教养工作领导小组,对原告作出劳动教养2年的
属于对额外变量进行实验前控制的方法是
Wemaylookattheworldaroundus,butsomehowwemanagenottoseeituntilwhateverwe’vebecomeusedtosuddenlydisappears.
"Wehavetoputitonthetopoftherightcomer."Theword"it"heremeans______.Fromthepassage,weknowwhenwewritean
Notonlydothesesmallbusinessesprovidethesuccessstoriesofthefuture,buttheyalsomeettheneedsofthelocalpeople.
【S1】【S8】
最新回复
(
0
)