首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序: 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=
设有如下程序: 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=
admin
2015-05-29
20
问题
设有如下程序:
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-1
Loop
yStr=tStr
End Sub
Private Sub Form_Click()
Dim S1 As String,S2 As String
S1="abcdef"Inv S1.S2
Print S2
End Sub
运行程序,单击窗体,输出结果为
选项
A、abcdef
B、afbecd
C、fcdcba
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/ACQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列子过程语句中正确的是()。
下列程序运行后在立即窗口输出的结果是()。PrivateSubForm_Click()x="a":y="b"z=1:u=2Debug.Printx;y,z;uDe
按照“先进后出”原则组织数据的数据结构是()。
下列不能打开菜单编辑器的操作是()。
在一个窗体上添加一命令按钮控件,名为Command1,事件过程如下,则执行结果是()。OptionBase1PrivateSubCommand1_Click()Dima(5)AsIntegerDimk
在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:OptionBase1PrivateSubCommand1_Click()DimcAsInteger,dAsIntegerd=0
表达式Val(".123E2")的值是()。
如果在立即窗口中执行以下操作:a=8b=9print(a>B);则输出结果为______。
下列这个Sub过程的功能是:统计字符串中“a”的个数,请在空白处填上合适的代码,将程序补充完整。PrivateSubnumCount()DimnumAsIntegerS$="soft
下列叙述中,不属于测试的特征的是
随机试题
社区卫生服务的主要工作内容是
建设方案比选应以______的数据为基础,所需要收集的基础资料和数据随投资项目类别不同而不同。
下列支出可以在所得税前扣除的有( )。
正常人血糖浓度为()mmol/L。
教育改革的核心是_______。
凭借经验解决问题的策略是()。
清代对官员的考察内容分为四格,即守、政、才、年,考核结果分为________、_________、供职三等。对武官的考察,每五年一次,称为________,由_________主持,考核内容分为操守、_________、________、________四
根据我国现行宪法和法律的规定,有权决定扣押或者拆检公民信件的国家机关是()。
SpeakerA:IlikewatchingoldmoviesandIthinktheyarethebest.SpeakerB:【D1】______eventhoughthey’reinblackandwhite
Aboutthreehundredyearsago,therewereapproximatelyhalfabillionpeopleintheworld.Inthetwocenturiesthatfollowedt
最新回复
(
0
)