首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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 P
有如下程序: 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 P
admin
2015-10-23
32
问题
有如下程序:
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=3时,内层循环4次,s=10+1+2+3+4=20,p=40*20=800
转载请注明原文地址:https://kaotiyun.com/show/KWLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要将Form2作为无模式对话框打开,且随窗体Form3最小化而最小化,随Form3关闭而关闭,相应的Show语句为______。
设A$="Hello",下列语句正确的是()。
执行如下语句:a=InputBox("Today","Tomorrow","Yesterday","Daybeforeyesterday",5)将显示一个输入对话框,在对话框的输入区中显的信息是()。
在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimstrAsStringStr=Chr(KeyAscii)KeyAscii
关于VisualBasic"方法"的概念错误的是
假定在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType要求在执行事件过程Command1_Click时,在顺序文件Person.txt中
设有数组定义语句:Dima(5)AsInteger,Listl为列表框控件。下列给数组元素赋值的语句错误的是()。
某二叉树中度为2的结点有n个,则该二叉树中有【】个叶子结点。
如果在“立即”窗口中执行以下操作:a=8<CR>(<CR>为Enter键,下同)b=9<CR>printa>b<CR>则输出结果是()。
随机试题
属于第三代口服头孢菌素
A.苯骈-α-吡喃酮B.酪氨酸C.顺式邻羟基桂皮酸D.反式邻羟基桂皮酸E.苯骈-γ-吡喃酮
标的物为数物,其中一物不符合约定的,买受人可以就()解除合同。
金融业行业自律的基本内容有()。
导游员小李带一美国旅游团游览本市,团中一名游客因不懂中文,请小李帮忙安排与在该市的朋友见面。如果她的朋友愿意的话想邀请其一同随团游览。小李无法推脱,答应了她的请求,但由于地址变动,小李没有找到这位游客的朋友,该游客十分失落,提出要提前离团自行寻找其朋友,并
NextmonthBritonswillhaveyetmoresmartphonestochoosefrom,whendevicesfromWiko,atwo-year-oldFrenchcompany,goons
无神论个人主义的时代也就是感觉的时代。但是,感觉最终不能证明自己,感觉必须通过外部刺激才能实现。正是在这里,消费的意义体现出来:消费能提供感觉所需要的外部刺激。通过消费,感觉得以证明自己,实现自己。而且,越是消费,人的感觉越是得以实现,于是,消费成为生命的
通过制定和执行规章制度去管理班级的经常性活动的班级管理是()。
以下对股份有限公司的弱点的说法中,不适当的一项是()。
ATM交换的单位是信元。在信元中使用CRC校验和来进行差错控制。CRC校验和生成公式为(288),并且,校验和只对(289)进行校验。信元交换采用的复用技术是(290)。在交换过程中,当实施VP交换时,其中VPI、VCI的变化情况是(291)。若在交换过程
最新回复
(
0
)