单项选择题

窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Commandl的命令按钮。
运行后的窗体外观如下图所示。

设有如下的类型声明：
Type Person
name As String8
major As String20
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

<上一题目录下一题>

热门试题

单项选择题

在窗体上绘制一个名称为Commandl的命令按钮，然后编写如下程序： Option Base 1 Private Sub Commandl_Click() Dim c As Integer,d As Integer d=0 c=6 x=Array(2，4，6，8，10，12) Fori=1 To 6 1fx(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End If Nexti Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为( )。

A．10
B．16
C．12
D．20

单项选择题

单击命令按钮时，下列程序的执行结果为( )。 Private Sub Commandl_Click() Dimx As Integer，y As Integer x=50:y=78 CallPPP(x，y) Printx；y End Sub Pubfic Sub PPP(ByValnAsInteger，ByValm As Integer) n=n 10 m=m 10 End Sub

A．08
B．50 78
C．450
D．78 50