有如下程序： 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 Nextj p=p*s

admin2019-06-11 39

问题有如下程序：
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
  Nextj
p=p*s
  Next i
  Print P
End Sub
程序运行后，单击窗体，则输出结果是

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

答案D

解析本题是一个二重循环，而且内循环次数根据外循环的循环变量而定。内循环完成累加，内循环结束后将累加和乘到p中保存起来。在4次外循环中分别累乘的是1、4、10、20。

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

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

二级VB

NCRE全国计算机二级

相关试题推荐

在软件设计中，()。
下列针对框架控件的叙述中，错误的是()。
以下关于控件数组的叙述中，正确的是()。
在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”)，然后添加一个文本框(名称为Text1，可显示多行，ScrollBars属性设置为2)(如图所示)。程序运行后，如果执行“读入数据”命令，则读入
窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件过程：PrivateSubText1_Change(IndexAsInteger)SelectCaseIndexCase0Text1
有如下程序代码：PrivateSubForm_Click()DimxAsInteger，yAsInteger，numAsIntegerx=3y=xDoUntilx>=6num
语句DimArr(一2To4)AsInteger所定义的数组的元素个数为()。
假定有如下程序：PrivateSubForm_Click()Dima(4)AsInteger，b(4)AsIntegerFork=0To2a(k+1)=Val(InputBox("请输入一个整数："))b(3-k)=a(k+1)Ne

随机试题

A市石材公司共有3座露天采石场。2014年9月12日15时19分，石材公司位于同省B市的露天采石场发生边坡坍塌事故，事故过程如下：12日13时，采石场主管安排李某等5人，在第二平台分别进行运输通道清理、钻孔作业、坡面浮石清理、装矿作业，安排冯某在第三平台
Whenteachingsuchwordsas"left"and"right",ateacheraskshis/herstudentstotouchtheirleftarmsandthentouchtheirr
诬告陷害罪
目前最好的防病毒软件的作用是()。
长期用糖皮质激素突然停药可引起：
()属于会计工作岗位。
商业银行的经营原则包括()。
甲向乙购买了一只羊，钱已付，因天黑路滑，甲决定明天再来牵羊，乙将甲所买的羊与自己的羊一起拴在门口树下，当晚雷雨交加，将甲所买的羊与乙的羊一起击死，此事件中乙是否需要赔偿甲?下列选项正确的是()。
有人说：“我们应当以资本供给全世界，而谁以资本供给全世界，谁就应当管理全世界。”讲这话的应该是()。
Theboywoulddoeverythingbut______hisfault.

最新回复(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 Nextj p=p*s

二级VB

NCRE全国计算机二级

在软件设计中，()。

下列针对框架控件的叙述中，错误的是()。

以下关于控件数组的叙述中，正确的是()。

窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件过程：PrivateSubText1_Change(IndexAsInteger)SelectCaseIndexCase0Text1

有如下程序代码：PrivateSubForm_Click()DimxAsInteger，yAsInteger，numAsIntegerx=3y=xDoUntilx>=6num

语句DimArr(一2To4)AsInteger所定义的数组的元素个数为()。

假定有如下程序：PrivateSubForm_Click()Dima(4)AsInteger，b(4)AsIntegerFork=0To2a(k+1)=Val(InputBox("请输入一个整数："))b(3-k)=a(k+1)Ne

Whenteachingsuchwordsas"left"and"right",ateacheraskshis/herstudentstotouchtheirleftarmsandthentouchtheirr

诬告陷害罪

目前最好的防病毒软件的作用是()。

长期用糖皮质激素突然停药可引起：

()属于会计工作岗位。

商业银行的经营原则包括()。

甲向乙购买了一只羊，钱已付，因天黑路滑，甲决定明天再来牵羊，乙将甲所买的羊与自己的羊一起拴在门口树下，当晚雷雨交加，将甲所买的羊与乙的羊一起击死，此事件中乙是否需要赔偿甲?下列选项正确的是()。

有人说：“我们应当以资本供给全世界，而谁以资本供给全世界，谁就应当管理全世界。”讲这话的应该是()。

Theboywoulddoeverythingbut______hisfault.