首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下通用过程: Private Sub St(ByVal strX As String, strY As String) Dim Ts As String i = Len(strX) Do While i >= 1
有如下通用过程: Private Sub St(ByVal strX As String, strY As String) Dim Ts As String i = Len(strX) Do While i >= 1
admin
2020-02-27
51
问题
有如下通用过程:
Private Sub St(ByVal strX As String, strY As String)
Dim Ts As String
i = Len(strX)
Do While i >= 1
Ts = Ts + Mid(strX, i, 1)
i = i - 1
Loop
strY = Ts
End Sub
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
Dim s1 As String, s2 As String
s1 = "abcd"
Call St(s1, s2)
Print s2
End Sub
程序运行后,单击命令按钮,输出结果是
选项
A、abcd
B、dabc
C、dcba
D、abdc
答案
C
解析
求字符串长函数Len(s),英文全称:Length,返回字符串s的长度,即所包含的字符的个数。Do While…Loop,当程序开始执行时,先计算循环"条件"值,当条件为假时结束循环,否则执行循环体。字符串截取函数Mid$(s,n1,n2),从s第n1个字符开始,向后截取n2个字符。St过程中strX前有ByVal,是按值传递,即s1将值传给形参strX;strY是按地址传递,s2把地址传给了形参strY,strX的变化不引起s1的变化,但strY的变化却能改变s2。程序开始执行时,先将字符变量s1的值按值传递的方式传给了过程St,i=Len(strX)=Len(s1)=4;执行do while循环,循环条件4>=1为真,执行循环体,Mid(strX,4,1)=d, Ts = Ts + d = d,i=3;循环条件3>=1为真,执行循环体,Mid(strX,3,1)=c,Ts = Ts+d = dc,i=2;如此循环,知最后strY=dcba,因strY与s2是按地址传递的方式,故strY值的变化也会引起s2值的变化,所以s2=strY=dcba;本题正确答案为C。
转载请注明原文地址:https://kaotiyun.com/show/JkTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
由关系R1和R2得到关系R3的操作是()。
下面对“对象”概念描述正确的是()。
深度为7的二叉树共有127个结点,则下列说法中错误的是()。
VB中,若没有显式声明变量的数据类型,则默认的类型是()。
为了暂时关闭计时器,应把它的一个属性设置为False,这个属性是()。
(1)在称为Form1的窗体上添加一个名称为Shape1的形状控件,通过设置参数使其形状为圆形;添加一个名称为Label1的标签,标题为“形状”,标签的大小能够根据标签内容的字数、大小而定;添加一个名称为Text1的文本框,文本框最多能够显示5个字符,文小
在表达式2+3*4^5-Sin(x+1)/2中,首先进行的运算是()。
为了在窗体上建立2组单选按钮,并且当程序运行时,每组都可以有一个单选按钮被选中,则以下做法中正确的是()。
在下列模式中,能够给出数据库物理存储结构与物理存取方法的是()。
下面不属于软件设计阶段任务的是
随机试题
企业向银行借入长期借款,若预测市场利率将上升,企业应与银行签订()。
低氧对呼吸的刺激作用是通过()
使用热压灭菌器时,当灭菌达到规定时间后,一般应先
A.毒蛋白B.强心苷C.皂苷D.汞E.内酯朱砂、轻粉、红粉等的主要毒性成分是()。
对于下列再审申请,法院的处理正确的是:()
与直剪试验相比,()不是三轴剪切试验所具有的优点。
自然生态系统是由生物群落与无机自然环境所构成,以下()表述是正确的。
(二)某公司2006年10月下设各业务部门业务情况如下:(1)开发部自建楼房一栋竣工、建筑安装总成本4000万元,将其售给另一单位,总售价7000万元,本月预收5000万元。(2)非独立核算酒楼营业收入330万元,其中卡拉OK包间自娱自乐的
假定有如下程序:PrivateSubForm_Click()Dima(4)AsInteger,b(4)AsIntegerFork=0To2a(k+1)=Val(InputBox("请输入一个整数:"))b(3-k)=a(k+1)Ne
Whydopeoplechangetheirnameswhentheymoveabroad?Howmanyreasonsforchangingnamesarementionedinthearticle?
最新回复
(
0
)