首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写以下程序代码: Private Sub sub1(ByRef d(), ByRef m1 As Integer) Dim i As Integer m1 = d(
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写以下程序代码: Private Sub sub1(ByRef d(), ByRef m1 As Integer) Dim i As Integer m1 = d(
admin
2018-10-18
26
问题
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写以下程序代码:
Private Sub sub1(ByRef d(), ByRef m1 As Integer)
Dim i As Integer
m1 = d(LBound(d))
For i = LBound(d) + 1 To UBound(d)
If m1 < d(i) Then m1 = d(i)
Next i
End Sub
Private Sub Command1_Click()
Dim n1 As Integer
n1=-1
Dim data()
data = Array(10, 20, -20, 50, 15, -5)
Call sub1(data(), n1)
Text1.Text = n1
End Sub
程序运行过程中,当单击命令按钮Command1时,则在文本框Text1中显示的结果为( )。
选项
A、-5
B、-1
C、0
D、50
答案
D
解析
程序的主要功能为:找出数组中的最大值并输出。首先,在程序中定义一个数组变量data,然后通过Array函数给数组整体赋值。LBound函数返回数组某一维的下界,UBound函数返回数组某一维的上界。在子程序sub1中,通过ByRef方式将数组的首地址及变量n的地址分别传给形参数组d和变量m1,此时形参数组d和变量m1与实参数组data和变量n1共享相同的地址空间。在Command_Click过程中语句"Call sub1(data( ), n1)"调用子过程sub1,并传递参数。在子过程sub1中,LBound(d)=0(数组下标的下界值),UBound(d) = 5;m1=d(LBound(d))=d(0)=10。程序进入For循环,i从1开始执行到5结束,当i=1时,d(1)=20,10<20为真,m1=d(1)=20;当i=2时,d(2)=-20,20<-20为假;当i=3时,d(3)=50,20<50为真,m1=d(3)=50;当i=4时,d(4)=15,50<15为假;当i=5时,d(5)=-5,50<-5为假。整个程序运行结束,最终m1的值为50,也就是说n1的值为50,程序返回后将n1的值显示在文本框Text1中,故选项D正确。
转载请注明原文地址:https://kaotiyun.com/show/1PFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程:PrivateSubCommand1_Chck()Counter=0Fori=1To4
在窗体上画一个文本框,名称为Text1,然后编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSub
下列叙述中正确的是()。
窗体的左右两端各有1条直线,名称分别为Line1、Line2;名称为Shape1的圆靠在左边的Line1直线上(见图);另有1个名称为Timer1的计时器控件,其Enabled属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到Line2时则停
窗体上有一个名称为VSemll1的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是()。
数据库系统的三级模式不包括
若要清除列表框控件中的所有列表项,应该使用的方法是
对长度为n的线性表排序,在最坏情况下,比较次数不是n(n-1)/2的排序方法是( )。
对长度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为
能正确表述"x为大于等于5并且小于20的数"的VisualBasic表达式是
随机试题
23岁,初产妇,身高160cm,孕40周,规律宫缩12h,阴道检查:宫口开大5cm,先露0,大囟在3点,小囟在9点,矢状缝向后靠近骶岬,盆腔后部空虚,其诊断为
用齐一尼抗酸染色法染色后,结核分枝杆菌在光学显微镜下的典型形态是
A、钩藤碱B、辛弗林C、青蒿素D、β-榄烯E、穿心莲内酯具有抗钩端螺旋体活性的成分为
下列哪种焊接方式适用于薄板焊接()。
教育的相对独立性主要表现在()。
2013年6月,甲向乙借款3万元,约定半年后偿还。2013年10月,甲离家远行后没有任何音讯。甲离家之前,将刚收回的货款5万元现金交给父亲保管。乙想要收回甲的3)9-元借款,以采用的最有效的方式是()。
甲、乙两个粮库的库存量之比为10:7,要使这两个仓库的库存量相等,甲仓库需要向乙仓库搬人的粮食占甲仓库库存量的()。
我国广义货币M2是怎样划分的?
Aslongasherparentscanremember,13-year-oldKatieHarthasbeentalkingaboutgoingtocollege.Hermother,Tally,afinanc
A、Shecanavoiddoingalotoffarmwork.B、Shewantstostayinsomequietandpeacefulplace.C、Herhusbandespeciallycaresf
最新回复
(
0
)