在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim I， Num Randomize Do For I＝1 To 1000 Num＝Int(Rnd * 100) Print Num； Select Case Num Case 12 Exit For Case 58 Exit Do Case 65， 68， 92 End End Select Next I Loop End Sub 上述事件过程执行后，下列描述中正确的是( )。 - 柠檬试题库

首页计算机公务员驾照关于

在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim I， Num Randomize Do For I＝1 To 1000 Num＝Int(Rnd * 100) Print Num； Select Case Num Case 12 Exit For Case 58 Exit Do Case 65， 68， 92 End End Select Next I Loop End Sub 上述事件过程执行后，下列描述中正确的是( )。

A.Do循环执行的次数为1000次
B.在For循环中产生的随机数小于或等于100
C.当所产生的随机数为12时结束所有循环
D.当所产生的随机数为65、68或92时窗体关闭、程序结束

热度🔥399

参考答案：D

解析：

【解析】程序Do循环中嵌套了For循环，Do循环没有设置结束条件，而是在For循环体中的Select语句中设置了退出Do循环和For循环及结束程序的分支，因此Do循环的次数无法确定。随机函数Rnd产生[0,1)之间的一个数，包括0但不包含1，因此Rnd*100的范围是大于等于0小于100。随机数为65、68或92时结束程序关闭窗体，为58时退出Do循环，为12时退出For循环进入下一次Do循环。

复制题目向AI提问

扫码免费计算机二级刷题

2025年计算机等级考试题库

推荐公司中有多个部门和多名职员，每个职员只能属于一个部门，一个部门可以有多名职员。则实体部门和职员间的联系是某二叉树有5个度为2的结点，则该二叉树中的叶子结点数是( )。小赵是某书店的销售人员，负责计算机类图书的销售情况，并按月份上报分析结果。2013年1月份时，她需要将2012年12月份的销售情况进行汇总，请根据提供的"Excel.xlsx"文件帮助她完成下列工作：1.对"Excel.xlsx"进行如下设置：将"销售统计"表中的"单价"列数值的格式设为会计专用、保留2位小数。2.对数据表"销售统计"进行适当的格式化，操作如下：合并A1：E1单元格，为标题名"12月份计算机图书销售情况统计表"设置适当的对齐方式、字体、字号以及颜色；为数据区域设置边框底纹以使工作表更加美观等。3.将工作表"销量"中的区域B3:D16定义名称为"销量信息"。在"销售统计"表中的"销量"列右侧增加一列"销售额"，根据"销售额=销量×单价"构建公式计算出各类图书的销售额。要求在公式中通过VLOOKUP函数自动在工作表"销量"中查找相关商品的具体销量。并在公式中引用所定义的名称"销量信息"。4.为"销售统计"工作表创建一个数据透视表，放在一个名为"数据透视分析"的新的工作表中。5.为数据透视表数据创建一个类型为饼图的数据透视图，设置数据标签显示在外侧，将图表的标题改为"12月份计算机图书销量"。6.将工作表另存为"计算机类图书12月份销售情况统计.xlsx"文件。销售部助理小王需要针对2012年和2013年的公司产品销售情况进行统计分析，以便制订新的销售计划和工作任务。现在，请按照如下需求完成工作：1.打开“Excel_素材.xlsx”文件，将其另存为“Excel.xlsx”，之后所有的操作均在“Excel.xlsx”文件中进行。2.在“订单明细”工作表中，删除订单编号重复的记录(保留第一次出现的那条记录），但须保持原订单明细的记录顺序。3.在“订单明细”工作表的“单价”列中，利用VLOOKUP公式计算并填写相对应图书的单价金额。图书名称与图书单价的对应关系可参考工作表“图书定价”。4.如果每订单的图书销量超过40本（含40本），则按照图书单价的9.3折进行销售；否则按照图书单价的原价进行销售。按照此规则，计算并填写“订单明细”工作表中每笔订单的“销售额小计”，保留2位小数。要求该工作表中的金额以显示精度参与后续的统计计算。5.根据“订单明细”工作表的“发货地址”列信息，并参考“城市对照”工作表中省市与销售区域的对应关系，计算并填写“订单明细”工作表中每笔订单的“所属区域”。6.根据“订单明细”工作表中的销售记录，分别创建名为“北区”、“南区”、“西区”和“东区”的工作表，这4个工作表中分别统计本销售区域各类图书的累计销售金额，统计格式请参考“Excel_素材.xlsx”文件中的“统计样例”工作表。将这4个工作表中的金额设置为带千分位的、保留两位小数的数值格式。7.在“统计报告”工作表中，分别根据“统计项目”列的描述，计算并填写所对应的“统计数据”单元格中的信息。

标签

二级VB程序设计

循环

do

for

结束