首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Commandl_Click() Dim a(10)As String s="123456" n=Len(s) For k=1 To n a(k)=Mid(s,k,1)
编写如下程序: Private Sub Commandl_Click() Dim a(10)As String s="123456" n=Len(s) For k=1 To n a(k)=Mid(s,k,1)
admin
2019-08-22
24
问题
编写如下程序:
Private Sub Commandl_Click()
Dim a(10)As String
s="123456"
n=Len(s)
For k=1 To n
a(k)=Mid(s,k,1)
Next k
For i=1 To n\2
t=a(i)
a(i)=a(n—i+1)
a(n-i+1)=t
Next i
For k=1 To n
Print a(k);
Next k
End Sub
程序运行后,单击命令按钮Command1,输出结果为( )。
选项
A、654321
B、123456
C、654123
D、123654
答案
A
解析
第一个:For循环从字符串s中提取数字,赋值给数组a的元素。第二个For循环对数组a中的元素实现倒序排列。第三个For循环实现打印。选A。
转载请注明原文地址:https://kaotiyun.com/show/X7Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labell),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是
若要把窗体上命令按钮Commandl的状态设置为不可用,应该执行的命令是
设有窗体的FormMouseMove事件过程如下:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)If(ButtonAnd
编写如下程序:PrivateSubCommandl_Click()DimiAsInteger,jAsIntegern=InputBox("输入一个大于1的正整数")Fori=2TonForj=2ToSq
下列打开“代码窗口”的操作中错误的是()。
设有如下数组声明:Dima()AsSingle下面关于这一声明的叙述中正确的是()。
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上添加两个单选按钮(名称分别为Option1和Option2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为List1)和一个文本框(名称为Text1),如图1所示。编写窗体的Clic
下列数据结构中,属于非线性结构的是()。
设一棵满二叉树共有15个结点,则在该满二叉树中的叶子结点数为()。
有三个关系R,S和T如下图所示:则由关系R和S得到关系T的运算是()。
随机试题
关于路基工程石方施工安全要点的说法错误的是()。
商标禁止权的效力涉及的情况是()
A.多见于老年,膝关节病变常见,疼痛与关节活动关系密切B.好发于青壮年,发病部位多为骶髂关节、脊柱及髋、膝关节,无化脓及死骨形成C.各年龄组均有发病,儿童多见,病变多位于腰椎,成人常有椎间盘受累,有低热、消瘦等全身症状D.多发于女性,手足等小关节先受
患者,男,28岁。于2年前患慢性肾小球肾炎,近1年来出现颜面及眼睑水肿、贫血。入院后诊断为慢性肾衰竭(氮质血症期)。病人出现贫血,最主要的原因是
材料一:习近平在全国政法工作电视电话会议上要求,全国政法机关要顺应人民群众对公共安全、司法公正、权益保障的新期待,全力推进平安中国、法治中国、过硬队伍建设,深化司法体制机制改革,坚持从严治警,坚决反对执法不公、司法腐败,进一步提高执法能力,进一步增强人民群
20世纪初,我国出现的第一本教育心理学著作是1908年由房东岳译、日本小原又一著的()。
外国人犯罪的刑事案件由犯罪地所在的人民法院管辖。()
下列关于铁的说法错误的是:
Theorderlycamebackinafewminuteswitharifleandfivecartridges,andmeanwhilesomeBurmanshadarrivedandtoldusthat
Acidrain,whichisaformofairpollution,currentlybecomesasubjectofgreatdebatebecauseofwidespreadenvironmentaldam
最新回复
(
0
)