单项选择题

下列程序的执行结果为( )。 　　Private Sub Commandl_Click() 　　　　Dim s1 As String ,s2 As String 　　　　s1= "abcd" 　　　　Call Transfer(sl，s2) 　　　　Print s2 　　End Sub 　　Private Sub Transfer (ByVal xstr As String，ystr As String) 　　　　Dim tempstr As String 　　　　ystr=tempstr 　　End Sub

A． dcba
B． abdc
C． abcd
D． dabc
<上一题 目录 下一题>
热门 试题

单项选择题
有如下程序：Private Sub Command1_Click()Dim k As Integer，m As IntegerDim op As Integerk=4：m=1op：PPC(k，m)：Print op；op：PPC(k，m)：Print opEnd SubPrivate Function，PPC(a As Integer，b As Integer)Static m As Integer，i As Integerm=0：i=2i=i+m+1m=i+a+bPPC=mEnd Function程序运行后，输出的结果为( )。
A．25
B．36
C．258
D．369
单项选择题
阅读下列程序：Private Sub Command1_Click()Dim i As Integer，k As Integerk=2For i=1 To 3Print H(k)；Next iEnd SubFunction H(j As Integer)a=0Static ba=a+1b=b+1H=a*b+jEnd Function程序运行后，单击命令按钮输出结果是（ ）。
A．234
B．345
C．567
D．356
相关试题