设有下列通用过程：

Public Function Fun(xStr As String)As String

Dim tStr As String，strL As Integer

tStr=""

strL=Len(xStr)

i=strL／2

DO While i<=StrL

tStr=tStr＆Mid(xStr，i+1，1)

i=i+1

Loop

Fun=tStr＆tStr

End Function

在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写下列的事件过程：

Private Sub Commandl Click（　）

Dim S1 As String

S1="ABCDEF"

Text1．Text=LCase(Fun(S1))

End Sub

程序运行后，单击命令按钮，文本框中显示的是（　）。

在考生文件夹下有一个工程文件sj5．vbp，相应的窗体文件为sj5．frm，此外在考生文件夹下还有一个名为in5．txt的文本文件，其内容如下：

10，11，12，13，14．15，16，17，18，19，20，21，22，23，24，25，26，27，28，29，30，31，32，33。34

程序运行后，双击窗体，将把文件in5．txt中的数据输入到二维数组Arr中，在窗体上按5行×5列的矩阵形式显示出来，并在其下显示该矩阵左上一右下对角线的右上部分。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并使之能正确运行。程序运行效果如图2—5所示。

要求：去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

在考生文件夹中有工程文件sj4．vbp及其窗体文件sj4．frm，该程序是不完整的。

在窗体上有四个复选框，名称分别为Check1、Check2、Check3和Check4，标题分别为“足球”、“篮球”、“羽毛球”和“排球”。一个标签，名称为Label1，还有一个命令按钮，名称为Command1，标题为“选择结果”。要求程序运行后，如果选中某个复选框，当单击“选择结果”命令按钮时，则显示相应的信息。例如，如果选中“足球”和“羽毛球”复选框，单击“选择结果”命令按钮后，在标签上显示“我喜欢的运动是足球羽毛球”，如图8—4所示。

注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

在名称为Forml的窗体上建立两个主菜单，其标题分别为“文件”和“编辑”，名称分别为vbFile和VbEdit，在“文件”菜单下有三个子菜单项，标题分别为“打开”、“保存”和“关闭”，名称分别为vbOpen、vbSave和vbClose。要求程序运行后，如果选中“文件”下的某个菜单项，则通过MsgBox对话框显示该菜单项的标题，如图6-3所示。

注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sja．vbp。

将E—R图转换为关系模式时，实体和联系都可以表示为（　）。

在窗体上设置一个文本框，名称为Text1，再添加一个命令按钮，名称为Com mand1，标题为“当前时间／日期切换”；每次单击按钮时，Textl就显示出当前时间，再单击一次，Text1就显示当前日期。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图1—2所示。

注意：要求考生在编写完程序后，把工程文件与窗体文件保存到考生文件夹下，文件名分别为sj2．vbp与sj2．frm。

在窗体Form1上画一个列表框，名称为List1，有“Item1”、“Item2”、“Item3”和“Item4”4个表项。要求编写适当的程序代码，当双击列表中某一项时，弹出一个对话框提示“是否删除”。对话框中只有“是”与“否”两个选择按钮，单击按钮，则继续当前的操作。程序运行时的窗体界面如图5—2所示。

注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。

现有如下一段程序：

Option Base 1

Privalc Sub Command1 Click（　　）

 Dim a

下列可以打开随机文件的语句是（　　）。

有两个关系R和T如下：

则由关系R得到关系T的操作是（　　）。

下列关于线性链表的叙述中，正确的是（　　）。