有如下程序段: OPEN DATABACE xsxk USE 学生 IN 0 SELECT 学生 STORE 0 TO m,w SCAN FOR IF 性别

有如下程序段：

ls=['武汉','温州','香港','重庆']

f=open（'city.csv','w'）

f.write（','.join（ls）+'/n'）

f.close（）

下列说法正确的是（）。

A．f=open（'city.csv','w'）说明当前是读取模式

B．f.write（','.join（ls）+'/n'）语句改成f.write（''.join（ls）+'/n'），果依然以逗号分隔结

C．删除f.close（）语句，也能保存文件

D．当前程序的功能是将列表对象输出到CSV文件

有如下程序段： OPEN DATABACE xsxk USE 学生 IN 0 SELECT 学生 STORE 0 TO m，w SCAN FOR_________ IF 性别＝.T. m＝m+1 ELSE w＝w+1 ENDIF EDNSCAN CLEAR ？'男生人数'，m ？'女生人数'，w CLOSE DATABASE RETURN 功能说明：本程序段是统计专业代码(学号的第3、4位)为03的男、女生人数，则画横线处应填

A．SUBSTR(学号，1，2)＝'03'

B．SUBSTR(学号，2，2)＝'03'

C．SUBSTR(学号，3，2)＝'03'

D．SUBSTR(学号，4，2)＝'03'

有如下程序段： OPEN DATABACE xsxk USE学生IN 0 SELECT学生 STORE 0 TO m，w SCAN FOR______ IF 性别＝．T． m＝m+1 ELSE w＝w+1 ENDIF EDNSCAN CLEAR ？'男生人数'，m ？'女生人数'，w CLOSE DATABASE RETURN 功能说明：本程序段是统计专业代码(学号的第3、4位)为03的男、女生人数，则画横线处应填

A．SUBSTR(学号，1，2)＝'03'

B．SUBSTR(学号，2，2)＝'03'

C．SUBSTR(学号，3，2)＝'03'

D．SUBSTR(学号，4，2)＝'03'

STORE 0 TO m,w SCAN FOR IF 性别=.T. m=m+1 ELSE w=w+1 ENDIF EDNSCAN CLEAR ？′男生人数′,m ？′女生人数′,w CLOSE DATABASE RETURN 功能说明:本程序段是统计专业代码(学号的第3、4位)为03的男、女生人数,则画横线处应填

A．SUBSTR(学号,1,2)=′03′

B．SUBSTR(学号,2,2)=′03′

C．SUBSTR(学号,3,2)=′03′

D．SUBSTR(学号,4,2)=′03′

把文件写入到csv文件的程序段如下：

ls=[‘北京’,’上海’,’天津’,’重庆’]

f=open（"city.csv","w"）

______________

f.write（','.join（row）+'/n'）

f.close（）

划线处的代码应该为（）。

A． for i in ls

B． for row in ls

C． for i in range（len（ls））

D． for row in range（len（ls））

窗体外观如图所示。

设有如下的类型和变量声明：

Private Type Person

name As String*8

major As 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 "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

设在工程中有一个标准模块，其中定义了如下记录类型： Type Books Name As String * 10 TelNum As String * 20 EndType 在窗体中添加一个名为Commandl的命令按钮，要求单击命令按钮时，在顺序文件 Ptxt中写入一条记录。下列能够完成该操作的程序段是 ()

A．Private Sub Commandl_Click() Dim B As Books Open"d:\P1.txt"For Output As #1 B. Name=InputBox("姓名") B. TelNum=InputBox("电话号码") Write #1,B. Name,B. TelNum Close #1 EndSub

B．Private Sub Commandl_Click() Dim B As Books Open" d:\Pl.txt" For Input As B. Name=InputBox ("姓名") B. TelNum=InputBox ("电话号码") Print #1,B. Name,B. TelNum Close #1 EndSub

C．Private Sub Commandl_Click() Dim B As Books Open"d:\P1. txt"For Output As B. Name=InputBox("姓名") B. TelNum=InputBox ("电话号码") Write #1,B Close #1 EndSub

D．Private Sub Commandl Cliek() Open"d:\P1.txt" For Input As Name=InputBox("姓名") TelNum=InputBox ("电话号码") Print #1,Name,TelNum Close #1 EndSub

设在工程中有一个标准模块，其中定义了如下记录类型： 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

Type Person name As String*8 major As String*20 End Type 当单击“Command1”按钮时，能够正确地把数据写入文件的程序段是______。

A．Private Sub Command1_Click() Dim p As Person p. name=Text1. Text p. major=Text2. Text Open"C:\data. dat" For Random As #1 Put #1, 1, p Close #1 End Sub

B．Private Sub Command1_Click() Dim p As Person p. name=Text1.Text p. major=Text2. Text Open"C:\data. dat" For Random As #1 Get #1, 1, p Close #1 End Sub

C．Private Sub Command1_Click() Dis p As Person p. name=Text1. Text p. major=Text2. Text open "C:\data. dat" For Random As #1 Len=Len(p) Put #1, 1, p Close #1 End Sub

D．Private Sub Command1_Click() Dim p As Person p. name=Text1. Text p. major=Text2. Text Open "C:\data. dat" For Random As #1=Len(p) Get #1, 1, p Close #1 End Sub

有如下程序段：

A.A

B.B

C.C

D.D