单项选择题

在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。
设有如下的类型和变量声明： Private Type Person name As String8 major As String20 End Type Dim p As Person 设文本框中的数据已正确地赋值给Person类型的变量P，当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是

A．Open "c：\Test2.dat" For Output As #1 Put #1，1，P Close #1
B．Open "c：\Test2.dat" For Random As #1 Get #1，1，P Close #1
C．Open "c：\Test2.dat" For Random As #1 Len=Len(p) Put #1，1，P Close #1
D．Open "c：\Test2.dat" For Random As #1 Len=Len(p) Get #1，1，P Close #1

<上一题目录下一题>

热门试题

单项选择题

假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：Private Type animalanimalName As String*20aColor As String*10End Type在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:Private Sub Command1_Click()Dim rec As animalOpen c: vbTest.dat For Random As #1 Len = Len(rec)rec.animalName = Cat rec.aColor = White Put #1, , recClose #1End Sub则以下叙述中正确的是（）。

A．记录类型animal不能在Form1中定义，必须在标准模块中定义
B．如果文件c:\vbTest.dat不存在，则Open命令执行失败
C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D．语句“Put #1, , rec”将animal类型的两个数据元素写到文件中

单项选择题

以下程序运行后，单击按钮输出结果是( )。Private Sub Commandl_Click( )Dim x As Integer，y As Integer，z As IntegerX=4：y=2： Z=3Call Gopd(x，x，z)Print x；X；ZCall Gopd(x，y，y)Print x；y；yEnd SubPrivate Sub Gopd(x As Integer，y As Integer，z As Integer)X=3 * Z + 1y=2 * zz=x + yEnd Sub

A．6　6　12 7 11 11
B．8　5　105 11 11
C．9　6　129 10 15
D．8　10　105 9 10