窗体上有1个名称为Command1的命令按钮，事件过程及函数过程如下：Private Sub Command1_Click() Dim p As Integer p＝m(1)＋m(2)＋m(3) Print pEnd SubPrivate Function m(n As Integer)As Integer Static s As Integer For i＝1 To n s＝s＋1 Next m＝sEnd Function运行程序，第2次单击命令按钮Command1时的输出结果为( )。
A. 6
B. 10
C. 16
D. 28
设在工程文件中有一个标准模块，其中定义了如下记录类型Type Books Name As String * 10 TelNum As String * 20End Type在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是( )。
A. Private Sub Command1_Click() Dim B As Books Open "c：\Person.txt" For Output As #1 B.Name＝InputBox("输入姓名") B.TelNum＝InputBox("输入电话号码") Write #1， B.Name， B.TelNum Close #1 End Sub
B. Private Sub Command1_Click() Dim B As Books Open "c：\Person.txt" For Input As #1 B.Name＝InputBox("输入姓名") B.TelNum＝InputBox("输入电话号码") Print #1， B.Name， B.TelNum Close #1 End Sub
C. Private Sub Command1_Click() Dim B As Books Open "c：\Person.txt" For Output As #1 B.Name＝InputBox("输入姓名") B.TelNum＝InputBox("输入电话号码") Write #1， B Close #1 End Sub
D. Private Sub Command1_Click() Open "c：\Person.txt" For Input As #1 Name＝InputBox("输入姓名") TelNum＝InputBox("输入电话号码") Print #1， Name， TelNum Close #1 End Sub
依照《建设工程施工合同(示范文本)》通用条款的规定，施工合同履行中，如果发包人出于某种考虑要求提前竣工，则发包人应______。
A. 负责修改施工进度计划
B. 向承包人直接发出提前竣工的指令
C. 与承包人协商并签订提前竣工协议
D. 为承包人提供赶工的便利条件
E. 减少对工程质量的检测试验
在建设工程施工合同的履行过程中，发包人供应的材料设备与约定不相符时，应遵循的处理原则有______。
A. 材料设备单价与合同约定不符时，由发包人承担所有差价
B. 材料设备种类、规格与合同约定不符时，承包人可以拒绝接收保管
C. 供应数量多于合同约定的数量时，承包人负责将多出部分运出施工场地
D. 到货时间早于合同约定时间，发包人承担因此发生的保管费用
E. 发包人供应材料的规格、型号与合同约定不符时，承包人可以代为调剂串换
微信支付 
支付宝支付