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

设有如下事件过程:Private Sub Command1_Click() Dim a a=Array(12, 3, 8, 5, 10, 3, 5, 9, 2, 4) For k=1 To 9 Print fun(a(k-1), a(k)); " "; Next kEnd SubPrivate Function fun(x, y)As Integer Do While x>=y x=x-y Loop fun=xEnd Function程序运行时的输出结果是( )。


  • A.4 0 1 0 3 0 0 4 0
  • B.0 3 3 5 1 3 5 1 2
  • C.9 -5 3 -5 7 -2 -4 7-2
  • D.9 3 3 5 7 3 5 7 2
热度🔥669
参考答案:B
解析:

【解析】数组默认下标为0,因此数组a中的元素a(0)=12,a(1)=3,a(2)=8,a(3)=5,a(4)=10,a(5)=3,a(6)=5,a(7)=9,a(8)=2,a(9)=4。k=1时,fun(a(k-1),a(k))即fun(a(0),a(1)),即fun(12,3),过程中x=x-y=12-3=9-3=6-3=3-3=0,函数返回0;k=2时,fun(a(k-1),a(k))即fun(a(1),a(2)),即fun(3,8),x>=y不成立,函数直接返回3;k=3时,fun(a(k-1),a(k))即fun(a(2),a(3)),即fun(8,5),过程中x=x-y=8-5=3,函数返回3;k=4时,fun(a(k-1),a(k))即fun(a(3),a(4)),即fun(5,10),x>=y不成立,函数直接返回5;k=5时,fun(a(k-1),a(k))即fun(a(4),a(5)),即fun(10,3),过程中x=x-y=10-3=7-3=4-3=1,函数返回1;k=6时,fun(a(k-1),a(k))即fun(a(5),a(6)),即fun(3,5),x>=y不成立,函数直接返回3;k=7时,fun(a(k-1),a(k))即fun(a(6),a(7)),即fun(5,9),x>=y不成立,函数直接返回5;k=8时,fun(a(k-1),a(k))即fun(a(7),a(8)),即fun(9,2),过程中x=x-y=9-2=7-2=5-2=3-2=1,函数返回1;k=9时,fun(a(k-1),a(k))即fun(a(8),a(9)),即fun(2,4),x>=y不成立,函数直接返回2;因此程序输出0 3 3 5 1 3 5 1 2 。
复制题目向AI提问


扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐 窗体中有文本框Text1、Text2和Text3。运行时在Text1中输入整数m,在Text2中输入整数n(m 设有三张表,客户(客户号,姓名,地址),产品(产品号,产品名,规格,进价),购买(客户号,产品号,价格)。其中表客户和表产品的关键字(键或码)分别为客户号和产品号,则表购买的关键字为( )。       小李是东方公司的会计,利用自己所学的办公软件进行记账管理,为节省时间,同时又确保记账的准确性,她使用Excel编制了2014年3月员工工资表"Excel.xlsx"。请你根据下列要求帮助小李对该工资表进行整理和分析(提示:本题中若出现排序问题则采用升序方式):(1)通过合并单元格,将表名"东方公司2014年3月员工工资表"放于整个表的上端、居中,并调整字体、字号。(2)在"序号"列中分别填入1到15,将其数据格式设置为数值、保留0位小数、居中。(3)将"基础工资"(含)往右各列设置为会计专用格式、保留2位小数、无货币符号。(4)调整表格各列宽度、对齐方式,使得显示更加美观。并设置纸张大小为A4、横向,整个工作表需调整在1个打印页内。(5)参考考生文件夹下的"工资薪金所得税率.xlsx",利用IF函数计算 "应交个人所得税"列。 (提示:应交个人所得税=应纳税所得额*对应税率-对应速算扣除数)(6) 利用公式计算"实发工资"列,公式为:实发工资=应付工资合计-扣除社保-应交个人所得税。(7)复制工作表"2014年3月",将副本放置到原表的右侧,并命名为"分类汇总"。(8) 在"分类汇总"工作表中通过分类汇总功能求出各部门"应付工资合计"、"实发工资"的和,每组数据不分页。