假定在一个唯-分解环里（ai不全为零)证明:当而且只当d是a₁, a₂,...，a_n的一个最大公

A．不能用GoTo 语句进入或转出一个Sub过程

B．可以通过调用执行Sub过程，而且可以嵌套调用

C．Sub过程可以嵌套

D．在Sub过程内，不能定义Sub过程或Function过程

假定在工程文件中有一个标准模块，其中定义了如下记录类型

Type Books

Name As String * 10

TelNum As String * 20

End Type

要求当执行事件过程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

Name = InputBox（"输入姓名"）

TelNum = InputBox（"输入电话号码"）

Write #1, B

Close #1

End Sub

D．Private Sub Command1_Click（）

Dim B As Book

Open "c:\Person.txt" For Input As #1

Name = InputBox（"输入姓名"）

TelNum = InputBox（"输入电话号码"）

Print #1, B．Name, B．TelNum

Close #1

 End Sub

假定在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End Type 要求当执行事件过程Commandl_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是：

A． Prirate Sub Commandl Click() Dim B As Books Open"C:\Person.txt"For Output As #1B．Name=InputBox("输入姓名")B．TelNum=InputBox("输入电话号码") Write #1,B．Name,B．TelNum Close #1 End Sub

B．Pdrate Sub Commandl Cliok() Dim B As Books Open"c:\Person.txt"For Input As #1B．Name=InputBox("输入姓名")B．TeINum=InputBox("输入电话号码") Print #1,B．Name,B．TelNum Close #1 End Sub

C．Private Sub Commandl Click() Dim B As Books Open"c:\Person.txt"For Output As #1 Name=InputBox("输入姓名") TelNunl=InputBox("输入电话号码") Write #1,B Close #1 End Sub

D．Private Sub Commandl Click() Dim B As Books Open"c:\Person.txt"For Input As #1 Name=InputBox("输入姓名") Temum=InputBox("输入电话号码") Write #1,B．Name,B．TelNuin Close #1 End Sub

A.Private Sub List1_Click()

B.Private Sub List1_Click()Text1.Text = List1.List Text1.Text = List1.ListIndex/ End Sub End Sub

C.Private Sub List1_Click()

D.Private Sub List1_Click()Text1.Text = List1.Text Text1.Text = List1.Caption End Sub End Sub

假定在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum As String*20 End Type 要求当执行事件过程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 Output 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 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, B Close #1 End Sub

D．Private Sub Command1_Click() Dim B As Books Open "c:\Person txt" For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, B Name, B. TelNum Close #1 End Sub