有如下程序： Private Sub Form_Click() Dim s As Integer，p As Integer p=1 For i=1 To 4 For j=1 To i s=s+j Ne

admin2016-08-24 53

问题有如下程序：
Private Sub Form_Click()
Dim s As Integer，p As Integer
p=1
For i=1 To 4
For j=1 To i
s=s+j
Next j
p=p*s
Next i
Print p
End Sub
程序运行后，单击窗体，则输出结果是( )。

选项 A、90
B、180
C、400
D、800

答案D

解析程序是一个双层For循环，外层循环变量的值决定内层For循环的次数。
当i=1时，内层循环1次，s=1，p=1；
当i=2时，内层循环2次，s=1+1+2=4，p=1*4=4；
当i=3时，内层循环3次，s=4+1+2+3=10，p=4*10=40：
当i=4时，内层循环4次，s=10+1+2+3+4=20，p=40*20=800。

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

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

二级VB

NCRE全国计算机二级

相关试题推荐

以下（）程序段可以实施X、Y变量值的互换。
下面程序段执行结果为()。x=Int(Rnd()+4)SelectCasex　　Case5　　　Print"excellent"　　Case4　　　Print"good"　　Case3
在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。设窗体Form1标题为“myform1”，双击控件数组中的第3个按钮，打开代码编辑器，写下如下代码：PrivaeSubM1_Click(IndexAsInteger)F
在窗体上添加一个文本框，名为text1，然后编写如下的load事件过程，则程序的运行结果是()。PrivateSubForm_Load　　Text1.Text=""　　Text1.SetFocus　　Fork
以下关于过程及过程参数的描述中，错误的是（）。
如下程序：PrivateSubForm_Click()　　a=20:b=20:c=120:d=120　　Form1.Line(a,b)-(c,b),,BFEndSub单击窗体后，窗体上显示的是()。
设A="123456"，则表达式Val(Left(A,4)+Mid(A,4,2))的值为
设Y是整形变量，能判断Y为奇数的表达式是
首先执行循环体，然后再进行条件判断，决定是否结束循环的循环语句是：______。
以下关于DoUntil…Loop循环的说法正确的是()。

随机试题

患者男性，55岁。两周来感乏力，食欲不振，血清ALT750tJ/L，血清总胆红素53μmoL/L，抗-HAVIgM、HBsAg、抗-HBc、抗-HCV均阴性，抗-HEVIgM阳性。诊断应考虑()
何某，24岁，女，工人，2013年5月21日就诊。停经44天，恶心呕吐1周。末次月经2013年4月6日。近5天来，恶心呕吐逐渐加重，呕吐物为酸苦水，胸胁满闷，口苦咽干，口渴，喜冷饮，大便千，尿少而黄，舌红苔黄燥，脉弦滑数。尿早孕试验阳性。辨证为
对已接受青霉素治疗的病人，停药--天以上，必须重新进行过敏试验
甲股份有限公司(简称甲公司)为增值税一般纳税人，适用的增值税税率为17％，所得税税率为25％。公司按照税后利润的10％提取法定盈余公积。20×5年12月31日，甲公司报表的有关数据如下：甲公司20×5年度财务会计报告批准报出日为20×6年3月31日，此
近日有网友发微博“围攻”眼保健操，称眼保健操残害中国青少年49年了，全世界仅中国做眼保健操，按摩毫无作用的穴位，49年来中国青少年近视率升至世界第二，达3．6亿人，做眼保健操无法改善视力，许多学生用脏手按摩导致红眼病、眼部感染等。中国中医科学院眼科医院原院
依次填入划横线部分最恰当的一项是()。①人人都有心中最值得______和喜欢的地方，或许是城市小巷，或许是山林大川，总会有个地方值得你去向往。②他不顾刺骨的寒冷跳进河中，救上三名落水儿童，全校师生都在______他英勇救人
在20世纪90年代，几乎所有的地方国有企业都是地方专业银行的债务人，而其中的亏损企业又大都挂有地方专业银行的呆账。债权人出于对呆账变成死账的担心而反对债务人破产皋一种可以理解的市场行为。但是，许多地方专业银行却宁愿继续给长期亏损企业贷款，继续使贷款成为已成
专家：问题：建议
费尽心机：弄巧成拙
HowtoBeMorePersuasiveA)Somepeoplehaveit,butmanymoredonot.Theyaretheluckyfewwhopossessthenaturalabilityto

最新回复(0)

有如下程序： Private Sub Form_Click() Dim s As Integer，p As Integer p=1 For i=1 To 4 For j=1 To i s=s+j Ne

二级VB

NCRE全国计算机二级

以下（）程序段可以实施X、Y变量值的互换。

下面程序段执行结果为()。x=Int(Rnd()+4)SelectCasex Case5 Print"excellent" Case4 Print"good" Case3

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

在窗体上添加一个文本框，名为text1，然后编写如下的load事件过程，则程序的运行结果是()。PrivateSubForm_Load Text1.Text="" Text1.SetFocus Fork

以下关于过程及过程参数的描述中，错误的是（）。

如下程序：PrivateSubForm_Click() a=20:b=20:c=120:d=120 Form1.Line(a,b)-(c,b),,BFEndSub单击窗体后，窗体上显示的是()。

设A="123456"，则表达式Val(Left(A,4)+Mid(A,4,2))的值为

设Y是整形变量，能判断Y为奇数的表达式是

首先执行循环体，然后再进行条件判断，决定是否结束循环的循环语句是：______。

以下关于DoUntil…Loop循环的说法正确的是()。

患者男性，55岁。两周来感乏力，食欲不振，血清ALT750tJ/L，血清总胆红素53μmoL/L，抗-HAVIgM、HBsAg、抗-HBc、抗-HCV均阴性，抗-HEVIgM阳性。诊断应考虑()

对已接受青霉素治疗的病人，停药--天以上，必须重新进行过敏试验

专家：问题：建议

费尽心机：弄巧成拙

HowtoBeMorePersuasiveA)Somepeoplehaveit,butmanymoredonot.Theyaretheluckyfewwhopossessthenaturalabilityto

下面程序段执行结果为()。x=Int(Rnd()+4)SelectCasex　　Case5　　　Print"excellent"　　Case4　　　Print"good"　　Case3

在窗体上添加一个文本框，名为text1，然后编写如下的load事件过程，则程序的运行结果是()。PrivateSubForm_Load　　Text1.Text=""　　Text1.SetFocus　　Fork

如下程序：PrivateSubForm_Click()　　a=20:b=20:c=120:d=120　　Form1.Line(a,b)-(c,b),,BFEndSub单击窗体后，窗体上显示的是()。