某人编写了向随机文件中写一条记录的程序，代码如下：Type RType Name As String * 10 Tel As String * 20End TypePrivate Sub Command1_Click() Dim p As RType p.Name＝InputBox("姓名") p.Tel＝InputBox("电话号") Open "Books.dat" For Random As #1 Put #1， ， p Close #1End Sub该程序运行时有错误，修改的方法是( )。A)在类型定义“Type RType”之前加上“Private”B)Dim p As RType必须置于窗体模块的声明部分C)应把Open语句中的For Random 改为 For OutputD)Put语句应该写为Put #1，p.Name ， p.Tel(36)有如下程序：Private Sub Form_Click()Dim s As Integer， p As Integerp＝1For i＝1 To 4 For j＝1 To is＝s＋j Next j p＝p * sNext iPrint pEnd Sub程序运行后，单击窗体，则输出结果是( )。