窗体上有1个名称为Command1的命令按钮，事件过程如下：Private Sub Command1_Click() Dim x%， y%， z% x＝InputBox("请输入第1个整数") y＝InputBox("请输入第2个整数") Do Until x＝y If x>y Then x＝x－y Else y＝y－x Loop Print xEnd Sub运行程序，单击命令按钮，并输入2个整数169和39，则在窗体上显示的内容为( )。
- A.11
- B.13
- C.23
- D.39
热度🔥990
参考答案：B
解析：
【解析】程序中Do循环比较输入的两个数的大小，把较大的数值减去较小的数值后再与较小的值比较，直到两个数值相等。程序中输入169和39，则x＝169－39＝130,130>y即130>39，因此x＝130－39＝91，如此循环x＝91－39＝52－39＝13，此时13>39为假，执行y＝y－x＝39－13＝26，循环y＝26－13＝13，此时x、y都为13，循环结束，因此窗体上显示为13。
【解析】程序中Do循环比较输入的两个数的大小，把较大的数值减去较小的数值后再与较小的值比较，直到两个数值相等。程序中输入169和39，则x＝169－39＝130,130>y即130>39，因此x＝130－39＝91，如此循环x＝91－39＝52－39＝13，此时13>39为假，执行y＝y－x＝39－13＝26，循环y＝26－13＝13，此时x、y都为13，循环结束，因此窗体上显示为13。
复制题目向AI提问
扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐
标准ASCII码用7位二进制位表示一个字符的编码，其不同的编码共有（）。
以下关于编译程序的说法正确的是（ ）。
小许正在撰写一篇有关质量管理的论文，按照如下要求帮助小许对论文进行编辑排版。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、斜式、黄色、半透明。
