首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
57
问题
编写如下程序:
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全国计算机二级
相关试题推荐
设有下面程序代码:PrivateSubCommandlClick()DimstrAsString,chAsStringstr=“VisualBasicProgramming”.0ch=“a”n=fun(ch,str):Pr
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的“?”改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下:32437658281298573142536475869713243546576879805937
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2)(如图1-262所示)。程序运行
下面关于VB应用程序的叙述中正确的是
下列与队列结构有关联的是
一个教师可讲授多门课程,一门课程可由多个教师讲授。则实体教师和课程间的联系是()。
设程序中有以下语句:MsgBox"Visual",,"Basic","等级考试",2执行该语句后,显示一个信息框,以下关于该信息框的叙述中,正确的是
某二叉树中度为2的结点有10个,则该二叉树中有()个叶子结点。
在软件生命周期中,能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是()。
随机试题
公共政策监控以监控的经常性为标准,分为
有如下程序:intrune(inta,intb){return(a+b);)main(){intx=2,y=5,z=8,r;r=func(func(X,y),z);printf(“%d\n”,r);
牙髓电活力测验时,测器电极应放的位置在
男,64岁,散步时突然自觉腹部不适,恶心,头晕,出虚汗,心率加快,心慌,急就诊,查体:P118次/分;BP100/60mmHg;心律齐,面色苍白,腹部广泛压痛,尤以右侧腹明显,轻度肌紧张,既往有肝炎后肝硬化史,但无出血史,亦未做进一步检查。最可能的诊断
胆道手术时,下述哪项不是胆总管探查的指征
脏腑气血不足,运化无力引起的病理变化是什么
下列各项中,属于现代金融体系基本要素的有()。
公安机关可以责令其对吸毒成瘾人员接受社区戒毒的期限是()。
注册在A市的一家有限责任公司为增值税一般纳税人,主要生产销售农业机械,其经营地与注册地在一地。2011年度有关经营情况如下:(1)销售农机取得不含税收入8000万元,销售成本5100万元;(2)购进钢材共计4000万元,取得增值税专用发票上注明的进项税
Studentsofmanagementtheoryhavelong【C1】______whatconstitutestheworstkindofbook—theCEOautobiographyorthemanagement
最新回复
(
0
)