要将数据库中的数据导入电子表格中，其操作步骤的顺序是()。(1)、在Excel窗口中，单击“数据”菜单“导入外部数据”子菜单下的“导入数据”命令(2)、在对话框架中选择要导入电子表格的数据库文件，然后单击“打开”按钮(3)、单击“确定”按钮，数据源中的数据将导入电子表格中(4)、单击“确定”按钮后，屏幕弹出的“导入数据”对话框A.(2)(1)(3)(4)B.(2)(1)(4)(3)C.(1)(2)(4)(3)D.(1)(2)(3)(4)

正确答案：A
本题考查考生对VisualFoxPro系统中创建数据库操作的掌握。在VisualFoxPro数据库系统中，用户可以通过三种方式来建立数据库：菜单方式、向导方式和命令方式。题目中给出的CREATE DATA命令的功能是创建一个数据库。答案A正是创建数据库的菜单操作方式的描述。

正确答案：C
解析：在命令窗口中执行CREATE命令可打开“创建”对话框。若要实现相同的功能，也可以单击“文件”菜单中的“新建”按钮，在“新建”对话框中选定“表”单选钮，然后单击“新建文件”按钮。

正确答案：A
解析：使用“打开”命令方式打开数据库。首先选择“文件”菜单的“打开”命令，然后在“打开”对话框中，从“文件类型”列表框中选择“数据库”，并在显示窗口中选择要打开的数据库名，单击【确定】按钮。

正确答案：A
解析：建立数据库的常用方法有以下3种：①在项目管理器中建立数据库在“数据”选项卡中选择“数据库”，然后单击“新建”按钮并选择“新建数据库”，通过“新建”对话框提示用户输入数据库的名称，即扩展名为．dbc的文件名。②通过“新建”对话框建立数据库选择“文件”菜单中的“新建”命令，然后在“新建”对话框中单击“数据库”单选按钮，再单击“新建文件”命令按钮。③使用命令交互建立数据库CREATE DATABASE[DatabaseName|?]

参考答案：B

正确答案：(1)Visual Basic集成环境中执行“文件”→“新建工程”命令选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件在窗体建立一个文本框Text1将其Text属性设为空。 (3)在工具箱中选择命令按钮控件在窗体上创建三个命令按钮名称分别为 Command1、Command2和Command3标题分别为“导入数据”、“计算”和“保存数据”。 (4)双击“导入数据”按钮弹出代码窗口在其中添加如下代码； Private Sub Command1_Click() Dim a As String Call FindData(a) Text1.Text=a End Sub Sub FindData(a As String) Open App.Path & "\"& "data.txt"For Input As #1 Do While Not EOF(1) Input #1a Loop Close #1 End Sub (5)双击“计算”按钮弹出代码窗口在其中添加如下代码： Private Sub Command2_Click() Sub sort(a()As Integer) Dim n As Integer For i=1 To 15 For j=1 To 15-i If (a(j)＞a(j+1))Then n=a(j) a(i)=a(i+1) a(j+1)=n End If Next i Next i End Sub (6)双击“保存数据”按钮弹出代码窗口在其中添加如下代码： Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(str As String) Open App．Path & "\" & "out.txt" For Output As #1 Print #1 a Close #1 End Sub (7)按F5键运行程序。如图29所示。 (8)执行“文件”→“保存工程”命令将工程文件命名为ylc.vbp窗体文件命名为 ylc.frm。
(1)Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件，在窗体建立一个文本框Text1，将其Text属性设为空。 (3)在工具箱中选择命令按钮控件，在窗体上创建三个命令按钮，名称分别为 Command1、Command2和Command3，标题分别为“导入数据”、“计算”和“保存数据”。 (4)双击“导入数据”按钮，弹出代码窗口，在其中添加如下代码； Private Sub Command1_Click() Dim a As String Call FindData(a) Text1.Text=a End Sub Sub FindData(a As String) Open App.Path & "\"& "data.txt"For Input As #1 Do While Not EOF(1) Input #1，a Loop Close #1 End Sub (5)双击“计算”按钮，弹出代码窗口，在其中添加如下代码： Private Sub Command2_Click() Sub sort(a()As Integer) Dim n As Integer For i=1 To 15 For j=1 To 15-i If (a(j)＞a(j+1))Then n=a(j) a(i)=a(i+1) a(j+1)=n End If Next i Next i End Sub (6)双击“保存数据”按钮，弹出代码窗口，在其中添加如下代码： Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(str As String) Open App．Path & "\" & "out.txt" For Output As #1 Print #1, a Close #1 End Sub (7)按F5键运行程序。如图29所示。 (8)执行“文件”→“保存工程”命令，将工程文件命名为ylc.vbp，窗体文件命名为 ylc.frm。 解析：(1)该题与上机模拟题十二在基本操作上类似，都考查了文件的读入操作并在文本框中输出；对顺序文件的读入和输出的操作等。(2)该题重点考查了利用冒泡算法对数组元素进行排序。

正确答案：(1)Visual Basic集成环境中执行“文件”→“新建工程”命令选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件在窗体建立一个文本框Text1将其Text属性设为空。 (3)在工具箱中选择命令按钮控件在窗体上创建三个命令按钮名称分别为Command1、 Command2和Command3标题分别为“导入数据”、“字母转换”和“保存数据”。 (4)双击“导入数据”按钮弹出代码窗口在其中添加如下代码： Private Sub Command1_Click() Dim a As String Call FindData(a) Text1.Text=a End Sub Sub FindData(a As String) Open App. Path & "\" & "data.txt" For Input As #1 Do While Not EOF(1) Input #1a Loop Close #1 End Sub (5)双击“字母转换”按钮弹出代码窗口在其中添加如下代码： Private Sub Command2_Click() Text1.Text=UCase(Text1.Text) End Sub (6)双击“保存数据”按钮弹出代码窗口在其中添加如下代码： Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(a As String) Open App.Path & "\" & "out. txt" For Output As #1 Print #1 a Close #1 End Sub (7)按F5键运行程序。如图28所示。 (8)执行“文件”→“保存工程”命令将工程文件命名为ylc.vbp窗体文件命名为 ylc.frm。
(1)Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件，在窗体建立一个文本框Text1，将其Text属性设为空。 (3)在工具箱中选择命令按钮控件在窗体上创建三个命令按钮，名称分别为Command1、 Command2和Command3，标题分别为“导入数据”、“字母转换”和“保存数据”。 (4)双击“导入数据”按钮，弹出代码窗口，在其中添加如下代码： Private Sub Command1_Click() Dim a As String Call FindData(a) Text1.Text=a End Sub Sub FindData(a As String) Open App. Path & "\" & "data.txt" For Input As #1 Do While Not EOF(1) Input #1，a Loop Close #1 End Sub (5)双击“字母转换”按钮弹出代码窗口，在其中添加如下代码： Private Sub Command2_Click() Text1.Text=UCase(Text1.Text) End Sub (6)双击“保存数据”按钮弹出代码窗口，在其中添加如下代码： Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(a As String) Open App.Path & "\" & "out. txt" For Output As #1 Print #1, a Close #1 End Sub (7)按F5键运行程序。如图28所示。 (8)执行“文件”→“保存工程”命令，将工程文件命名为ylc.vbp，窗体文件命名为 ylc.frm。 解析：(1)该题综合考查了多个知识点，重点考查了文件的读入操作并在文本框中输出；字符串转换函数UCase()，转换字符串的大小写；对顺序文件的读入和输出的操作等。(2)该题重点考查了命令按钮的单击事件与函数过程的调用，通过调用可以很方便地实现题中要求的各种功能。

正确答案：C

正确答案：A