编写如下程序：Private Sub Command1_Click() Dim a(3， 3)As Integer Dim s As Integer For i＝1 To 3 For j＝1 To 3 a(i， j)＝i * j＋i Next j Next i s＝0 For i＝1 To 3 s＝s＋a(i， 4－i) Next i Print sEnd Sub程序运行后，单击命令按钮Command1，输出结果为( )。
- A.7
- B.13
- C.16
- D.20
热度🔥537
参考答案：C
解析：
【解析】程序通过For循环为数组a赋值，具体值如下：a(1,1)＝1＋1＝2， a(1,2)＝2＋1＝3， a(1,3)＝3＋1＝4；a(2,1)＝2＋2＝4， a(2,2)＝4＋2＝6， a(2,3)＝6＋2＝8；a(3,1)＝3＋3＝6， a(3,2)＝6＋3＝9， a(3,3)＝9＋3＝12；程序要计算指定数组元素的和，这几个元素是a(1,3)， a(2,2)， a(3,1)，所以s＝4＋6＋6＝16。
【解析】程序通过For循环为数组a赋值，具体值如下：a(1,1)＝1＋1＝2， a(1,2)＝2＋1＝3， a(1,3)＝3＋1＝4；a(2,1)＝2＋2＝4， a(2,2)＝4＋2＝6， a(2,3)＝6＋2＝8；a(3,1)＝3＋3＝6， a(3,2)＝6＋3＝9， a(3,3)＝9＋3＝12；程序要计算指定数组元素的和，这几个元素是a(1,3)， a(2,2)， a(3,1)，所以s＝4＋6＋6＝16。
复制题目向AI提问
扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐
设窗体上有2个文本框Text1和Text2，并有下面的事件过程：Dim nPrivate Sub Text1_KeyPress(KeyAscii As Integer) If "A"<＝Chr(KeyAscii)And Chr(KeyAscii)<＝"Z" Then n＝n＋1 End If If KeyAscii＝13 Then Text2.Text＝n End IfEnd Sub程序运行时，在文本框Text1中输入“Visual Basic 6.0”并按回车键后，在文本框Text2中显示的是( )。
以下关于文件的组织结构叙述错误的是
Windows 2003系统DNS服务器中增加一条资源记录如下图所示，下列关于该资源记录的描述中，正确的是 （）。
Ⅰ 创建的资源记录为邮件交换器记录
Ⅱ 创建该记录时，在反向查找区域中创建相应的指针记录
Ⅲ 该记录被客户查询时，存放到缓存中的时间为3600秒
在客户机/服务器模型中，服务器标识一个特定的服务通常使用
小许正在撰写一篇有关质量管理的论文，按照如下要求帮助小许对论文进行编辑排版。1. 在考生文件夹下，将“Word素材.docx”文件另存为“Word.docx”(“.docx”为文件扩展名)，后续操作均基于此文件，否则不得分。2. 调整纸张大小为A4,左、右页边距为2cm，上、下页边距为2.3cm。3. 将表格外的所有中文字体及段落格式设为仿宋、四号、首行缩进2字符、单倍行距，将表格外的所有英文字体设为Time New Roman、四号，表格中内容的字体、字号、段落格式不变。4. 为第一段“企业质量管理浅析”应用样式“标题1”，并居中对齐。为“一、”、“二、”、“三、”、“四、”、“五、”、“六、”对应的段落应用样式“标题2”。5. 为文档中蓝色文字添加某一类项目符号。6. 将表格及其上方的表格标题“表1质量信息表”排版在1页内，并将该页纸张方向设为横向，将标题段“表1质量信息表”置于表上方居中，删除表格最下面的空行，调整表格宽度及高度。7. 将表格按“反馈单号”从小到大的顺序排序，并为表格应用一种内置表格样式，所有单元格内容为水平和垂直都居中对齐。8. 在文档标题“企业质量管理浅析”之后、正文“有人说：产量是……”之前插入仅包含第2级标题的目录，目录及其上方的文档标题单独作为1页，将目录项设为三号字、3倍行距。9. 为目录页添加首页页眉“质量管理”，居中对齐。在文档的底部靠右位置插入页码，页码形式为“第几页共几页”（注意：页码和总页数应当能够自动更新）， 目录页不显示页码且计入总页数，正文页码从第1页开始。最后更新目录页码。10. 为表格所在的页面添加编辑限制保护，不允许随意对该页内容进行编辑修改，并设置保护密码为空。11. 为文档添加文字水印“质量是企业的生命”，格式为宋体、字号80、斜式、黄色、半透明。
