单项选择题

下列程序的执行结果为( )。 　　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．1
B．2
C．随机输出1或2
D．程序有错
<上一题 目录 下一题>
热门 试题

单项选择题
单击命令按钮，下列事件过程的执行结果为( )。Private Sub Command1_Click( )Dim x As Integer, y As Integerx=40：y=72Call PtoP(x, y)Print x; yEnd SubPublic Sub PtoP(Byval n AS Integer, ByVal m Aa Integer)n = n 10+2m = m 10+2End Sub
A． 0 8
B． 40 72
C． 4 50
D． 78 50
单项选择题
有如下程序：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
相关试题