首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
运行下列程序时,输出的结果是( )。 Private Sub Form Click() Dim x X=Array("Software","and","Hardware","System") For i=LBound(x,1)To UBound(x,
运行下列程序时,输出的结果是( )。 Private Sub Form Click() Dim x X=Array("Software","and","Hardware","System") For i=LBound(x,1)To UBound(x,
admin
2018-05-08
20
问题
运行下列程序时,输出的结果是( )。
Private Sub Form Click()
Dim x
X=Array("Software","and","Hardware","System")
For i=LBound(x,1)To UBound(x,1)
If Left(x(i),1)="S"Then Print x(i);
Next i
End Sub
选项
A、Soflware
B、SoftwareSystem
C、出错信息
D、SoftwareandHardwareSystem
答案
B
解析
本题考查变体类型。变体类型变量可通过Array函数来存放多个元素,做为数组进行处理。要读取数组上界时,可使用UBound(x)来实现,要读取数组下界时,LBound(x)来实现。因为题中x存放了多个字符串,i表示第一个字符串的行下标的下界,UBound(x,1)表示第一个字符串的行下标的上界。利用Left函数取得每一行数组元素的最左边的字符,然后判断是否为“S”,如果是,则输出该元素。
转载请注明原文地址:https://kaotiyun.com/show/ivGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
单击命令按钮执行以下程序,则输出结果为()。PrivateSubCommandl_Click()DimxAsInteger,yAsIntegerx=14:y=48CallProc(x,y)Printx;yE
下面程序运行后,语句”Printi”执行的次数是()。PrivateSubForm_Click()DimiAsInteger,jAsIntegeri=0Doi=i+1Forj=10To1Step-3
窗体上命令按钮的事件过程如下:PrivateSubCommandl_Click()A=“34”:B=“26”:C=“98”PrintB+C+AEndSub运行程序后,单击命令按钮,输出结果是()。
若要清除列表框控件中的所有列表项,应该使用的方法是
若要把窗体上命令按钮Commandl的状态设置为不可用,应该执行的命令是
为了保存数据,需打开顺序文件“E:\UserData.txt”,以下正确的命令是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Forml的窗体上画两个文本框,名称分别为Tl、T2,初始情况下都没有内容。请编写适当的事件过程,使得在运行时,在T1中输入的任何字符,立即显示在T2中(如图2-176
在下列几种排序方法中,要求内存量最大的是()。
假定在图片框Picturel中装入了一个图片,在程序运行中,为了清除该图片(注意,清除图片,而不是删除图片框),应采用的正确方法是()。
随机试题
A资产收益率的变动是市场平均收益率变动幅度的1.5倍,若无风险收益率为4%,市场组合收益率为8%,则A资产必要收益率为()。
杨女士2006年与吴先生结婚,生一子小吴,婚后二人购买了一套两居室的房屋居住,2008年吴先生用家庭财产20万与朋友合伙成立了一家股份公司,占50%的股权。2012年二人起诉离婚,离婚时公司价值200万,房产价值150万,其他家庭资产80万。2013年杨女
()年中国人民银行对银行业金融机构的监管职责移交至新设立的银监会。
企业持有的银行汇票存款应该通过“银行存款”科目核算。()
下列关于PCT国际申请的优先权说法哪些是正确的?
在进行拆迁时,有的人因念旧不肯搬离,有的人因对拆迁费不满意不肯搬离,遇到这种情况,你要怎样做好群众的思想工作,使拆迁工作顺利进行?
马克思说:“一切商品对它们的所有者是非使用价值,对它们的非所有者是使用价值。”对这句话应理解为()。
求.
下列关于WindowsNTServer的描述中,正确的是______。
BecauseAtlascoursesstarteveryMondayoftheyear,there’sboundtobeonethatfitsinwithyouracademic,personalorprofe
最新回复
(
0
)