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

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

admin2016-09-06  55
问题 (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 Integer，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＝－l 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．Text＝"" Randomi ze 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 Integer，m As Integer，index As Integer Dim t As Integer Dim f As Integer 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 If Next i t＝Data(f) Data(f)＝Data(index) Data(index)＝t End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/DZLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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