在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base 0Private Sub Command1_Click() Dim A1(4)As Integer， A2(4)As Integer For k＝0 To 2 A1(k＋1)＝InputBox("请输入一个整数") A2(3－k)＝A1(k＋1) Next k Print A2(k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为( )。
- A.0
- B.1
- C.2
- D.3
热度🔥478
参考答案：C
解析：
【解析】程序运行过程如下：k＝0，输入2，A1(k＋1)＝A1(0＋1)＝A1(1)＝2，A2(3－k)＝A2(3－0)＝A2(3)＝2k＝1，输入4，A1(k＋1)＝A1(1＋1)＝A1(2)＝4，A2(3－k)＝A2(3－1)＝A2(2)＝4k＝2，输入6，A1(k＋1)＝A1(2＋1)＝A1(3)＝6，A2(3－k)＝A2(3－2)＝A2(1)＝6k＝3，For循环结束，输出A2(k)的值即A2(3)的值，即2。
【解析】程序运行过程如下：k＝0，输入2，A1(k＋1)＝A1(0＋1)＝A1(1)＝2，A2(3－k)＝A2(3－0)＝A2(3)＝2k＝1，输入4，A1(k＋1)＝A1(1＋1)＝A1(2)＝4，A2(3－k)＝A2(3－1)＝A2(2)＝4k＝2，输入6，A1(k＋1)＝A1(2＋1)＝A1(3)＝6，A2(3－k)＝A2(3－2)＝A2(1)＝6k＝3，For循环结束，输出A2(k)的值即A2(3)的值，即2。
复制题目向AI提问
扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐
下列程序段的执行结果是
Dim a(5) As String
Dim b As Integer
Dim I As Integer
For I = 0 To 5
a(I) = I + 1
Debug.Print a(I)
Next I
假设某文件由100个逻辑记录组成，每个逻辑记录长度为80个字符。磁盘空间被划分为若干块，块大小为1024个字符。
若采用成组操作，块因子为12，那么磁盘空间的利用率是多少？
小李是公司的出纳，单位没有购买财务软件，因此她只能用手工记账。为了节省时间并保证记账的准确性，小李使用Excel编制银行存款日记账。 请根据该公司九月份的"银行流水账表格.docx"，并按照下述要求，在Excel中建立银行存款日记账：
1. 按照表中所示依次输入原始数据，其中：在"月"列中以填充的方式输入"九"，将表中的数值的格式设为数值、保留2位小数。
2 .输入并填充公式：在"余额"列输入计算公式，余额=上期余额+本期借方-本期贷方，以自动填充方式生成其他公式。
3."方向列中"只能有借、贷、平三种选择，首先用数据有效性控制该列的输入范围为借、贷、平三种中的一种，然后通过IF函数输入"方向"列内容，判断条件如下所列：
余额 大于0 等于0 小于0
方向 借 平 贷
4.设置格式：将第一行中的各个标题居中显示；为数据列表自动套用格式后将其转换为区域。
5.通过分类汇总，按日计算借方、贷方发生额总计并将汇总行放于明细数据下方。
6.以文件名"银行存款日记账.xlsx"进行保存。
在 Excel 2010 中，将单元格B5中显示为“#”号的数据完整显示出来的最快捷的方法是（ ）。
