单项选择题

下列程序的执行结果为　　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 Blck (x As Integer) x = x * 2 + l If x ＜6 Then Call Blck(x) End If x = x * 2 + 1 Print x； End Sub Private Sub Commandl_Click() Blck 2 End Sub
A．23 47
B．10 36
C．22 44
D．24 50
单项选择题
单击命令按钮，下列程序的执行结果为 Private Sub Commandl_Click() Dim x As Integer，y As Integer x=32：y=42 Call PCS(x，y) Print x；y End Sub Public Sub PCS(Byval n As Integer，ByVal m As Integer) n=n Mod 10+1 m=m Mood 10+1 End Sub
A．32 42
B．2 32
C．2 3
D．12 3
相关试题