首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
若窗体上有一个名为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
74
问题
若窗体上有一个名为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/iPTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序:PrivateSubfunc(LAsLabel) L.Caption="1234"EndSubPrivateSubForm
有两个关系R,S如下,由关系R和S通过运算得到关系T,则所使用的操作为
语句PrintFormat(Int(12345.6789*100+0.5)/100,"0000,0.00")的输出结果是()。
通常软件测试实施的步骤是
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是( )。
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程:PrivateSubCommand1_Click() Counter=0 Fori=1To4 Forj=6To1S
下列叙述中正确的是
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()Text1.Text=”程序设计"Text1.SetFocusEndSubPrivateSubText1_GotFoc
在面向对象方法中,不属于“对象”基本特点的是()。
窗体上有名称为Commandl的命令按钮和名称为Text1的文本框PrivateSubCommandl一Click()Text1.Text=“程序设计”Text1.SetFocusEndSubPriv
随机试题
社区获得性肺炎患者,经抗感染治疗后病情好转,最先改善的情况是
红色试温蜡片,在()℃时开始熔化。
A.乳头状腺癌B.滤泡状腺癌C.未分化癌D.髓样癌E.转移癌分泌大量降钙素的甲状腺癌是
村民甲某诉至法院,要求化工厂赔偿因排放污水污染农田而给自己造成的损失5000元。本案原告的请求能否得到支持的关键在于化工厂排放的污水是否污染农田。下列关于鉴定机构与鉴定结论的说法哪些是不正确的?
背景资料:某高速公路合同段(K55+600~K56+600),主要为路基土石方工程,本地区岩层构成为泥岩、砂岩互层,抗压强度20MPa左右,地表土覆盖层较薄。在招标文件中,67%挖方为石方,填方路段填料由挖方路段调运,施工过程部分事件摘要如下:事件一:
我国第一所公立幼儿园于1903年建立在湖北()。
毛泽东的下列论述中,体现党的群众路线思想的有()。
从天津教案看近代中国反洋教运动。
1971年中国在外交领域的重大成就是()。
Forthepasttwentyyears,DilipSardesaiandhiswifeAndrijahaverunasmallstationer’sshopintheuniversitycityofNewca
最新回复
(
0
)