柠檬试题库
search
首页 计算机 公务员 驾照 关于

若窗体上有一个名为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 kEnd SubSub prog(a()As Integer) n=UBound(a) For i=n To 2 step-1 For j=1 To n-1 if a(j)<a(j+1)Then t=a(j):a(j)=a(j+1):a(j+1)=t End If Next j Next iEnd 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
热度🔥699
参考答案:B
解析:

【解析】程序对数组元素赋初值为1、2、3、4、5。Ubound函数返回数组可用的最大下标,过程prog的功能是遍历数组对数组中的元素进行排序,由条件a(j)<a(j+1)可知程序是将数组按从大到小排序。当用数组作为过程的参数时,使用的是"传地址"方式,因此程序输出的是排序后的数组元素值,即5、4、3、2、1。
复制题目向AI提问


扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐 定义无符号整数类为UInt,下面可以作为类UInt实例化值的是( )。 软件的组成包括计算机程序、规程和相关的 在一次校园活动中拍摄了很多数码照片,现需将这些照片整理到一个PowerPoint演示文稿中,快速制作的最优操作方法是( )。       小李在东方公司担任行政助理,年底小李统计了公司员工档案信息的分析和汇总。请你根据东方公司员工档案表("Excel.xlsx" 文件),按照如下要求完成统计和分析工作:1. 请对"员工档案表"工作表进行格式调整,将所有工资列设为保留两位小数的数值,适当加大行高列宽。2. 根据身份证号,请在"员工档案表"工作表的"出生日期"列中,使用MID函数提取员工生日,单元格式类型为"yyyy'年'm'月'd'日'"。3. 根据入职时间,请在"员工档案表"工作表的"工龄"列中,使用TODAY函数和INT函数计算员工的工龄,工作满一年才计入工龄。4.引用"工龄工资"工作表中的数据来计算"员工档案表"工作表员工的工龄工资,在"基础工资"列中,计算每个人的基础工资。(基础工资=基本工资+工龄工资)5. 根据"员工档案表"工作表中的工资数据,统计所有人的基础工资总额,并将其填写在"统计报告"工作表的B2单元格中。6. 根据"员工档案表"工作表中的工资数据,统计职务为项目经理的基本工资总额,并将其填写在"统计报告"工作表的B3单元格中。7. 根据"员工档案表"工作表中的数据,统计东方公司本科生平均基本工资,并将其填写在"统计报告"工作表的B4单元格中。8. 通过分类汇总功能求出每个职务的平均基本工资。9. 创建一个饼图,对每个员工的基本工资进行比较,并将该图表放置在"统计报告"中。10. 保存"Excel.xlsx"文件。