有下面一个程序段，从文本框中输人数据，如果该数据满足条件“除以4余1，除以5余 2”，则输出，否则，将

否则，将焦点定位在文本框中，并清除文本框的内容。

Private Sub Command1_Click（）

x=Val（Text1.Text）

If 【6】 Then

Print x

Else

Text1.Text=""

【7】

End If

End Sub

否则，将焦点定位在文本框中，并清除文本框的内容。

Private Sub Command1_Click（）

num=Val（Text1.Text）

If 【8】 Then

Print num

Else

Text1.Text=""

【9】

End If

End Sub

窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Commandl的命令按钮。 运行后的窗体外观如下图所示。设有如下的类型声明： Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test290.dat中。设文本框中的数据已正确地赋值给Person类型的变量P。则能够正确地把数据写入文件的程序段是()。

A．Open"c:\Test29.dat"ForRandom As #1 Put#1，1，p Close#1

B．Open"c:\Test29.dat"ForRandomAs#1 Get#1，1，p Close#1

C．Open"c:\Test29.dat"ForRandomAs#1Len=Len(p) Put#1，1，p Close#1

D．Open"c:\Test29.dat"ForRandomAS#1Len=Len(p) Get#1，1，p Close#1

A.必须要有堆栈段

B.一个程序可以有多个代码段

C.必须要有数据段

D.只能有一个数据段

在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。

体外观如图所示。设有如下的类型声明

当单击“保存”按钮时．将两个文本框中的内容写入一个随机文件Test29.dat中设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是

A．

B．

C．

D．

A．错误

B．正确

体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Command1_Click() x=Val(Text1.Text) IfThen Print x Else ________ Text1.Text="" End If End Sub