[问答题] 注意：下面出现的“考生文件夹”均为C：wexam25160002。 (1) 在名称为Form1的窗体上画一个名称为Label1，标题为“添加项目：”的标签；画一个名称为 Text1的文本框，没有初始内容；画一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项目 (不少于3个，内容任意)；再画两个命令按钮，名称分别为Command1和Command2，标题分别为“添加”和“统计”。在运行时，向Text1中输入字符，单击“添加”按钮后，则Text1中的内容作为一个列表项被添加到组合框的列

在窗体上建立好控件后，先设置控件属性，再编写事件过程。命令按钮和标签的标题在属性窗口的Caption属性设置。要使Text1的文本框没有初始内容，就在属性窗口中的Text属性设为空。要在下拉式组合框中输入内容，通过下拉式组合框在属性窗口的List属性设置。AddItem方法用来项组合框中添加一个表项，其给是为：组合框.Additem列表项[索引]ListCount属性返回组合框中列表项的综合。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及属性设置见表23-3。表23-3控　件属　性设　置　值　标签　Caption　添加项目：　文本框　Text　下拉式组合框　List　中国　美国　英国　按钮　Caption　添加　按钮　Caption　统计第二步：编写程序代码。参考代码：OptionExplicitPrivateSubCommand1_Click()Combo1.AddltemText1EndSubPrivateSubCommand2_Click()Me.PrintCombo1.ListCountEndSub第三步：调试并运行程序。第四步：按题目要求存盘。(2)首先要确定移动的位数，移动的位数是通过单选框来选择的，移动的值是由单选框的Caption属性确定的，然后要确定循环的次数，循环的次数是由输入字母的个数确定的。对字符串，需要对字符进行逐个处理。使用Mid函数取出字符串中的字符，利用Ase函数返回字符的代码，利用String函数将字符代码转换成字符。Mid函数的格式为：Mid(字符串，p，n)Mid函数从第p个字符开始，向后截取n个字符，p和n都是算术表达式。Mid函数的第三个变量可以省略，这样将第p个字符开始先后截取到字符串的结尾。解题步骤：第一步：分析题目提供的代码。PrivateSubCommand1_Click()DimnAsInteger,kAsInteger,mAsIntegerDimcAsString,aAsStringFork=0To2IfOp1(k).ValueThen’n=Val(Op1(k).)EndIfNextkm=Len(Text1.Text)a=""’Fork=1To’c=Mid$(Text1.Text,,1)c=String(1,Asc(c)+n)Ifc＞"z"Orc＞"Z"Andc＜"a"Then’c=String(1,)EndIfa=a+cNextkText2.Text=aEndSub第二步：修改程序代码。参考代码：PrivateSubCommand1_Click()DimnAsInteger,kAsInteger,mAsIntegerDimcAsString,aAsStringFork=0To2IfOp1(k).ValueThenn=Val(Op1(k).Caption)EndIfNextkm=Len(Text1.Text)a=""Fork=1Tomc=Mid$(Text1.Text,k,1)c=String(1,Asc(c)+n)Ifc＞"z"Orc＞"Z"Andc＜"a"Thenc=String(i,Asc(c)-26)EndIfa=a+cNextkText2.Text=aEndSub第三步：调试并运行程序。第四步：按题目要求存盘。