姓名：
如果需要查看开发工具帮助文件，请询问

第一部分：请写出下面所要的SQL语句（数据库为SQLServer）

1． 创建一个数据库名称为 TestDataBase。


2． 创建一个如下表：表名：TestTable
字段1，名称： A ，类型：整数
字段2，名称：B，类型：可变长字符串，长度 20



3． 往表TestTable中插入一条记录：A = 10， B = ‘数据库应用’。


4． 查询表TestTable，返回所有记录。


5．返回表中的记录总数。


6．查询表TestTable，返回字段A = 10的记录。


7．以字段A的内容分组，统计表的各个分组中记录的个数。


8．清空表TestTable中的数据。


9．删除数据库中的表TestTable。


第二部分：算法

已知TStrings中存储有若干个字符串，这些字符串已经按照非递减次序排列，这些字符串有重复，请用写一算法删除其中的重复字符串，得到非重复的字符串。（可以使用Delphi或者VB或者C#）
定义的函数头为：
Delphi：Procedure DeleteDupString(Strings: TStrings);
VB：public sub DeleteDupString(ref Strings as Collection);
C#：public void DeleteDupString(ref ArrayList Strings);









已知非空线性链表的链结点的构造为 data | link，第一个链结点的指针为list，下面的算法在链表的第i个链结点(设i>0)前插入一个数据信息为item的新结点。请在算法的空白处填入适当内容，使之能够正常工作。
procedure INSERT (list,i,item)
if (i=1) then
[ call GETNODE (p) // 申请一个新的链结点 //
data (p) ←item
link (p) ←list
　 ________________ // 将新结点插在第1个链结点前 //
else
[ q←list
for j←1 to___________do
r←q
q←link (q)
if__________then
[call ERROR (""i"超过链表的长度!")
return ]
end // r与q分别指向第i-1个与第i个链结点 //
call GETNODE (p) // 申请一个新的链结点空间 //
data (p) ←item
link (p) ←q
__________________] // 将新结点插在第i个结点前 //
end