首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,其名称为Text1,然后编写如下程序: Option Base 1 Private Sub Form_Click()Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i
在窗体上画一个文本框,其名称为Text1,然后编写如下程序: Option Base 1 Private Sub Form_Click()Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i
admin
2020-04-18
34
问题
在窗体上画一个文本框,其名称为Text1,然后编写如下程序:
Option Base 1
Private Sub Form_Click()Dim Arr(10)As Integer
For i=6 To 10
Arr(i)=i-3
Next i
Text1.Text=Str(Arr(6)+Arr(Arr(6)+Arr(10)))
End Sub
程序运行后,单击窗体,在文本框中显示的内容是
选项
A、7
B、8
C、9
D、10
答案
D
解析
本题中在循环中为数组部分元素赋值,把Arr(6)~Arr(10)分别赋值为3~7,其余的数组元素保持默认值0;最终输出的是Arr(6)+Art(Arr(6)+Arr(10))即Arr(6)+Arr(10)=10。
转载请注明原文地址:https://kaotiyun.com/show/UvTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:OptionBase1PrivateSubCommand1_Click()Dima(3,3)AsIntegerDimiAsInteger,jAs
以下关于通用对话框的叙述中,错误的是
下列关于窗体的描述中,错误的是()。
VB应用程序不能把一个二维表格中的数据存入文件
设有如下一段程序:PrivateSubCommandl—Click()StaticaAsVarianta=Array(“one”,“two”,“three”,“four”,“five”)Printa(3)
在程序中要使用Array函数给数组arr赋初值,则以下数组变量定义语句中错误的是( )。
下面关于数组声明:Dimarr()AsInteger的叙述中正确的是
为了使命令按钮显示为图形形式,要设置一些属性,下列与这些属性无关的是
窗体上有1个名称为Text1的文本框;1个名称为Timerl的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下:PrivateSubTimer1_Timer()Static
随机试题
行车中当车辆前轮爆胎已发生转向时,驾驶人应双手紧握转向盘,尽力控制车辆直线行驶。
下列哪些案件适用简易程序审理是错误的?()
某测绘单位承担了0.8km2的工业区域1:2000地形图测绘项目,根据《测绘生产成本费用定额》,该项目报价应为()元。(工业区域成本费用为38899.39元/km2,小面积系数为1.3%)
填制特定减免税货物进口报关单时,报关员应当在“备案号”栏内正确填写“进出口货物征免税证明”上的12位编号。()
某烟丝加工厂为增值税一般纳税人,2015年4月接受某烟厂委托加工烟丝,烟丝厂自行提供烟叶的成本为32000元,代垫辅助材料2000元,加工费50000元;烟丝厂上月留抵税额为3400元。税务机关对其采用核定价格计税(烟丝消费税税率为30%,成本利润率为5%
某股份有限公司于2016年3月7日首次公开发行股份并在上海证券交易所上市交易。2016年4月8日,该公司召开股东大会,拟审议的有关董事、高级管理人员持股事项的议案中包含下列内容,其中,符合公司法律制度规定的是()。
老师:雪化了变成什么?学生:雪化了变成水。老师点头表示肯定:雪化了还能变成什么?学生:?老师:雪化了,天气一学生:越来越暖和了。老师:大家穿着的衣服一学生:越来越少了。老师:小草开始一学生:发芽了。老师:小燕子一学生:从南方飞回来了。
下列属于格赛尔“成熟一学习”原则观点的是()
Supposeyouaregoingtotakeavacationforaboutamonthandyouareconcernedaboutyourplants.Writeanotetoyourroommat
ReadthearticlebelowabouttheInternettoday.ChoosethebestwordtofilleachgapfromA,B,CorD.Foreachquestion21-3
最新回复
(
0
)