首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
若窗体上有一个名为Command1的命令按钮,并有下面的程序: Private Sub Command1_Click() Dim arr(5)As Integer For k=1 To 5 arr(k)=k Next k prog
若窗体上有一个名为Command1的命令按钮,并有下面的程序: Private Sub Command1_Click() Dim arr(5)As Integer For k=1 To 5 arr(k)=k Next k prog
admin
2015-08-28
33
问题
若窗体上有一个名为Command1的命令按钮,并有下面的程序:
Private Sub Command1_Click()
Dim arr(5)As Integer
For k=1 To 5
arr(k)=k
Next k
prog arr()
For k=1 To 5
Print arr(k);
Next k
End Sub
Sub prog(a()As Integer)
n=UBound(a)
For i=n To 2 step-1
For j=1 To n-1
if a(j)
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时,单击命令按钮后显示的是( )。
选项
A、1 2 3 4 5
B、5 4 3 2 1
C、0 1 2 3 4
D、4 3 2 1 0
答案
B
解析
程序对数组元素赋初值为1、2、3、4、5。Ubound函数返回数组可用的最大下标,过程prog的功能是遍历数组对数组中的元素进行排序,由条件a(j)
转载请注明原文地址:https://kaotiyun.com/show/YZQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上有若干控件,其中有一个名称为Text1文本框。影响Text1的Tab顺序的属性是______。
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click()Dimal(4,4),a2(4,4)Fori=1To4
在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:PrivateSubCommand1_Click()a=InputBox("请输入日期(1~31)")t="旅游景点:"_&
设窗体Form1中有一名为mnuFile的菜单,它只有一个标题为Open的子菜单。为使程序运行时,按下Alt+F键窗体中能够显示如下图所示的菜单项,则mnuFile的标题应为______。
一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体“项目主管”与实体“项目”的联系属于【】的联系。
下面不属于软件工程的3个要素的是______。
“年龄在14~25之间”这种约束是属于数据库当中的______。
当我们输入代码时,VisualBasic可以自动检测______错误。
执行下面的程序段后,S的值为【】。s=5Fori=6To9Step0.6s=s+1Nexti
以下声明语句中错误的是______。
随机试题
日本茶道的历史是随着中国茶道历史的发展而发展的。()
现代英语音位系统中处于互补关系的音素是()
浅表肉芽感染伤口,有较多坏死组织,湿敷溶液选用
患者,女,75岁,上下牙全部缺失,下颌弓明显宽于上颌弓,其他未见异常此种异常[*]关系应排成反[*],后牙应如何对调[*]
安全生产的主要监督方式不包括( )。
Areyouafraidoftests?Whatwillyoudotoprepareforatest?Thefollowingsuggestionswillbehelpful.Payattentionto
所谓依法从重,是指依照《刑事诉讼法》的规定,在量刑幅度以内从重处刑。所谓依法从快,是指依照《刑法》的规定,在审理案件的时限以内迅速地审结案件。( )
你的工作出现了失误。你的上一级领导已有所耳闻。但是你的本级领导因为害怕影响单位的评功评奖。决定掩饰你的错误。你在这种情况下怎么办?
SowhyisGooglesuddenlysointerestedinrobots?That’sthequestioneveryone’saskingafteritemergedthismonththatthein
Televisionhasopenedwindowsineverybody’slife.Youngmenwillneveragaingotowarastheydidin1914.Millionsofpeople
最新回复
(
0
)