在窗体上画1个名为Textl的文本框和1个名为Labell的标签，再画4个名为Opl 的单选按钮控件数组，其Index属性按季度顺序为0～3，如图1所示。在文件Sales．txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。如图2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句（　　）。

Option Base 1

Dim sales(12)As Long

Private Sub Fo rm Load（　　）

Open"C：＼sales．txt"For Input As#1

For k=1 To 12

 Input#1，sales(k)

Nextk

Close#1

End Sub

Private Sub (Index As Integer)

Dim sum As Long，k As Integer，month As Integer

 sum=0

 month=In&x*

For k=1 To 3

   month=month+1

   sum=sum+sales(month)

Next k

Label1．Caption=________．Caption＆"销售总额："

Text1=Sum

End Sub

在名称为Form1的窗体上画一个文本框，名称为Text1，MultiLine属性为True，ScrollBars 属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“计算保存”，如图3-6所示。要求程序运行后，如果单击“读入数据”按钮，则读入in．txt文件中的100个整数，放入一个数组中(数组下界为1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算数组中大于或等于400并且小于800的所有数之和，并将结果在文本框Text1中显示出来，同时把结果存入考生文件夹的result．txt文件中(在prog．bas中的putdata过程可以把结果存入

result．txt文件)。

注意：文件必须存放在考生文件夹下，窗体文件名为si5．frm，工程文件名为si5．vbp，计算结果存入result．txt文件中，否则没有成绩。

在考生文件夹中有文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Check1和Check2，标题分别为“Item1”和“Item2”；一个按钮，标题为“选择”。要求程序运行后，如果Check1和Check2都不选，单击窗体后，则在文本框中什么都不显示；如果只选中Checkl，单击按钮，则在文本框中显示“选中Item1”；如果只选中Check2，然后单击按钮，则在文本框中显示“选中Item2”；如果同时选中Check1和Check2，单击窗体，则在文本框中显示“不能全选”。程序运行时窗体显示如图1—3所示。

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

在窗体上建立一个名称为List1的列表框和一个名为Text1的文本框。编写程序，实现列表框和文本框中项目的交换。要求List1中的项目按字母升序排列，Text1中的项目按照加人的先后顺序排列。当双击List1某个项目时，该项目从列表框中消失，并出现在Text1中。程序运行时的窗体界面如图2-3所示。

注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为sj3．vbp与sj3．frm。

在窗体上添加通用对话框控件并编写适当的程序代码，要求程序运行时，双击窗口，可以弹出“颜色”对话框。程序运行时的窗体界面如图2—1所示。

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

在窗体Form1上画一个命令按钮，名称为Command1，标题为“打开文件”，在窗体上添加适当的控件爿编写适当的程序代码，要求程序运行时，单击“打开文件”命令按钮，可以弹出“打开文件”对话框。程序运行时的窗体界面如图5-1所示。

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

定义无符号整数类为UInt，下面可以作为类UInt实例化值的是（　　）。

为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是（　　）。

在窗体上画1个名称为Command1的命令按钮，然后编写下列程序：

Private Sub Command1_Click（　　）

Print fun("ABCDEFG")

End Sub

Function fun(st As String)As string

stlen=Len(st)

temp=""

For k=1 To stlen／2

temp=temp+Mid(st，k，1)+Mid(st，stlen-k+1，1)

Next k

fun=temp

End Function

程序运行时，单击命令按钮，则在窗体上显示的是（　　）。

数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是（　　）。

有两个关系R，S如下：

由关系R通过运算得到关系S，则所使用的运算为（　）。