首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名为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-06-20
46
问题
窗体上有一个名为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(i+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/mrUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为
冒泡排序在最坏情况下的比较次数是
以下VisualBasic不支持的循环结构是
设有以下程序:PrivateSubForm_Click()x=50Fori=1To4y=InputBox("请输入一个整数")y=Val(y)IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNext
以下能够设置控件焦点的方法是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml,标题为“考试”的窗体上画一个名称为Combol、初始内容为空的下拉式组合框。下拉列表中有“隶书”、“宋体”和“楷体”三个项目。运行后的窗体如图
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上建立一个名称为Opl的单选按钮数组,含三个单选按钮,它们的标题依次为“选择1”、“选择2”、“选择3”,其下标分别为0、1、2,初始状态
(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个名称为Labell的控件数组,含三个标签,标题分别是“开始时间”、“结束时间”和“通话费用”;有一个名称为Text1的控件数组,含三个初始值为空的文本框:此外还有两个名称分别为Cmdl和Cm
(1)考生文件夹下有一个工程文件sjt3.vbp,其窗体上有1个名称为Text1的控件数组;一个标题为"排序"的命令按钮。程序运行时,在文本框数组中输入8个整数,如图3—29(a)所示;然后单击”排序”按钮,则8个整数按降序排序,如图3—29(b)所示。
为了声明一个长度为128个字符的定长字符串变量StrD,以下语句中正确的是
随机试题
脑中氨的主要去路是
这批货物的风险自何时起由卖方转移给甲方?()如买方已得知所购货物全部灭失的消息,在支付上正确的做法是()。
企业在筹建期间举借长期借款,其应支付的长期借款利息计入()进行核算。
“欣赏.评述”学习领域是指学生对、自然美和美术作品等()进行欣赏和评述。
Khalida’sfathersaysshe’s9-ormaybe10.AsmuchasSayedShahloveshis10children,thefunctionallyilliterateAfghanfarme
【2014山东省属】章山同学高考失利后,长期陷于一种消沉的状态中,不能自拔。影响章山的情绪是()。
试论述加涅的学习阶段及教学设计理论。
(2005上项管)项目干系人管理的主要目的是______。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是()。
A.equipmentB.maintainC.forexampleD.contactE.contrastF.gainedG.naturalH.expendI.uniqueJ.marchedK.ac
最新回复
(
0
)