首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim a(10)As String s="123456" n=Len(S) For k=1To n a(k)=Mid(s,k,1) Next k For i=1To n\2 t=a
编写如下程序: Private Sub Command1_Click() Dim a(10)As String s="123456" n=Len(S) For k=1To n a(k)=Mid(s,k,1) Next k For i=1To n\2 t=a
admin
2019-07-30
25
问题
编写如下程序:
Private Sub Command1_Click()
Dim a(10)As String
s="123456"
n=Len(S)
For k=1To n
a(k)=Mid(s,k,1)
Next k
For i=1To n\2
t=a(i)
a(i)=a(n-i+1)
a(n-i+1)=t
Next i
For k=1To n
Print a(k);
Next k
End Sub
程序运行后,单击命令按钮Command1,输出结果为( )。
选项
A、6 5 4 3 2 1
B、1 2 3 4 5 6
C、6 5 4 1 2 3
D、1 2 3 6 5 4
答案
A
解析
第一个For循环从字符串s中提取数字,赋值给数组a的元素。第二个For循环对数组a中的元素实现倒序排列。第三个For循环实现打印。选A)。
转载请注明原文地址:https://kaotiyun.com/show/ziUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于事件、事件驱动的叙述中,错误的是
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是
假定有以下程序:PrivateSubForm_Click()a=1:b=aDoUntila>=5x=a*bPrintb;xa=a+b:b=b+aLoopEnd
设有以下函数过程PrivateFunctionFun(a()AsInteger,bAsString)AsIntegerEndFunction若已有变量声明:Dimx(5)AsInteger,nA
下面关于直线控件的叙述中正确的是
使用Line控件在窗体上画一条从(0,0)到(600,700)的直线,则其相应属性的值应是
下列关于函数过程的叙述中,正确的是()。
在长度为n的有序线性表中进行二分查找,最坏情况下需要比较的次数是
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为
随机试题
患者两个月来关节肿大窜痛,屈伸不利,恶风怕冷,虽经治疗,症无改善,又增关节局部灼热,口干便燥,脉滑稍数,舌苔薄黄,主方选用()(1999年第67题)
根据行政诉讼法规定,当事人的申请符合下列情形之一的,人民法院应当再审:()
简述教育研究基本过程的步骤。
A.不伤害原则B.有利原则C.尊重原则D.公正原则E.自主原则哪项原则体现医生在诊治过程中不使患者的心身等受到损害
男,58岁,因2天前突然严重头痛,恶心,呕吐,伴有颈项强直而入院。穿刺检查证明脑压增高,除一般治疗外,为防治脑血管痉挛,宜选用()
甲企业为危险化学品生产经营单位,2017年6月与乙企业签订了工厂机械、管道类检修维护服务合同,双方约定,乙企业为甲企业的位于某县化学工业园区内的乙烯裂解综合装置中相关工厂提供机械、管道类日常维护修理服务。该合同所包含的健康安全环境条款规定,乙企业为甲企业的
在信用条件为“2/10,n/30”时,如果企业不取得现金折扣,在第30天付清货款,则其机会成本为()。
甲公司是一家光伏发电企业。受技术、经济等多种因素影响。光伏发电投资成本居高不下,而同一区域的风力发电企业成本较低,给甲公司的生存和发展带来威胁。更糟糕的是,公司在新建光伏电站时,因不了解当地的实际情况,选址不当,造成运输成本过高,并且破坏生态环境。甲公司面
Thisbookprovidesyouwiththesimplebasicsforbeingphysicallyfit.【21】______yourageorpresentstateoffitness,you
Youcan’tbuyhappiness.However,itlooks(1)______youcanatleastinheritit,BritishandAustralianresearcherssaid.As
最新回复
(
0
)