2. 计算机
  3. 设有如下程序： 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=

admin2020-04-18  57
问题 设有如下程序：
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、fedcba
D、defabc
答案C
解析 在Visual Basic中调用过程时，参数有两种传递形式：按值传递(Byval)和按址传递(Byref)，默认为按址传递。其中，当参数按址传递时，如果在弓l用该参数的过程中改变了形参的值，同时也就改变了传递参数时实参变量的值。本题中Inv的参数xStr是按值传递的，yStr是按地址传递的，因此在Inv中对xStr的改变不会影响实参S1，对yStr的操作会影响实参S2。过程Inv的作用是在每次循环中取出S1字符串靠后面的值连接到tStr中，然后将tStr赋值给yStr从而通过地址传递带回给S2，即字符串的逆序。
转载请注明原文地址:https://www.kaotiyun.com/show/rdTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)