1、打开工程文件st1.vbp，在窗体上添加一个名称Shape1的形状控件，添加一个名称为L1的列表框，并在属性窗口中设置列表项的值为1、2、3、4、5。将窗体的标题设为\图形控件\。单击列表框中的某一项，则按照所选的值，改变形状控件的形状。例如，选择3，则形状控件被设为圆形，如图所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。按照原名保存文件，不得重命名。Private Sub L1_Click()
Shape 1.shape=List1.Text
2、打开工程文件st2.vbp，在窗体上添加一个名称为HS1的水平滚动条，其刻度值范围为1 100；添加一个命令按钮，名称为C1，标题为\移动滚动框\。请编写适当的事件过程，使得在程序运行时，每单击命令按钮一次(假定单击次数不多于10次)，滚动框向右移动10个刻度。程序运行时的窗体如图所示。要求程序中不得使用变量，事件过程中只能写一条语句。按照原名保存文件，不得重命名。
3、打开工程文件st3.vbp，在窗体上添加两个名称分别为Text1和Text2的文本框，初始内容均为空；再建立一个下拉菜单，菜单标题为\操作\，名称为M1，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为\复制\、\清除\，请编写适当的事件过程，使得在程序运行时，单击\复制\选项菜单，则把Text1中的内容复制到Text2中，单击\清除\选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。运行时的窗体如图所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。按照原名保存文件，不得重命名。
4、打开工程文件st4.vbp，在窗体上画两个名称为Command1和 Command2、标题分别为\打开\及\保存\的命令按钮，和一个名称为CD1的通用对话框，如图所示。请在属性窗口中设置CD1
的属性，使得打开通用对话框时，其初始路径是C:\\。再编写适当的事件过程，使得运行程序并分别单击\打开\或\保存\按钮时，相应地出现\打开\或\保存\对话框。要求程序中不得使用变量，每个事件过程只能写一句语句。按照原名保存文件，不得重命名。
5、打开工程文件st5.vbp，在Text1中输入任意一个数，单击“计算”按钮，计算出大于该数的第一个素数，并显示在Text2中；单击“清除”按钮，清除两个文本框内容并将焦点置于Text1中。运行界面如图所示。按照原名保存文件，不得重命名。 Private Sub Command1_Click() Dim a As Integer, flag As Boolean Dim i As Integer a = Text1.Text Do a=a+1
For i = 2 To Sqr(a)
If a Mod i=0 Then Exit For Next i
If i > Sqr(a) Then Flag = True Loop Until flag Text2.Text =a End Sub
Private Sub Command2_Click() Text1.Text=”” Text2.Text=”” Text1.SetFocus End Sub
6、打开工程文件st6.vbp，本程序的功能是随机产生20个0到1000的整数，将其放入一个数组中，然后输出这20个整数的平均值。程序运行后，单击命令按钮（名称为Command1，标题为“输出平均值”），即可求出其平均值，并显示在窗体上（如图所示）。这个程序不完整，请把它补充完整，并能正确运行。
7、打开工程文件st7.vbp，窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出0~1000范围内所有能被7整除或者能被5整除的整数的个数，并显示在文本框中。在窗体的代码窗口中，已经给出了部分程序，其中计算能被7整除或者能被5整除的整数的个数的操作在通过过程Fun中实现，请编写该过程的代码。
要求：请勿改动程序中的任何内容，只在Function Fun()和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件存盘。
8、在考生文件夹中有一个工程文件st8.vbp。窗体外观如图所示。运行程序，单击\读数据\按钮，读入到文件中的数据到字符串变量中并显示在Label2标签中。单击\排序\命令按钮时，对读入的数据从小到大进行排序，并将排序结果在窗体的Label4控件中显示。
要求：工程文件中已给出部分程序，\读数据\命令按钮的事件过程不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。请编写\排序\命令按钮的事件过程中的部分程序代码。
注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。程序调试通过后，两个命令按钮的事件过程必须至少各执行一次。 For j = i To 10 If a(i) >a(j) Then
9、打开演示文稿YSWG.PPTX，按照下列要求完成对此文稿的修饰并原名保存。
（1）在第一张幻灯片前插入一版式为\标题幻灯片\的新幻灯片，主标题输入\三手烟危害儿童健康\，并设置为\黑体\，63磅，红色(请用自定义选项卡的红色250、绿色0、蓝色0)，副标题输入\吸烟危害又有新发现\，并设置为\楷体\，33磅。
（2）在第三张幻灯片中插入形状为\渐变填充-黑色，轮廓-白色，外部阴影\的艺术字\保健新概念\，位置为水平：9厘米，度量依据：左上角，垂直：14厘米，度量依据：左上角。 （3）第四张幻灯片的版式改为\内容与标题\，文本设置为21磅字，将第二张幻灯片的图片移入剪贴画区域。
（4）第一张幻灯片添加备注\三手烟包含致癌物质\。 （5）删除第二张幻灯片。
（6）将第三张幻灯片移到第二张幻灯片之前。
（7）第一张幻灯片的背景预设颜色设置为\雨后初晴\预设颜色、\线性对角-右上到左下\底纹样式。
（8）全部幻灯片切换效果为\淡出\。