【正确答案】正确答案:(1)步骤1:打开考生文件夹下的工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符“'”,将问号“?”改为正确的内容。参考代码: If optionl.Value=True Then If a(i)>=x Then x=a(i) End If Else If a(i)
【答案解析】解析:(1)根据题目要求,在“查找”按钮的单击事件过程中,预设两个变量x和y,分别是数组的最大值和最小值;接下来判断单选按钮数组中哪个单选按钮被选中,如果选中了最大值按钮,则用循环依次比较a(i)和x的值,如果a(i)>x则将a(i)的值放入x。以此类推选中最小值按钮时的处理过程与之类似。 (2)实现本题从列表框Ifistl到List2的移出功能,其实就是利用列表框的Addltem方法和Removeltem方法添加或删除列表框中的项目。由题中源代码可知,当双击列表框Ifistl中的某项时,则调用Moveltem过程(参数应为控件List1和List2)将列表框L,istl中当前项的内容(索引号为ListIndex)用Addltem方法添加到列表框List2中,同时用Removeltem方法从列表框List1中删除该项。当单击“>>“按钮时,则调用MoveAll过程通过For循环(循环变量终值为List1.ListCount-1)将列表框List1中的各项逐一添加到列表框List2中。