有下面程序代码： Private Sub Command1_Click() a = 3 s = 0 For k = 1 To 5 s = s + a Mod k a = a + k Next

admin2019-03-14 67

问题有下面程序代码：
Private Sub Command1_Click()
a = 3
s = 0
For k = 1 To 5
s = s + a Mod k
a = a + k
Next k
Print s
End Sub
程序运行后，单击命令按钮Command1，输出结果是

选项 A、15
B、13
C、4
D、1

答案C

解析 Mod为求余函数。For循环执行5次。第一次执行时a Mod k的值为0，则s=0，a=4；循环继续直到k=5退出。分步计算可得最后s=4，选C）。

转载请注明原文地址:https://kaotiyun.com/show/LEUp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

对长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为
下列叙述中正确的是
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：PrivateSubText1KeyUp(KeyCodeAsInteger,ShiftAsInteger)DimCAsStringC=UC
在窗体上画一个文本框，名称为Text1，然后编写如下程序：PrivateSubFormLoad()PrivateSubFormClick()Text1．Text=””：Te：xtl．SetFocusDimaAsString．SAs
假定Picturel和Text1分别为图片框和文本框的名称，则下列错误的语句是
以下()控件没有Caption属性。
(1)考生文件夹中有工程文件sjt3．vbp。在窗体上有名称为Combol的组合框，请设置该组合框的属性，使该组合框只能用于选择操作，不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中选中一项，如图5(A)所示，
关系数据库管理系统能实现的专门关系运算包括()。
运行下列程序时，输出的结果是()。PrivateSubFormClick()Dimxx=Array(“Software”，“and”，“Hardware“，”System”)Fori=LBound(x，1)ToUBound(x
下列不能打开工具箱窗口的操作是()。

随机试题

分度叉调整角度变动引起的误差会影响分度精度，这种误差引起的原因属于___________误差。
患者在输血过程中出现严重的过敏反应，如要继续输血应选择
患者右上中切牙扭转近90°角，且伴有唇侧倾斜，牙髓正常，牙根长、粗大，牙槽骨轻度吸收，牙龈红肿，探易出血。如果选择桩冠修复，则根管治疗后开始桩冠修复的最早时间是()
在物的分类中，不动产是不能移动或虽可移动但移动后有损其价值的物。下列关于不动产的说法中，错误的是()。
根据《企业破产法》以及相关司法解释的规定，管理人对抵销主张提出异议，人民法院应予支持的是()。
甲公司是一家位于深圳的生产企业，于2017年9月10日与乙公司签订了一项不可撤销的销售合同，约定在2018年2月10日以每件50元的价格向乙公司提供A产品10000件，如果不能按期交货，将向乙公司支付总价款15％的违约金。由于原材料价格上升及人工成本高等因
2×18年3月20日，甲公司将所持账面价值为7800万元的5年期国债以8000万元的价格出售给乙公司。按照出售协议的约定，甲公司出售该国债后。与该国债相关的损失或收益均归乙公司承担或享有。该国债出售前，甲公司将其分类为以公允价值计量且其变动计入其他综合收益
准时生产方式(JIT)是日本丰田汽车公司在20世纪60年代实行的一种生产管理方式，又称为无库存生产方式。关于准时生产方式的基本思想，以下理解错误的是()。
以下叙述中正确的是
Thecommoncoldistheworld’smostwidespreadillness,whichisplagues(疫病)thatfleshreceives.Themostwidespreadfallac

最新回复(0)

有下面程序代码： Private Sub Command1_Click() a = 3 s = 0 For k = 1 To 5 s = s + a Mod k a = a + k Next

二级VB

NCRE全国计算机二级

对长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为

下列叙述中正确的是

窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：PrivateSubText1KeyUp(KeyCodeAsInteger,ShiftAsInteger)DimCAsStringC=UC

在窗体上画一个文本框，名称为Text1，然后编写如下程序：PrivateSubFormLoad()PrivateSubFormClick()Text1．Text=””：Te：xtl．SetFocusDimaAsString．SAs

假定Picturel和Text1分别为图片框和文本框的名称，则下列错误的语句是

以下()控件没有Caption属性。

关系数据库管理系统能实现的专门关系运算包括()。

运行下列程序时，输出的结果是()。PrivateSubFormClick()Dimxx=Array(“Software”，“and”，“Hardware“，”System”)Fori=LBound(x，1)ToUBound(x

下列不能打开工具箱窗口的操作是()。

分度叉调整角度变动引起的误差会影响分度精度，这种误差引起的原因属于___________误差。

患者在输血过程中出现严重的过敏反应，如要继续输血应选择

患者右上中切牙扭转近90°角，且伴有唇侧倾斜，牙髓正常，牙根长、粗大，牙槽骨轻度吸收，牙龈红肿，探易出血。如果选择桩冠修复，则根管治疗后开始桩冠修复的最早时间是()

在物的分类中，不动产是不能移动或虽可移动但移动后有损其价值的物。下列关于不动产的说法中，错误的是()。

根据《企业破产法》以及相关司法解释的规定，管理人对抵销主张提出异议，人民法院应予支持的是()。

准时生产方式(JIT)是日本丰田汽车公司在20世纪60年代实行的一种生产管理方式，又称为无库存生产方式。关于准时生产方式的基本思想，以下理解错误的是()。

以下叙述中正确的是

Thecommoncoldistheworld’smostwidespreadillness,whichisplagues(疫病)thatfleshreceives.Themostwidespreadfallac