在考生目录下有一个工程文件sjt3.vbp。窗体上有一个名称为List1的空列表框。程序运行时,单击Commandl按钮,则从键盘输入10个任意字符串,并按字典顺序添加到Listl中成为它的列表项。 给出的程序不完整。要求:去掉程序中的注释符,把程

admin2020-04-08  56

问题 在考生目录下有一个工程文件sjt3.vbp。窗体上有一个名称为List1的空列表框。程序运行时,单击Commandl按钮,则从键盘输入10个任意字符串,并按字典顺序添加到Listl中成为它的列表项。
    给出的程序不完整。要求:去掉程序中的注释符,把程序中的?改为正确的内容。
    注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

选项

答案【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释“′”,将问号改为正确的内容。 参考答案(划线部分是需要填入的内容) Private Sub Commandl_Click() Dim st$(10) For k=1 To 10 st(k)=InputBox(”请输入一个字符串”) Next k For i=l To 9 k=i For j=i+l To 10 If st(k)>st(j)Then k=1 End If Nextj List1.Addltem st(k) st(k)=st(j) Next i List1.AddItem st(10) End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析 题目要求按字典顺序将随机输入的10个任意字符串添加到Listl列表框中,使用List1的Addltem方法向列表框中插入列表项,若未指定索引值,则新插入的列表项排列在原有项目的下方,故本题中最先插入数组中最小的值。
转载请注明原文地址:https://kaotiyun.com/show/qNTp777K
0

最新回复(0)