[多项选择题] 注意：下面出现的“考生文件夹”均为c：wexam25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下：在名称为Form1的窗体上有三个Label控件和两个名称分别为COMSTART、 COMEXIT，标题分别为“开始”和“退出”的命令按钮。编写函数Item(A，N)，其功能是由数字A组成的不多于N位数的整数，

参考答案： 控件是否可用由其Enable属性设置，当Enable为True时控件可用，当Enable为False时控件不可用(灰色)：命令按钮的标题由Caption属性设置：Str$函数将数字转换为字符串。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性值见表A0-D。[*]程序提供的代码：OptionExplicitPrivateSubCOMEXIT_Click()EndEndSubPrivateSubCOMSTART_Click()DimAAsInteger,NAsInteger,JAsInteger,SumAsSingleA=H:N=DForJ=NToAStep-AIfJ=NThenSum=Item(A,J)ElseSum=Sum-Item(A,J)EndIfNextPrint"Sum=";SumOpenApp.Path&""&"sjtE.dat"ForOutputAs#APrint#A,SumClose#A’.Caption="完成"’COMSTART.=FalseEndSubFunctionItem(A,k)DimPAsString,QAsString,SAsSingleDimiAsInteger,HAsSinglep=""Fori=ATokQ$=Str$(A)p$=p$+Q$Nexti’=Val(P$)’H=+SItem=HEndFunction参考代码:OptionExplicitPrivateSubCOMEXIT_Click()EndEndSubPrivateSubCOMSTART_Click()DimAAsInteger,NAsInteger,JAsInteger,SumAsSingleA=H:N=DForJ=NToAStep-AIfJ=NThenSum=Item(A,J)ElseSum=Sum-Item(A,J)EndIfNextPrint"Sum=";SumOpenApp.Path&""&"sjtE.dat"ForOutputAs#APrint#A,SumClose#ACOMSTART.Caption="完成"COMSTART.Enabled=FalseEndSubFunctionItem(A,k)DimPAsString,QAsString,SAsSingleDimiAsInteger,HAsSinglep=""Fori=ATokQ$=Str$(A)P$=P$+Q$NextiS=Val(P$)H=H+SItem=HEndFunction第二步：调试并运行程序。第三步：按题目要求存盘。