首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名为Command1的命令按钮,然后编写如下代码: Option Base 1 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4):j
在窗体上画一个名为Command1的命令按钮,然后编写如下代码: Option Base 1 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4):j
admin
2017-11-23
19
问题
在窗体上画一个名为Command1的命令按钮,然后编写如下代码:
Option Base 1
Private Sub Commandl_Click()
Dim a
a=Array(1,2,3,4):j=1
For i=4 To 1 Step-1
s=s+a(i)*j:j=j*10
Next i
Print s
End Sub
运行上面的程序,其输出结果是
选项
A、1234
B、12
C、34
D、4321
答案
A
解析
本题考查的考点是有关循环的。本题也很简单,首先取得数组的最后一个元素加到累加变量中,然后取倒数第二个元素,乘10后加到累加变量中,然后取倒数第三个元素,乘100后加到累加变量中,以此类推,最后结果为1234。
转载请注明原文地址:https://kaotiyun.com/show/wyGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序运行后,单击命令按钮,输出的结果是______。PrivateSubCommand1_Click()Dima%(1To5),i%,s#Fori=1To5a(i)=iNexts=Fun(A)Print"s=";s;E
执行下列程序后,鼠标单击窗体,输出结果为。 PrivateSubForm_Click() Print“Click”; EndSub PrivateSubForm_MouseDown(ButtonAsInteger,Shift_
在程序中可以通过复选框和单选按钮的()属性值来判断它们的当前状态。
在窗体上画一个文本框和一个计时器控件,名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False。程序运行后,如果单击命令按钮,则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操
在窗体上画一个名称为Command1的命令按钮,然后编写如下代码:OptionBase1PrirateSubCommand1_Click()d=0c=10x=Array(10,1
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommandl_Click()Dima%,b%,i%s=1a=
设有如下程序:PrivateSubForm_Click()Clsa$="ABCDFG"Fori=1To6PrintTab(12-i);【】NextiEndSub程序运行后,单击窗体,结果如图所示,请填空。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dima(1To10)Dimp(1To3)k=5Fori=1To10a(i)=iNextiFori=1
随机试题
设f(x)=则∫-22f(x)dx=______.
两颊潮红、鼻翼煽动、唇有疱疹、咳嗽时表情痛苦,常见于()
上下颌第三磨牙口外投照片可观察的项目不包括A.第三磨牙的形态B.第三磨牙萌出情况C.第三磨牙阻生方向D.儿童第三磨牙牙胚发育情况E.下颌下腺导管结石情况
按照《医疗器械说明书、标签和包装标识管理规定》,医疗器械说明书应当涵盖下列哪些内容()
社会统计分析可分为描述性分析和说明性分析。如果社会统计分析的目的在于陈述被调查对象的特征,揭示事物内部的联系,则属()。
根据以下数字的规律,空缺处应填入的是()。一2,3,2,6,9,()
学生合作精神评价的内容主要包括学生交往能力、()。
2020年初以来,新型冠状病毒感染的肺炎疫情严重。公共安全是国家安全的重要体现,一头连着经济社会发展,一头连着千家万户,是最基本的民生。要牢固树立安全发展理念,织密织好全方位、立体化的公共安全网。要强化底线思维,增强忧患意识,时刻防范卫生健康领域重大风险。
若四阶矩阵A与B为相似矩阵,A的特征值为1/2、1/3、1/4、1/5,则行列式|B-1-E|=_________.
Formorethanamile,thedesertinsouthernPeruhasacuriousruler-straightandtack-sharpdesignmadebyrocks.Thewanderin
最新回复
(
0
)