2. 计算机
  3. (1)考生文件夹中有工程文件sjt3．vbp。窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够

(1)考生文件夹中有工程文件sjt3．vbp。窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够

admin2016-08-24  81
问题 (1)考生文件夹中有工程文件sjt3．vbp。窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框；当双击某个列表项时，则从列表框中删除该列表项；当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。运行窗体如图所示。
    要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
    注意：考生不得修改窗体文件中已经存在的控件和程序。最后程序按原文件名存盘。

    (2)考生文件夹中有一个工程文件sjt4．vbp。窗体上有两个文本框和一个标题为“运算”的命令按钮。程序的功能是，当程序运行时，单击“运算”按钮，能够产生10个1～100之间的随机整数，并显示在上面一个文本框中，然后，程序从中找出一个最大值，并将最大值与第1个数互换位置，最后把结果显示在下面一个文本框中。下图为程序某次运行的结果。程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
    注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。
选项
答案(1)步骤1：打开本题项目工程。 步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。 参考答案 private Sub List1_Click () Text1．Text=List1．Text End Sub Private Sub List1 DblClick() List1．RemoveItem List1．ListIndex Text1．Text="" End Sub PriVate Sub Text1_KeyDown(KeyCode As Inte cter，Shift As Integer) If KeyCode=13 And Text1．Text<>""Then If List1．ListIndex=一1 Then List1．AddItem Text1．Text Else List1．List(List1．ListIndex)= Text1．Text List1．ListIndex= 一1 End If Text1．Text="" End If End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘 (2)步骤1：打开本题项目工程。 步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) PriVate Sub Command1_Click() Dim a(10)As Integer Dim i As Integer Text1．Taxt="" Randomsize For i =1 To 10 a(i)=Int(Rnd*100+1) Text1．Text=Text1．Text&a(i)&"" Next i Call Exchange(a) Text2．Text="" For i=1 To 10 Text2．Text=Text2．Text&a(i)&"" Next i End Sub PriVate Sub Exchange(ByRef Data()As Integer) Dim i As Ingeger，m As Integer，index As Integer Dim t As Inteqer Dim f As Inteqer f=LBound(Data) index=LBound(Data) m=Data(index)． For i=f+1 To UBound(Data) If Data(i) >m Then m=Data(i) index=i End It Next i t=Data(f) Data(f) =Data(index) Data(index)=t End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析 (1)本题主要考查对列表框控件的使用，包括向列表框中增加项目，从列表框中删除项目，修改列表框中选中项目的值。
  第一个空使用列表框的Text属性，该属性的值为最后一次选中的表项的文本。
    第二个空使用列表框的List1ndex属性，该属性的值是已选中的表项的位置。
    第三个空判断Text1文本框中的内容是否为空。
    第四个空表示当列表框中无选中项目时，将Text1中的内容添加到列表框的最后。
    第五个空表示将。Text1文本框中的文本替换为列表框中选中的项目，使用列表框的List和ListIndex属性。
    (2)本题主要考核对数组中元素的基本操作，利用循环语句找出数组中的最大值，并将保存最大值和其所对应的下标，然后将最大值与数组中的第一个元素进行互换操作。
转载请注明原文地址:https://kaotiyun.com/show/1YLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)