窗体上有一个名称为Command1的命令按钮，其单击事件过程如下： Private Sub Command1_Click() For i=3To1Step-1 Sum=0 For i=1Toi Sum=Sum+i*i Next Next Print Sum

admin2016-09-19 28

问题窗体上有一个名称为Command1的命令按钮，其单击事件过程如下：
Private Sub Command1_Click()
For i=3To1Step-1
Sum=0
For i=1Toi
Sum=Sum+i*i
Next
Next
Print Sum
End Sub
运行程序时，单击命令按钮，则窗体上显示的是

选项 A、1
B、6
C、18
D、25

答案A

解析本题是一个简单的二重循环，只要注意到i的值逐渐递减，而且在内循环执行之前都会重新将Sum的值设置为0，不难得出只会输出最后一次外循环的Sum值，由于此时i=1，所以内循环只会执行一次，最终输出1作为结果。

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

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

二级VB

NCRE全国计算机二级

相关试题推荐

下列程序段的执行结果为m=2n=3Do　　m=m+n　　n=n+1LoopWhilem＜10Printm;n
以下用户自定义函数FunctionFunc(aAsInteger，bAsInteger)AsIntegerStaticmAsInteger．iAsInteger　m=0：i=2　i=i+m+i　
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后输写如下程序：PrivateSubCommand1_Click()Dimx，y，zAsInteger　　x=5　　y=7　　
在窗体上添加一命令按钮，其名为Command1，然后编写代码如下：privateSubCommand1_Click()Dimarr(5)AsInteger，arr1(5)ASInteger　　n=3　　Fori=
在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。设窗体Form1标题为“myform1”，双击控件数组中的第3个按钮，打开代码编辑器，写下如下代码：PrivaeSubM1_Click(IndexAsInteger)　
编写如下两个事件过程：PrivateSubForm_KeyDown(KeyCodeAsInteger，ShiftAsInteger)　PrintChr(KeyCode)EndSubPrivateSubFo
事件的方法是用于______。
面程序的功能是找出能够被13、23、43除余数分别为1、2、3的最小的两位正整数。请填空。PrivateSubForm_Click()　DimiAsInteger,jAsInteger　j=0　j=43
在窗体上画一个名称为“Command1”的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()　DimaAsString　a="123456789"　Fori=1To5

随机试题

出版物堆码的方式包括()。
人工髋关节置换术后股骨骨折以哪型最多见
女性，65岁，发现右侧乳房包块半年。既往体健。查体：右乳房外上象限近乳头处可触及约3cm×1．5cm质硬包块，无压痛，边界尚清，局部皮肤凹陷。腋窝未触及明显肿大淋巴结。手术后标本病理检查发现右腋下淋巴结1／3已发生肿瘤转移。患者的TNM分期为
腰大肌试验阳性提示结肠充气试验阳性提示
同一种粗集料，测得的密度ρ、视密度ρa和自然堆积密度ρf存在的关系为()。
悬臂梁AB由三根相同的矩形截面直杆胶合而成，如图5－35所示。材料的许可应力为[σ]。若胶合面开裂，假设开裂后三根杆的挠曲线相同，接触面之间无摩擦力。则开裂后的梁承载能力是原来的()。
某中外合资经营企业的投资总额为410万美元，在其注册资本中，中方认缴的出资费为105万美元。根据《外商投资企业法》的规定，外方认缴的出资额至少为()。
公共营养师的职业守则是对其品格、纪律、责任、技能的要求。()
蒋老师的亲戚开办了一家培训公司，希望蒋老师推荐自己班上的学生来参加辅导班，或者提供班上学生的联系方式。面对这种情况，蒋老师应该()。
TheGreatestShowonEarthTheOlympicGamesarethegreatestfestivalofsportintheworld.Everyfouryears,ahundredor

最新回复(0)

窗体上有一个名称为Command1的命令按钮，其单击事件过程如下： Private Sub Command1_Click() For i=3To1Step-1 Sum=0 For i=1Toi Sum=Sum+i*i Next Next Print Sum

二级VB

NCRE全国计算机二级

下列程序段的执行结果为m=2n=3Do m=m+n n=n+1LoopWhilem＜10Printm;n

以下用户自定义函数FunctionFunc(aAsInteger，bAsInteger)AsIntegerStaticmAsInteger．iAsInteger m=0：i=2 i=i+m+i

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后输写如下程序：PrivateSubCommand1_Click()Dimx，y，zAsInteger x=5 y=7

在窗体上添加一命令按钮，其名为Command1，然后编写代码如下：privateSubCommand1_Click()Dimarr(5)AsInteger，arr1(5)ASInteger n=3 Fori=

在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。设窗体Form1标题为“myform1”，双击控件数组中的第3个按钮，打开代码编辑器，写下如下代码：PrivaeSubM1_Click(IndexAsInteger)

编写如下两个事件过程：PrivateSubForm_KeyDown(KeyCodeAsInteger，ShiftAsInteger) PrintChr(KeyCode)EndSubPrivateSubFo

事件的方法是用于______。

面程序的功能是找出能够被13、23、43除余数分别为1、2、3的最小的两位正整数。请填空。PrivateSubForm_Click() DimiAsInteger,jAsInteger j=0 j=43

在窗体上画一个名称为“Command1”的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click() DimaAsString a="123456789" Fori=1To5

出版物堆码的方式包括()。

人工髋关节置换术后股骨骨折以哪型最多见

腰大肌试验阳性提示结肠充气试验阳性提示

同一种粗集料，测得的密度ρ、视密度ρa和自然堆积密度ρf存在的关系为()。

悬臂梁AB由三根相同的矩形截面直杆胶合而成，如图5－35所示。材料的许可应力为[σ]。若胶合面开裂，假设开裂后三根杆的挠曲线相同，接触面之间无摩擦力。则开裂后的梁承载能力是原来的()。

某中外合资经营企业的投资总额为410万美元，在其注册资本中，中方认缴的出资费为105万美元。根据《外商投资企业法》的规定，外方认缴的出资额至少为()。

公共营养师的职业守则是对其品格、纪律、责任、技能的要求。()

蒋老师的亲戚开办了一家培训公司，希望蒋老师推荐自己班上的学生来参加辅导班，或者提供班上学生的联系方式。面对这种情况，蒋老师应该()。

TheGreatestShowonEarthTheOlympicGamesarethegreatestfestivalofsportintheworld.Everyfouryears,ahundredor

下列程序段的执行结果为m=2n=3Do　　m=m+n　　n=n+1LoopWhilem＜10Printm;n

以下用户自定义函数FunctionFunc(aAsInteger，bAsInteger)AsIntegerStaticmAsInteger．iAsInteger　m=0：i=2　i=i+m+i　

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后输写如下程序：PrivateSubCommand1_Click()Dimx，y，zAsInteger　　x=5　　y=7　　

在窗体上添加一命令按钮，其名为Command1，然后编写代码如下：privateSubCommand1_Click()Dimarr(5)AsInteger，arr1(5)ASInteger　　n=3　　Fori=

在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。设窗体Form1标题为“myform1”，双击控件数组中的第3个按钮，打开代码编辑器，写下如下代码：PrivaeSubM1_Click(IndexAsInteger)　

编写如下两个事件过程：PrivateSubForm_KeyDown(KeyCodeAsInteger，ShiftAsInteger)　PrintChr(KeyCode)EndSubPrivateSubFo

面程序的功能是找出能够被13、23、43除余数分别为1、2、3的最小的两位正整数。请填空。PrivateSubForm_Click()　DimiAsInteger,jAsInteger　j=0　j=43

在窗体上画一个名称为“Command1”的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()　DimaAsString　a="123456789"　Fori=1To5