首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,其名称为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
25
问题
在窗体上画一个文本框,其名称为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://jikaoti.com/ti/N9x0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有1个名称为Text1的文本框,1个名称为Timer1的计时器,且已在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是,单击窗体,则每隔2秒钟在Text1中显示一次当前时间。Priva
窗体上命令按钮Commandl的事件过程如下:OptionBase1PrivateSubCommandl_Click()Dima(4,4)AsVariantFori=1To4
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerStaticzAsIntegerx
现有如下程序:PrivateSubCommandl_Click()S=0Fori=lTo5S=S+f(5+i)NextPrint
设a="VisualBasic",下面语句中可使b="Basic"的是()。
设有如下一段程序:PrivateSubCommandl—Click()StaticaAsVarianta=Array(“one”,“two”,“three”,“four”,“five”)Printa(3)
要建立一个随机文件记录学生的信息,如下定义的学生记录类型,由学号、姓名和5门课程成绩(百分制)组成,下列的定义正确的是()。
窗体上有1个名称为Text1的文本框,1个名称为Timer1的计时器,且已在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是,单击窗体,则每隔2秒钟在Text1中显示一次当前时间。Priva
下面属于系统软件的是
关于随机文件,以下叙述中错误的是()。
随机试题
下列选项中,体现了中华民族爱国主义优良传统的是
由实验室自己配置的商品,其中有关物质的量由参考方法定值的标准品为
早产的常见病因不包括
甲企业与乙租赁公司约定由租赁公司购买10部奥拓汽车出租给企业使用,租期3年,租赁期满甲企业向租赁公司支付全部租金后,奥拓汽车的所有权即归甲企业。合同签订后,租赁公司即向丙汽车厂购买10部奥拓汽车交付给甲企业使用。甲企业在使用其中5部汽车过程中发现有质量问题
坡地住宅应结合地形、等高线布置,综合考虑的条件不包括()。
背景资料:某公司分包承建一医院的机电工程,工程内容包括变配电所及其他建筑电气工程、通风与空调工程、给水排水工程和锅炉安装工程等,其中变配电所应提前受电为其他建筑设备的试运转提供条件,由业主方运行管理。安装时由于处理变压器漏油而停工3天,在分承包合同约定的
下列选项中,属于个人理财业务供给方的是()。
个体社会化
JohannaLeveltSengersstandsatthetopofherprofessionbutconfessesthat"itcanbealittlelonely"asoneofonlytwowo
WhyareAmericanbillsorpapermoneyunlikethatinmanyothercountries?
最新回复
(
0
)