首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下事件过程和函数过程: Private Sub Command1_Click() Dim num(1 To 6) As Single num(1)=103: num(2)=190: num(3)=0 hu
编写如下事件过程和函数过程: Private Sub Command1_Click() Dim num(1 To 6) As Single num(1)=103: num(2)=190: num(3)=0 hu
admin
2010-09-11
23
问题
编写如下事件过程和函数过程: Private Sub Command1_Click() Dim num(1 To 6) As Single num(1)=103: num(2)=190: num(3)=0 hum(4)=32:num(5)=-56: num(6)=100 Print Print p2(6,num()) End Sub Private Function p2(ByVal n As Integer, number() As Single) As Integer p2=number(1) For j=2 To n If number(j)<p2 Then p2=number(j) Next j End Function 程序运行后,在窗体上输出( )。
选项
A、-56
B、0
C、103
D、190
答案
A
解析
分析程序,函数p2的作用是找出指定数组中最小的数并返回。p2函数指定第1个参数以传值的形式传递,第2个参数以传地址的形式传递。因此,在命令按钮单击事件中调用函数p2时,参数6是以传值的形式传给形参n,数组num以传地址的形式传给形参number。所以题中整个程序要实现的功能是找出数组num中最小的数并输出,因此最后输出“-56”。
转载请注明原文地址:https://kaotiyun.com/show/WDmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Applet生命周期方法有init(),______(),stop()和destroy()。
StringBuffer类提供______字符串对象的表示。
在AWT包中,创建一个具有10行、45列的多行文本区域对象ta的语句是【】。
数据流图的类型有______和事务型。
在软件设计中,不属于过程设计工具的是( )。
已知一棵二叉树前序遍历和中序遍历分别为ABDEGCFH和DBGEACHF,则该二叉树的后序遍历为()。
下列选项中,属于JVM执行过程中的特点的一项是( )。
在窗体上画四个文本框(如图所示),并用这四个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大),然后编写如下事件过程: PrivateSubCommand1_Click() ForEachTextBoxInText
在程序运行期间可以将图形装入窗体、图片框或图像框的函数是
随机试题
对U/C矩阵的检验中,不允许有空行或空列的检验是指()
女性,57岁,左鼻翼发现皮肤病损18个月,面积逐渐增大,反复出现破溃。就诊时检查:病损位于左鼻翼,约1cm×1cm,略高出皮肤,中央表浅溃疡,有薄层黑褐色痂皮覆盖,腮腺区和颌下未及肿大淋巴结。最可能的诊断是
某工程采用标准固结试验测定土样的固结系数,测试数据如下,请根据表中数据回答下列问题。每级荷载作用下测记试样高度的时间一般有()。
下列关于工伤保险的说法,正确的是()
随机变量Y的概率分布表如下:随机变量Y的方差为()。
甲公司因生产经营需要将办公场所由市区搬到了郊区。新办公场所附近正建一条地铁,可于10个月后开通。为了改善员工通勤条件,甲公司计划在地铁开通之前为员工开设班车,行政部门提出了自己购买和租赁两个方案。有关资料如下:(1)如果自己购买,甲公司需要购买一辆大客车
《茅屋为秋风所破歌》中表现诗人美好愿望的句子是:“_______。”
水污染防治之难,在于水的__________。水自源头奔流而下,被沿岸居民、企业反复利用,任何环节疏于治理,都可能让水变脏。水往低处流的特性,也导致“上游排污,下游遭殃”,上游地区的污水如不加处理直流下游,下游往往________也难以应对。依次填入画横
知识产权一般都具有法定的保护期限,一旦保护期限届满,权利将自行终止,成为社会公众可以自由使用的知识。(1)权受法律保护的期限是不确定的,一旦为公众所知,即成为公众可以自由使用的知识。
Braindrain,whichistheactionofhavinghighlyskilledandeducatedpeopleleavingtheircountrytoworkabroad,hasbecomeo
最新回复
(
0
)