菜单编辑器中至少要填名称和标题这两个框,才能真确完成菜单栏的设计（）

在菜单编辑器中建立一个菜单，名称为mymenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。 Form1.【 】mymenu

对工作表内容进行编辑操作时，第一步应当是()。

A.使用“编辑”菜单中的“填充”

B.使用“插入”菜单中的“单元格”

C.使用“格式”菜单中的“单元格”

D.选取当前单元格或一个单元区域

要打开“序列”对话框，应该在()菜单中选择“填充”/“序列”命令。

A、插入

B、工具

C、数据

D、编辑

在EXCEL中，自定义序列可以用()来建立。

A."编辑"菜单中的"填充"命令

B."工具"菜单中的"选项"命令

C."格式"菜单中的"自动套用格式"命令

D."数据"菜单中的"排序"命令

在Excel中，查看自动填充的中文序列可以通过（ ）实现。

A.“编辑”菜单

B.“视图”菜单

C.“插入”菜单

D.“工具”菜单

阅读以下说明及Visual Basic代码，将应填入(n)处的字句写在对应栏内。

[说明]

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

用户打开磁盘上的某个文件后，可以直接对文本进行编辑，也可以利用界面提供的按钮完成相应操作。主要操作介绍如下：

(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

Excel中自定义序列不能用（ ）来建立。

A.【编辑】菜单中的【填充】命令

B.【格式】菜单中的【自动套用格式】命令

C.【工具】菜单中的【选项】命令

D.【数据】菜单中的【排序】命令

在同一工作簿中有12个工作表，要在每个工作表中建立格式和标题完全相同的考勤记录表，但不填写数据，应怎样实现?

A先在1个工作表制作考勤记录表，再复制到其它表，并利用选择性粘贴粘贴列宽

B先在1个工作表制作考勤记录表，在其它表的对应单元格建立跨表引用，使其等于第一个表的对应单元格

C在工作表标签上单击右键，选择“选定全部工作表”，再在当前表中制作考勤记录表

D先在1个工作表制作考勤记录表，再在工作表标签上单击右键，选择“选定全部工作表”，选中考勤表区域，从“编辑”菜单选择“填充”→“至同组工作表”

阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。

【应用说明】

某应用程序可选择打开用户指定的文本文件，将其内容显示在指定的文本框内供用户编辑，并将编辑后的结果保存在用户指定的文件中。运行时的窗口如图6-1所示，其中有6个标签、一个驱动器列表框、一个目录列表框、一个文件列表框、一个文件类型组合框、一个文件编辑文本框、一个文件名文本框以及两个命令按钮。

该程序的开发要求如下。

(1)通过驱动器列表框(Drivel)、目录列表框(Dirl)和文件列表框(Filel)，选择文件。

(2)文件类型组合框(Cmb_type)设置为下拉式列表框，其中有三个供选项，分别为“所有文件(*．*)”、“文本文件(*.txt)”和“可执行文件(*．exe)”。在文件列表框中列出的文件类型会自动与文件类型组合框中选择的文件类型相匹配。

(3)在文件列表框中单击一个文件名时，该文件名会显示在文件名文本框 (Txt filename)中。

(4)在文件列表框中双击一个文件名时，若是文本文件，则在文件编辑文本框 (Txt file)中显示该文件的内容并可进行编辑；若不是文本文件，则弹出一个对话框，提示“请选择文本文件!”。

(5)对于编辑后的文本文件，可在文件名文本框中输入新的文件名，并单击命令按钮(Cmd save)进行保存。

【Visual Basic程序代码】

Private Sub Form_Load()

Cmb_type．Addltem "所有文件(*.*)"

Cmb_type．Addltem "文本文件(*.txt)"

Cmb_type．Addltem "可执行文件(*.exe)"

Cmb_type．ListIndex＝0

Filel.Pattern＝"*．*"： Txt_filename.Text＝" "

Txt_file.Text＝ " "

End Sub

Private Sub Dirl Change()

Filel．Path＝(1)

End Sub

Private Sub Drivel Change()

Dirl．Path＝Drivel．Drive

End Sub

Private Sub Cmb_type_click()

Select Case Cmb_type.(2)

Case 0

Filel．Pattern＝"*.*"

Case 1

Filel.Pattern＝"*.txt"

Case 2

Filel.Pattern＝"*.exe"

End Select

End Sub

Private Sub Cmd_save_Click()

usrFile＝GetFileName() '函数GetFileName获得要保存的文件名

Open usrFile For Output As 1 '定义usrFile为1号输出文件

Print 1，Txt file．Text '输出到1号文件

Close 1

End Sub

Private Sub Filel_DblClick()

If right(Filel.FileName，3)＜＞(3)Then

MsgBox "请选择文本文件!"

Exit Sub

End If

usrFile＝GetFileName() '函数GetFileName获得要打开的文件名

Open usrFile For Input As 1 '定义usrFile为1号输入文件

Txt_file．Text＝" "

DO While (4) EOF(1)

Line Input l，fContext '从1号文件读入一行

Txt_file．Text；Txt file．Text +(5)+vbCrLf

Loop

Close 1

End Sub

'其他代码略

此题为判断题(对，错)。