有如下程序：　　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　*　##

根据合同法的规定，要约撤销的通知应当在______到达受要约人。

A．要约到达受要约人前
B．与要约同时
C．要约到达受要约人后
D．承诺人发出承诺前