首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
若窗体上有一个名为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
2020-02-27
49
问题
若窗体上有一个名为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/xjTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是()。
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txl文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将杏找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所
(1)在名称为Form1的窗体上添加一个名称为Command1的命令按钮,标题为“打开文件”,再添加一个名称为CD1的通用对话框。程序运行后,如果单击命令按钮,则弹出打开文件对话框,请按下列要求设置属性和编写代码:①设置适当属性,使对话框的标题为
窗体上有Command1、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommand1_Click() m=InputBox("请
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b中。请编写程序,当单击“合并数组”,按钮时,将a、b数组中相同下标的数组元素的值求和,并将结果存入数组c。单击“找最大值”按钮时,调用find过程分
结构化程序设计中,下面对goto语句使用描述正确的是
一棵二叉树共有25个结点,其中5个是叶子结点,则度为1的结点数为( )。
为了判断字符串变量strName中的姓名是否姓"李",应采用的表达式是
下面的数写成普通十进制数是()。2.65358979335278D-6
随机试题
关于丁酰苯类药物的构效关系正确的为
男性,67岁。患高血压病15年,常有头晕头痛、失眠出现,近1个月来,又感耳鸣耳聋、目昏,且渐渐加重,舌暗红有裂纹,苔黄略燥,脉弦有力。宜选用生地、白芍等配伍的药物是
资产的重组方式有( )。
砂锅鲥鱼、西湖醋鱼、荔枝肉、冰糖湘莲,分别属于安徽菜、浙江菜、福建菜、湖南菜。()
下列对手势描述不正确的选项是()。
必要性体重增加
王某为了冲洗厕所,向同事要了一些稀盐酸。他将盐酸装在自己喝水的杯子里,放在工厂更衣室的桌子上,就去上班了。结果,同事李某来换衣服时,顺手拿起他的水杯喝了一口。李某的消化系统被严重烧伤,生命奄奄一息。王某被抓获后称:当时忙着去上班,根本没顾上想别人会不会喝。
(浙江2013—44)6,3,5,13,2,63,()
A、条件(1)充分,但条件(2)不充分B、条件(2)充分,但条件(1)不充分C、条件(1)和(2)单独都不充分,但条件(1)和条件(2)联合起来充分D、条件(1)充分,条件(2)也充分E、条件(1)和条件(2)单独都不充分,条件(1)和条件(2)联
求下列极限f(x):
最新回复
(
0
)