首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
若窗体上有一个名为Command1的命令按钮,并有下面的程序: Private Sub Command1_Click() Dim arr(5)As Integer For k=1 To 5 arr(k)=k Next
若窗体上有一个名为Command1的命令按钮,并有下面的程序: Private Sub Command1_Click() Dim arr(5)As Integer For k=1 To 5 arr(k)=k Next
admin
2019-03-08
56
问题
若窗体上有一个名为Command1的命令按钮,并有下面的程序:
Private Sub Command1_Click()
Dim arr(5)As Integer
For k=1 To 5
arr(k)=k
Next k
prog air()
For k=1 T0 5
print art(k);
Next k
End Sub
Sub prog(a()As Integer)
n=UBound(a)
For i=n To 2 step-1
For i=1 To n-1
if a(j)<a(j+1)Then
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next i
Next i
End Sub
程序运行时,单击命令按钮后显示的是( )。
选项
A、1 2 3 4 5
B、5 4 3
C、0 1 2 3 4
D、4 3 2
答案
B
解析
程序对数组元素赋初值为1、2、3、4、5。UBound函数返回数组可用的最大下标,过程prog的功能是遍历数组对数组中的元素进行排序,由条件a(j)<a(j+1)可知程序是将数组按从大到小排序。当用数组作为过程的参数时,使用的是“传地址”方式,因此程序输出的是排序后的数组元素值,即5、4、3、2、1。
转载请注明原文地址:https://kaotiyun.com/show/1aFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体Form1上画一个名称为Command1的命令按钮,编写如下程序代码:PrivateTypestusnAsString*20classAsString*20EndTypePrivateSubCommand1
设有如下程序段,则正确的说法是Fori=1To100Step0x=x+1Next
为了使组合框成为简单组合框,应把其Style属性设置为
设有如下事件过程:PrivateSubForm_Click() Sum=0 Fork=1To3 Ifk
设有下面的语句:PrintIIf(x>0,1,IIf(x
下面属于白盒测试方法的是
下列叙述中正确的是
设a=2,b=3,c=4,d=5,下列表达式的值是( )。a>bAndc<=dOr2*a>c
以下叙述中错误的是
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是
随机试题
演绎作品
下列哪个器官在动脉阻塞后极少发生梗死
患者女性,35岁,2h前出现剧烈头痛,来诊时查体:意识大部分丧失,无自主运动,角膜反射,瞳孔对光反射存在,该患者现在的意识状态是
女性,25岁,停经45天,因突发右下腹疼痛1小时就诊,伴里急后重感及心悸。查体:血压60/30mmHg,脉搏120次/分,下腹压痛、反跳痛明显,移动性浊音(+)。妇科检查:宫颈举痛,后穹窿饱满,子宫如40天妊娠大小,附件区触诊不满意。恰当的处理应是
下面属于会计核算软件的是( )。
2008年1月1日实施的新《企业所得税法》规定企业所得税的税率为()。
甲公司向乙公司发出要约,欲向其出售一批货物。要约发出后,甲公司因进货渠道发生困难而欲撤回要约。根据合同法律制度的规定,甲公司撤回要约的通知应当()。
《合伙企业法》为()。
甲公司与乙公司签订了一份手机买卖合同,约定:甲公司供给乙公司某型号手机1000部,每部单价1000元,乙公司支付定金30万元,任何一方违约应向对方支付合同总价款30%的违约金。合同签订后,乙公司向甲公司支付了30万元定金,并将该批手机转售给丙公司,每部单价
A、 B、 C、 D、 D
最新回复
(
0
)