【正确答案】正确答案：第1小题 【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“'”，将问号“?”改为正确的内容。 参考代码： n=Len(Text1．Text) b=Asc(Mid(s，i，1)) Select Ca se b For i=0 To 2 x(i) =a(i) 步骤2：按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，通过Listl列表框的List属性添加四个项目：文本框、标签命令按钮、单选按钮。 步骤2：在代码编辑窗口，去掉程序中的注释符“'”，将问号“?”改为正确的内容。 参考代码： For i=0 To La．Li stCount一1 Lb．AddItem La．Li st(i) Next La．Clear 步骤3：按要求将文件保存至考生文件夹中。