搜题请搜索小程序“爱下问搜题”
问题 多项选择题

影响城市空间环境演进的主要因素有（）。

A．自然环境因素

B．个人行为因素

C．社会文化因素

D．经济与技术因素

E．政策制度因素

答案

参考答案：A, C, D, E

解析：

本题考核的是影响城市空间环境演进的主要因素。影响城市空间环境演进的主要因素有：自然环境因素；社会文化因素；经济与技术因素；政策制度因素。

问答题

[说明]
下图是一个简易文本编辑器程序的运行界面：


用户打开磁盘上的某个文件后，可以直接对文本进行编辑，也可以利用界面提供的按钮完成相应操作。主要操作介绍如下：
(1)打开文件：打开文件对话框，其中仅显示“*.txt”类型的文件。用户选中某一文件后，其内容将呈现于界面文本框内；
(2)查找：提示用户输入要查找的内容，将首次出现的查找内容以蓝色高亮标记；
(3)替换：若文本框中已选中某段文本，则提示用户输入要替换的内容，在文本框中完成替换。
在开发过程中，文本框名为Text1，“打开文件”、“保存文件”、“查找”、“替换”、“退出”按钮分别命名为Command1至Command5。
[Visual Basic代码]
Dim fileName As String
Dim fso As New (1) , ts As Object
’打开文本文件
Private Sub Command1_Click()
CommonDialog1.Filter = "*.txt"
CommonDialog1.ShowOpen
fileName = (2) ’保存所打开的文件名
Set fso=CreateObjeet("Scripting.FileSystemObject")
Set ts=fso.OpenTextFile(fileName, ForReading)
If Not ts.AtEndOfStream Then
Text1.Text = (3)
End If
ts. Close
End Sub
’保存文本文件
Private Sub Command2_Click()
Set ts = fso.OpenTextFile(fileName, ForWriting)
(4)
ts.Close
End Sub
’查找字符串
Private Sub Command3_Cliek()
Dim search As String, position As Integer
search = InputBox("输入要查找的字符串:")
position = InStr(Text1.Text, search) ’在文本中查找字符串
If position ＞0 Then ’若找到指定的字符串
Text1.SelStart = position - 1 ’设置选定文本的起始位置
Text1.SelLength = Len(search) ’设置选定文本的长度
Else
MsgBox "没有发现要查找的字符串"
End If
End Sub
’替换选中的字符串
Private Sub Command4_Click()
Dim object As String
If (5) ＞0 Then’若已经选中了要替换的文本
object = InputBox("输入要替换的字符串:")
Text1.SelText = object ’替换文本
Else
MsgBox "请先选中要替换的文本!"
End If
End Sub
’退出程序
Private Sub Command5_Click()
End
End Sub
查看答案
单项选择题

患者，女，59岁，因黄疸1月余入院，初步诊断阻塞性黄疸，下列哪项术前准备是错误的()

A．纠正水与电解质平衡的失调

B．应用25%葡萄糖液护肝

C．应用维生素K类药物

D．应用抗生素控制炎症

E．术前应洗肠
查看答案