首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click( ) Dim a(10)As String s=“123456” n=Len(s) For k=1 To n
编写如下程序: Private Sub Command1_Click( ) Dim a(10)As String s=“123456” n=Len(s) For k=1 To n
admin
2020-05-11
53
问题
编写如下程序:
Private Sub Command1_Click( )
Dim a(10)As String
s=“123456”
n=Len(s)
For k=1 To n
a(k)=Mid(a,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、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/tEHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
向文本框中输入字符时,下面能够被触发的事件是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1,标题为“滚动条属性设置”的窗体上画1个名称为vScroll1的垂直滚动条,设置属性,使得滚动块在最上面时,其位置值为10;滚动块在最下面时,其
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个标签,名称为L1,标题为“业余爱好”,再画一个名称为Chl的复选框数组,含三个复选框,它们的Index属性分别为0、1、2,标题依
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是产生20个0~1000的随机整数,放入一个数组中,然后输出这20个整数的平均值。程序运行后,单击命令按钮(名称为Command1,标题为“输出平均值”),即可
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2)(如图1-262所示)。程序运行
假定有如下语句:answer$=MsgBox("String1",,"String2","String3",2)执行该语句后,将显示一个信息框,单击其中的"确定"按钮,则answer$的值为( )。
三角形的构成条件是:任意2边之和大于第3边。设变量a、b、c是3条直线的长度,要求判断这3条直线能否构成一个三角形。下面有3个程序段可以正确判断,另一个不能正确判断的是
以下程序的功能是:把父目录下顺序文件smtext1.txt的内容读入内存,并在文本框Text3中显示出来。请选择适合横线处的语句()。PrivateSubCommand1_Click()DiminDataAsStrin
设有如下声明语句OptionBase1Dimarr(2,-1To5)AsInteger则数组all中数组元素的个数是
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是
随机试题
编者按一般由()拟稿。
_______的领导者与高的群体生产率和高满意度成正相关。()
【B1】【B12】
属于吡唑酮类非甾体抗炎药的是
男性,25岁。车祸伤1小时。查体:脉搏130次/分,血压86/60mmHg。烦躁不安,发绀,严重呼吸困难,皮肤湿冷,左颈胸部皮下捻发感,气管右移,左胸饱满,左肺呼吸音消失。胸片示左肺完全萎陷。急救处理是
取得报关单位资格的法定要求是()。
流通国债的特征不包括()。
英国的大炮轰开了中国闭关自守的大门,使一些爱国知识分子从“天朝上国”的梦幻中惊醒,一股新思潮萌发了。这一新思潮的核心是()。
下列各项中,不属于静态图像格式的是()。
一位从未在中国生活过的韩国女高中生,通过坚持看中国中央电视台的新闻等途径学习汉语,并在汉语演讲大赛中夺冠。这次在韩国全国高中学生汉语演讲大赛获得第一名的李智妍认为学习汉语的难点在于会话。她演讲的主题是“留学生与汉语水平考试”。据韩国《中央日报》报
最新回复
(
0
)