题目内容（请给出正确答案）

[多选题]

“十一五”期间，我国节水型社会能力建设安排的项目包括()。

A.城市再生水利用

B.省界断面计量监测

C.水资源管理信息系统

D.城市供水管网改造

E.节水执法监督能力

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装上学吧APP，拍照搜题省时又省心！

更多““十一五”期间，我国节水型社会能力建设安排的项目包括（)。A…”相关的问题

第1题

设在工程中有一个标准模块，其中定义了如下记录类型：Type Books Name As String （10 Te1Num As

设在工程中有一个标准模块，其中定义了如下记录类型：Type Books Name As String (10 Te1Num As String * 20End Type在窗体上添加一个名为Command1的命名按钮。要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。请在横线中填入适当的内容，将程序补充完整。Private Sub Command1_Click() Dim B As____ Open "c：\person.txt"For Output As #1 B.Name=InputBox("输入姓名") B.Te1Num=InputBox("输入学号") Write#1,B.Name,B.Te1Num Close #1End Sub

点击查看答案

第2题

假定在工程文件中有一个标准模块，其中定义了如下记录类型：Type Books Name As String*10 TelNuin

假定在工程文件中有一个标准模块，其中定义了如下记录类型：Type Books

Name As String*10

TelNuin As String*20

End Type

要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。

Private Sub Command1_Clickk()

DimB As Books

open"c:\person.txt"For output As 1

B.Name=InputBox("请输入姓名")

B.TelNum=InputBox("请输入电话号码")

write 1，______

close 1

End Sub

点击查看答案

第3题

假定在工程文件中有一个标准模块，其中定义了如下记录类型Type BooksNalTle As String*10TelNum A

假定在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books NalTle As String*10 TelNum As String*20 End Type 要求当执行事件过程ComlBandl_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是()。

A．Ptivate Sub Commandl_Click() DimB As Books Open"c:\Person.txt"For Output As#1

B．Name=InputBox(“输入姓名”)

C．Private Sub Conullandl_CHCk() DimBAs Books Open"c:\Person.txt"For Ouputut As#1 Name=hputBox(“输入姓名”) Temum=InputBox(“输入电话号码”) Whte#1，B Close#1 End Sub D.Privam Sub Commnandl_Click() DimBAsBook Open"C:\Person.tx

点击查看答案

第4题

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

设在工程中有一个标准模块，其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是 ______。

A．Private Sub Command1_Click() Dim B As Books Open"c:\Person.txt"For Output As #1 B．Name=InputBox(“输入姓名”) B．TelNum=InputBox(“输入电话号码”) Write#1，B. Name，B．TelNum Close #1 End Sub

B．Private Sub Command1_Click() Dim B As Books Open"c:\Person.txt"For lnput As #1 B．Name=InputBox(“输入姓名”) B．TelNum=InputBox(“输入电话号码”) Print#1，B.Name，B．TeINum Close #1 End Sub

C．Private Sub Command1_Click() Dim B As Books Open"c:\Person.txt"For Output As #1 B．Name=InputBox(“输入姓名”) B．TelNum=InputBox(“输入电话号码”) Write #1，B Close #1 End Sub

D．Private Sub Command1_Click() Dim B As Books Open"c:\Person.txt"For Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print #1，Name，TelNum Close #1 End Sub

点击查看答案

第5题

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

设在工程中有一个标准模块，其中定义了如下记录类型 Type Books Name As String* 10 TelNum As String * 20 End Type 在窗体上画一个名为 Command1的命令按钮，要求当执行事件过程Command1 Click时, 在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是 ______。

A．Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt" For Output As #1 B.Name = InputBox("输入姓名") B.TelNum = InputBox("输入电话号码") Write #1, B.Name, B.TelNum

B．Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt, For Input As # 1 B.Name = lnputBox("输入姓名") B.TelNum = InputBox("输入电话号码") Print #1, B.Name, B.TelNttm

C．Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt" For Output As #1 B.Name = InputBox("输入姓名") B.TelNum = InputBox("输入电话号码") Write # 1, B Close #

D．Private Sub Command1_Click() Dim B As Books Open"c:\Person.txt" For Input As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1，Name，TelNum Close #1 End Sub

点击查看答案

第6题

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

设在工程中有一个标准模块，其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时, 在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。

A．Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt" For Output As #1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Write #1,B.Name,B.TelNum Close #1 End Sub

B．Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt" For Input As #1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Print #1, B.Name, B.TelNum Close #1 End Sub

C．Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt" For Output As #1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Write #1, B Close #1 End Sub

D．Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt" For Input As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, Name, TelNum Close #1 End Sub

点击查看答案

第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 BooksName As String *10TelNum As S

设在工程文件中有—个标准模块，其中定义了如下记录类型：Type Books Name As String *10 TelNum As String*20End Type在窗体上画—个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Petson.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是 ______。

A．Private Sub Command1_ Click() Dim B As Books Open "Person.txt" For Output As #1 B. Name=InputBox(“输入姓名”) B. TelNum=InputBox(“输入电话号码”) Write #1, B. Name, B. TelNum Close #1End Sub

B．Private Sub Command1_ Click() Dim B As Books Open "Person.txt" For Input As #1 B. Name=InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”). Print #1, B. Name, B.TelNum Close #1End Sub

C．Private Sub Command1_Click() Dim B As Books Open "Person.txt" For Output As #1 B.Name= InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”) Write #1，B Close #1End Sub

D．Private Sub Command1_ Click() Open "Person. txt" For Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print #1, Name, TelNum Close #1End Sub

点击查看答案

第9题

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

C．Private Sub Command1_Click() Dim B As Books Open "Person.txt" For Output As #1 B.Name= InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”) Write #1，B Close #1End Sub

D．Private Sub Command1_ Click() Open "Person. txt" For Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print #1, Name, TelNum Close #1End Sub

点击查看答案

第10题

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

设在工程中有一个标准模块，其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件 Person.txt中写入一条记录。下列能够完成该操作的事件过程是

A．Private Sub Command1_Click() Dim B As Books Open”c：\PerSon．txt"For Output As #1B.Name=InpuB。x(“输入姓名”)B.TelNuln=InputBox(“输入电话号码”) Wdte#1．B.Name，B.TelNum Close#1 End Sub

B．PIivate Sub Command1_C1ick() Dim B As BOOks OPen”c：\Person．txt"FOr lnput As #1 B.Name：InputBox(“输人姓名”) B.TelNum=InputBox(“输入电话号码”) Print#1，B.Name，B.TelNum C1ose#1 End Sub

C．Private Sub Command1_Chck() Dim B As Books Open”c：\Person．ht”For Output As#1 B.Name=InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”) Write#1，B Close#1 End Sub

D．Pnvate Sub Command1_Click() Open”c：\Person.txt"For lnput As #1 Name=InputBox(“输入姓名”) TalNum=InputBox(“输入电话号码”) Print，Name，TelNum Close#1 End Sub

点击查看答案