首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个名称为Command1的命令按钮,1个名称为Label1的标签,然后编写如下事件过程: Private Sub Command1_Click() Dim n As Integer, t As Integer n = 1: t =
在窗体上画1个名称为Command1的命令按钮,1个名称为Label1的标签,然后编写如下事件过程: Private Sub Command1_Click() Dim n As Integer, t As Integer n = 1: t =
admin
2020-07-22
41
问题
在窗体上画1个名称为Command1的命令按钮,1个名称为Label1的标签,然后编写如下事件过程:
Private Sub Command1_Click()
Dim n As Integer, t As Integer
n = 1: t = 1
Do
n = n + 1
t = t * n
Loop Until n > 4
Label1.Caption = t
End Sub
程序运行后,单击命令按钮Command1,则标签中显示的内容是
选项
A、1
B、2
C、24
D、120
答案
D
解析
当n=1时,执行循环内程序,n=1+1=2,t=1*2=2;当n=2,继续执行循环内程序,n=2+1=3,t=2*3=6;当n=3时,执行循环内程序,n=3+1=4,t=6*4=24;当n=4时,执行循环内程序,n=4+1=5,t=24*5=120,退出循环。故选择D项。
转载请注明原文地址:https://kaotiyun.com/show/XfHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有以下程序代码:PrivateSubCommandl—Click()a=Array(1,2,7,10,6)b=Array(5,4,7,8,2)i=0j=0DoIfi
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:PrivateSubCommand1_Click() Dima(10)AsInteger,maxAsInteger Fork=1To10 a(k)=In
窗体的MouseUp事件过程如下:PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) ……EndSub关于以上定义,以下
设变量x中的值是395,则下面语句的输出是Printx\100+((xMod100)\10)*10+(xMod10)*100
结构化程序的三种基本结构是()。
下列叙述中正确的是
编写如下程序:PrivateSubCommand1_Click()Dima$,b$,c$,c1$,c2$a=InputBox("请输入一个字符串")b=InputBox("再输入另一个字符串")
表达式Str(Len("123"))+Str(77.7)的值是()。
以下关于控件数组的叙述中,正确的是( )。
在名称为Form1的窗体上添加一个名称为Command1、标题为“保存文件”的命令按钮,再添加一个名称为CommonDialog1的通用对话框。要求:①运行时单击“保存文件”命令按钮,则以“保存文件”方式打开该通用对话框,如图所示。②通过属性窗口设置
随机试题
易化扩散和主动转运的共同特点是
肝郁血虚,脾失健运。见两胁作痛,神疲食少,脉虚弦者,治宜选用
患者,男,65岁。有慢性咳喘病史20年,咳嗽、咳喘加重2周,咳大量白色泡沫痰,气短喘息,活动后加重,脘痞纳少,倦怠乏力。体格检查:神志清楚,舌质淡红,苔薄腻,脉促,桶状胸,剑突下可见心尖搏动,双肺可闻及湿啰音。心率110次/分,节律不齐,心音强弱不等。心电
下列结构的药物名称为
下列关于金属结构工程的工程量计算的说法,正确的为()。
气体灭火系统灭火剂输送管道的外表面宜涂红色油漆。在吊顶内、活动地板下等隐蔽场所内的管道,可涂红色油漆色环,色环宽度不应小于()mm,且每个防护区或保护对象的色环宽度要一致,间距应均匀。
以下各项中,用人单位可以单方随时解除劳动合同的是()。
孙悟空:《西游记》:吴承恩
______almosthadnointertribalwarfare?______wasthenameformanytribesunitedindefendingtheirlandsandinwarfare?
A、unbelievableB、confusingC、surprisedD、baffledB观点态度的找寻和判断。根据原文WhyCambridgeshouldtopsuchanunhealthyleaguetablehasbaf
最新回复
(
0
)