首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序: Private Sub Inv(ByVal xStr As String,yStr As String) Dim tStr As String Dim L As Integer L=Len(x
设有如下程序: Private Sub Inv(ByVal xStr As String,yStr As String) Dim tStr As String Dim L As Integer L=Len(x
admin
2020-04-18
78
问题
设有如下程序:
Private Sub Inv(ByVal xStr As String,yStr As String)
Dim tStr As String Dim L As Integer
L=Len(xStr)
Do While L>=1
tStr=tStr+Mid(xStr,L,1):L=L-l
Loop
yStr=tStr
End Sub
Private Sub Form_Click()
Dim S1 As String,S2 As String
Sl=”abcdef”Inv S1.S2
Print S2
End Sub
运行程序,单击窗体,输出结果为
选项
A、abcdef
B、afbecd
C、fedcba
D、defabc
答案
C
解析
在Visual Basic中调用过程时,参数有两种传递形式:按值传递(Byval)和按址传递(Byref),默认为按址传递。其中,当参数按址传递时,如果在引用该参数的过程中改变了形参的值,同时也就改变了传递参数时实参变量的值。本题中Inv的参数xStr是按值传递的,yStr是按地址传递的,因此在Inv中对xStr的改变不会影响实参S1,对yStr的操作会影响实参S2。过程Inv的作用是在每次循环中取出S1字符串靠后面的值连接到tStr中,然后将tStr赋值给yStr从而通过地址传递带回给S2,即字符串的逆序。
转载请注明原文地址:https://kaotiyun.com/show/haTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有下面的程序段:x=InputBox(”请输入一个整数”)ReDima(x)Fork=xTo0Step一1a(k)=kNextk一般,在这段程序之前应先进行数组a的定义。下面
编写如下程序:PrivateSubCommand1_Click()DimiAsInteger,jAsIntegern=InputBox(”输入一个大于1的正整数”)Fori=2TonF
如果在窗体模块中所有程序代码的前面有语句:Dimx,则x是
以下不能输出“Program”的语句是
窗体上有1个名称为Text1的文本框,1个名称为Label1的标签。程序运行后,如果在文本框中输入信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为
如果在VisualBasic集成环境中没有打开属性窗口,下列可以打开属性窗口的操作是
在VisualBasic环境下设计应用程序时,系统能自动检查出的错误是
设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是
在关系模型中,每一个二维表称为一个
线性表的链式存储结构与顺序存储结构相比,链式存储结构的优点有()。
随机试题
人力预测法
人民法院受理的自诉案件,经审查认为已具备立案条件的,作出立案决定的时间应当在收到自诉状或口头告诉
下列各项,最常出现病理性支气管呼吸音的是
某一全部使用政府投资的建设项目,工程价款结算总额为6600万元,则该工程的保证金一般为()万元。
()有权提议召开临时股东大会,但需经董事会同意后方可召开。
不确定性避免是指在任何一个社会中,人们对于不确定的、含糊的、前途未卜的情景,都会感到面对的是一种威胁,从而总是试图加以防止。根据上述定义,下列不属于不确定性避免的是:
HowdidthewomanknowabouttheStudentActionUnion?
Thestudentsexpectedthere______morereviewingclassesbe-forethefinalexams.
Cancellationoftheflight________manypassengerstospendthenightattheairport.
Recentyearshavebroughtminority-ownedbusinessesintheUnitedStatesunprecedentedopportunitiesaswellasnewandsignific
最新回复
(
0
)