[单项选择题] 有如下程序：　　Private Sub Commandl

[单项选择题] 有如下程序：　　Private Sub Commandl_Click( ) 　　　　Dim i As Integer 　　　　For i=1 To 2 　　　　　　DS 　　　　Next i 　　　End Sub 　　　Sub DS( ) 　　　　Dim x As Integer，m As String 　　　　Static y，n 　　　　X=X + 1 　　　　y=y + 1 　　　　m=m &"*”：n=n&"#" 　　　　Print x，y，m，n 　　End Sub 　　程序运行后，输出的结果是

A．1　1　*　#

B．1　1　*　#

C．1　1　*　# 　 1　1　*　#　1　2　*　#

D．1　1　*　# 　 1　1　*　##　　1　2　*　##

D

解析：当i=1时，调用函数过程DS，由于y，n为静态变量值保存，执行x =x+1；y=y + 1后x=1，y=1执行m=m &"*"：n=n&"#"后，m="*"，n ="#"；当I=2时同上，只是y=2，n="##"。输出结果如选项D)所示。