首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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
20
问题
在窗体上画一个名称为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全国计算机二级
相关试题推荐
以下关于数组的叙述中,错误的是()。
以下关于控件数组的叙述中,正确的是()。
下列叙述中正确的是()。
以下关于变量作用域的叙述中,错误的是()。
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是()。
下面不能作为结构化方法软件需求分析工具的是()。
可以产生30~50(含30和50)之间的随机整数的表达式是( )。
有三个关系R、S和T如下:则关系T是由关系R和S通过某种操作得到,该操作为( )。
面向对象方法中,继承是指( )。
能正确表述"x为大于等于5并且小于20的数"的VisualBasic表达式是
随机试题
急性肾盂肾炎的诱因和原因包括
如肺炎病人用2天抗生素后,呼吸困难加重。烦躁甚,右肺呼吸音减弱,中下肺叩诊发浊。上部叩诊过清音。血PaO29.3kPa,PaCO27.5kPa,此时最重要的治疗措施应该是
异常支气管呼吸音可见于肺内空洞,最为常见的疾病是
A、心善B、肝善C、脾善D、肺善E、肾善重证见声音响亮,不喘不咳,呼吸均匀,皮肤润泽,其辨证为
下列各项中,不应计入当期“营业外支出”项目的有()’
影响金融工具久期的因素不包括()。
某工业企业为一般纳税人,本年发生下列经济业务:(1)4月1日向银行借入1000000元,月息为0.6%,偿还期限6个月,到期一次还本付息,该企业每月计提利息。借入款项用于正常生产经营活动。(2)10月1日,企业向银行连本带息一次性偿还4月1日借入的款
社会主义核心价值体系的精髓包括()。
设f(x)在[a,b]上连续,在(a,b)内可导,且f’(x)≠0,试证存在ξ,η∈(a,b),使
不合法的main函数命令行参数表示形式是
最新回复
(
0
)