题目内容 （请给出正确答案）
[主观题]

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

有如下程序段:

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′

查看答案
如搜索结果不匹配，请 联系老师 获取答案
您可能会需要：
您的账号：，可能会需要：
您的账号：
发送账号密码至手机
发送
重置密码 查看订单 联系客服
安装赏学吧APP，拍照搜题省时又省心！
更多“有如下程序段: OPEN DATABACE xsxk USE…”相关的问题

第1题

有如下程序段：ls=['武汉','温州','香港','重庆']f=open（

有如下程序段：

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文件

点击查看答案

第2题

有如下程序段：OPEN DATABACE xsxkUSE 学生 IN 0SELECT 学生STORE 0 TO m，wSCAN FOR_________IF

有如下程序段： 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'

点击查看答案

第3题

有如下程序段：OPEN DATABACE xsxkUSE学生IN 0SELECT学生STORE 0 TO m，wSCAN FOR______IF 性别＝．T

有如下程序段： 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'

点击查看答案

第4题

有如下程序段: 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′

点击查看答案

第5题

把文件写入到csv文件的程序段如下：ls=[‘北京’,’上海’,’天津’,’重庆’]f=open（"city.csv&q

把文件写入到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））

点击查看答案

第6题

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

（26）在窗体上有两个名称分别为 Text1、Text2 的文本框，一个名称为 Command1 的

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

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

点击查看答案

第7题

设在工程中有一个标准模块，其中定义了如下记录类型：Type BooksName As String * 10TelNum As Str

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

点击查看答案

第8题

设在工程中有一个标准模块，其中定义了如下记录类型： TyPe Record ID A3 IntegerName As String*2

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

点击查看答案

第9题

窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。设有如下的类型声明：
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

点击查看答案

第10题

有如下程序段：A.AB.BC.CD.D

有如下程序段：

有如下程序段：A.AB.BC.CD.D有如下程序段：A.AB.BC.CD.D请帮忙给出正确答案和分析

A.A

B.B

C.C

D.D

点击查看答案
粘贴 取消
立即搜索
APP特色功能
语音搜题 语音识别 秒出答案
APP特色功能
拍照搜题 哪里不会 拍哪里
发送账号至手机
获取验证码
发送
温馨提示
该问题答案仅针对搜题卡用户开放，请点击购买搜题卡。
马上购买搜题卡
我已购买搜题卡， 登录账号 继续查看答案
重置密码
确认修改
温馨提示
每个试题只能免费做一次，如需多次做题，请购买搜题卡
立即购买
稍后再说
警告：系统检测到您的账号存在安全风险

为了保护您的账号安全，请在“赏学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！

微信搜一搜
赏学吧
点击打开微信
警告：系统检测到您的账号存在安全风险
抱歉，您的账号因涉嫌违反赏学吧购买须知被冻结。您可在“赏学吧”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。
微信搜一搜
赏学吧
点击打开微信