下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请选择正确的程序段。 Private Sub Form_Click() Dim i As IntegerOpen "Num.txt" For Output As #1For i=1 To 8 Next iClose #1 End Sub

A．print #1，i

B．input #1，i

C．print #1

D．input #1

当代世界普遍的道德危机是导致道德建设长期性的因素之一。