单项选择题

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

设有如下的类型和变量声明：
Private Type Person
name As String * 8
majorAs String * 20
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 "e:\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

<上一题目录下一题>

热门试题

单项选择题

某人编写了向随机文件中写一条记录的程序，代码如下： Type RType Name As String * 10 Tel As String * 20 End Type Private Sub Command1_Click( ) Dim p As RType p. Name = InputSox( 姓名 ) p. Tel = InputBox( 电话号 ) Open Books. dat For Random As # 1 Put # 1, , p Close # 1 End Sub 该程序运行时有错误，修改的方法是( )。

A) 在类型定义“Type RType”之前加上“Private”
B) Dim P As RType必须置于窗体模块的声明部分
C) 应把Open语句中的For Random改为For Output
D) Put语句应该写为Put # 1, P. Name, P. Tel

单项选择题

窗体上有一个名称为Command1的命令按钮，其事件过程如下： Private Sub Command1_Click( ) x = VisuatBasicProgramming a = Right(x, 11) b =Mid(x, 7, 5) c = MsgBox(a , , b) End Sub 运行程序后单击命令按钮。以下叙述中错误的是( )。

A) 信息框的标题是Basic
B) 信息框中的提示信息是Programming
C) c的值是函数的返回值
D) MsgBox的使用格式有错