计算机二级
设在工程中有一个标准模块，其中定义了如下记录类型： TyPe Record ID A3 Integer Name As String*20 End TyPe 在窗体中添加一个名为Command1的命令按钮，假设d：\F1.dat文件中含有5个用户自定义类型的记录。要求当执行事件过程Command1_Click时，随机访问该文件，并把文件中的第4条记录读出。下列能够完成该操作的程序段是A．Private Sub Command1_Click( ) Dim MyRecord As Record，Positio
题目
设在工程中有一个标准模块，其中定义了如下记录类型： TyPe Record ID A3 Integer Name As String*20 End TyPe 在窗体中添加一个名为Command1的命令按钮，假设d：\F1.dat文件中含有5个用户自定义类型的记录。要求当执行事件过程Command1_Click时，随机访问该文件，并把文件中的第4条记录读出。下列能够完成该操作的程序段是
A．Private Sub Command1_Click( ) Dim MyRecord As Record，Position Open"d：\F1.dat"For Random As#1 Len=Len(My RecorD)Position=4 Get#1，Position，Myrecord Close #1 End Sub
B．Private Sub Command1_Click( ) Dim MyRecord As Record，Position Open"d：\F1.dat"For Random As #1 Len=Len(MyRecorD)Position=4 Put #1，Position，MyRecord Close#1 End Sub
C．Private Sub Command1_Click( ) Dim MyRecord As Record，Position Open"d：\F1.dar"For OutPut As #1 Len=Len(My RecorD0Position=4 Get #1，Position，MyRecord Close#1 End Sub
D．Private Sub Command1_Click( ) Dim MyRecord As record，Position Open"d：\F1.dat"For lnput As #1 Len=Len(MyRecorD)Position=4 Get #1，Position，MyRecord Close#1 End Sub
参考答案和解析
解析：由于是以随机方式访问该文件，故打开方式为Random。选项C以Output方式打开，选项D以Input方式打开都是错误的。同时由于要读出第四条记录，故使用Get#语句。
相似问题和答案
第1题：
A.v_row emp%type；
B.v_row emp%record；
C.v_row emp%tabletype；
D.v_row emp%rowtype；
第2题：
以下关于 Redcord(记录)的描述，不正确的是：
A.Object Pascal支持可变 Record,它允许在记录种不同的数据共同覆盖相同的内存
B.Record类型定义中列出了若干个域，每个域对应一个域名，通过域名访问
C.Record类型用于定义不同类型数据项的固定集合
D.record类型是类的一种补充
第3题：
有三个表如下
users(id,name);
type(id,name);
note(id,title,contents,user_id,author_id,type_id);
其中，user_id是作者、author_id是原创作者都是与users中的id进行关联的，type_id是分类编号，与type的id关联。
现在需要创建一个视图显示note中的id、title、contents、user_id、author_id、type_id、以及user_id、author_id、type_id对应的name。
怎样写sql语句呢？
DECLARE @fieldname varchar(200)
DECLARE test CURSOR FOR
select a.name from syscolumns a
join sysobjects b on a.id=b.id
where b.name='a' and a.colid<>1
--游标遍历系统表，查出a表所有字段,去掉第一个字段
OPEN test
FETCH NEXT FROM test into @fieldname
WHILE @@FETCH_STATUS = 0
BEGIN
update a set a.属性1=b.@fieldname,a.属性2=b.@fieldname,。。。a.属性n=b.@fieldname
from a a join a b on a.名称=b.名称
where b.@fieldname is not null
--这里可以改成通过系统条查出的字段名称拼成sql，这样就通用了，不管该表多少个字段也不用改sql了,时间关系我不写了.
end
CLOSE test
DEALLOCATE test
执行完后所有的属性字段的值都是一样的，随便取哪个字段都是你要的结果
注意，这段sql有条件限制，名称字段必须是该表的的第一个字段，如果不是的话把colid的值改成正确的
希望能帮到你，别忘了采纳我的答案哦，祝你生活愉快！
第4题：
DNS资料记录中记录类型（record-type）为CNAME，则记录为（）。
A．名字服务器记录
B．主机记录
C．别名记录
D．邮件交换记录
第5题：
DNS资料记录中记录类型（record-type）为A，则记录为（）
A．名字服务器记录
B．主机记录
C．别名记录
D．邮件交换记录
第6题：
A.TYPE <记录类型名> IS RECORD
B.TYPE <记录类型名> RECORD
C.RECORD <记录类型名>
D.TYPE RECORD <记录类型名>
第7题：
DNS资料记录中记录类型（record-type）为NS，则记录为（）
A．名字服务器记录
B．主机记录
C．别名记录
D．邮件交换记录
第8题：
LTE中有两种无线帧类型type1和type2 ，其中type1用于TDD。()
第9题：
DNS资料记录中记录类型（record-type）为MX，则记录为（）。
A．名字服务器记录
B．主机记录
C．别名记录
D．邮件交换记录
第10题：
DNS资料记录中记录类型（record-type）为PTR，则记录为（）。
A．名字服务器记录
B．主机记录
C．别名记录
D．指针记录