首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名为Commandl的命令按钮,并有下面的程序: Private Sub Commandl_Click() Dim alT(5)As Integer For k=l T0 5 arr(k)=k Next
窗体上有一个名为Commandl的命令按钮,并有下面的程序: Private Sub Commandl_Click() Dim alT(5)As Integer For k=l T0 5 arr(k)=k Next
admin
2020-02-27
50
问题
窗体上有一个名为Commandl的命令按钮,并有下面的程序:
Private Sub Commandl_Click()
Dim alT(5)As Integer
For k=l T0 5
arr(k)=k
Next k
prog aft()
F0r k=l To 5
Print art(k): Next k
End Sub
Sub prog(a()As Integer)
n=UBound(a)
For i=n To 2 step-1
For j=l 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/NjTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列控件中,不响应Click事件的是()。
以下VisualBasic不支持的循环结构是()。
(1)在名称为Form1的窗体上添加一个名称为Label1的标签,标签的宽和高分别为2000、300,有边框,并利用属性窗口设置适当的属性,使其标题“等级考试”居中显示,并使标签的外观如图所示。注意:存盘时必须存放在考生文件夹下,工程文件名保存为
(1)考生文件夹下有一个工程文件sjt3.vbp,其功能是:①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的100个0~999的整数读入剑数组a中;②单击“计算”按钮,则找出这100个整数中的所有水仙花数,并将它们的最大值与
考生文件夹下有一个工程文件sjt5.vbp。运行程序后,从文件中读出数据,将其放入一个5×5的二维数组a中。请编写程序,找出数组a中每行的最大值及该值在行中的次序(列下标),并将所找到的结果分别保存到一维数组b、c中(a中第一行的最大值保存在b(1)中,最
用语句Open"C:\teac.txt"ForInputAs#1打开文件后,就可以编程序
以下关于命令按钮的叙述中正确的是( )。
下列关于线性链表的描述中,正确的是()。Ⅰ、只含有一个指针域来存放下一个元素地址Ⅱ、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件)Ⅲ、结点由两部分组成:数据域和指针域。
要使两个单选按钮属于同一个框架,下面三种操作方法中正确的是( )。①先画一个框架,再在框架中画两个单选按钮②先画一个框架,再在框架外画两个单选按钮,然后把单选按钮拖到框架中③先画两个单选按钮,再画框架将单选按钮框起来
下面的数写成普通十进制数是()。2.65358979335278D-6
随机试题
根据《出版管理条例》,出版物的内容不真实或者不公正,致使公民、法人或者其他组织的合法权益受到侵害的,该出版物的出版单位应当()。
对某综合大学的全体学生,首先按法律专业和计算机专业分组,在此基础上再按性别分组,其分组结果如下:专业分组性别分组法律男生、女生计算机男生、女生这样的分组属于()
A.25周B.28周C.30周D.35周E.40周羊水内肺表面活性物质迅速增加的时间是
国家在必要时得设立特别行政区。在特别行政区内实行的制度按照具体情况由全国人大常委会以法律规定。 ( )
[2007年第60题]以下哪类建筑可不设室内消防给水?
期货投资者保障基金的资金运用限于()。
下列属于税法基本原则的是()。
罗尔斯曾有一段关于如何读书的自白,颇足发人深省。他说:“我读前人的著作,如休谟或康德,有一个视为当然的假定,即这些作者比我聪明得多。如果不然,我又何必浪费自己和学生的时间去研读他们的著作呢?如果我偶尔在他们的论证中见到了一点错误,我的第一个反应是:他们自己
论述严复与张之洞教育思想及其异同。
Whyaretheremanysuicideexplosionstakenplace?
最新回复
(
0
)