2. 计算机
  3. (1)在窗体上绘制一个列表框，名称为Listl；一个文本框，名称为Textl；一个命令按钮，名称为C1，标题为“复制”。要求程序运行后，在列表框中自动建立4个列表项，分别为“Iteml”、“Item2”、“Item3”和“Item4”。如果选择列表框中的一

(1)在窗体上绘制一个列表框，名称为Listl；一个文本框，名称为Textl；一个命令按钮，名称为C1，标题为“复制”。要求程序运行后，在列表框中自动建立4个列表项，分别为“Iteml”、“Item2”、“Item3”和“Item4”。如果选择列表框中的一

admin2009-08-26  59
问题 (1)在窗体上绘制一个列表框，名称为Listl；一个文本框，名称为Textl；一个命令按钮，名称为C1，标题为“复制”。要求程序运行后，在列表框中自动建立4个列表项，分别为“Iteml”、“Item2”、“Item3”和“Item4”。如果选择列表框中的一项，单击“复制”按钮，就可以把该项复制到文本框中，如图22—3所示。
    注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．vbp。
    (2)在考生文件夹中有一个工程文件sj4．vbp(相应的窗体文件名为sj4．frm)。在名为Forlml的窗体上有4个文本框，初始内容为空；1个命令按钮，标题为“按降序排列”。其功能是通过调用过程Sort将数组按降序排序。程序运行后，在4个文本框中各输入一个整数，然后单击命令按钮，即可使数组按降序排序，并在文本框中显示出来，如图22—4所示。
    本程序不完整，请补充完整，并能正确运行。

    注意：去掉程序中的注释符“’”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
选项
答案(1)本题考查的是列表框控件List的使用。向列表框中添加项目可以用AddItem方法，也可以在属性窗口中进行。但题目中要求是程序运行后自动添加，所以利用代码实现。 ①首先按要求新建工程文件sj3．vbp及其窗体文件sj3．frm。 ②在窗体上建立控件并设置控件属性。程序中用到的控件及属性设置见下表。 [*] ③打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下： Option Explicit Private Sub C1 Click() Dim i As Integer FOr i=0 To Listl．ListCount-1 If Listl．Selected(i)=True Then Textl．Text=Listl．List(i) End If Next i End Sub Private Sub Form Load() Listl．AddItem"Iteml" Listl．Addltem"Item2" Listl．AddItem"Item3" Listl．Addltem"Item4" End Sub ④调试并运行。 ⑤按题目要求存盘。 (2)①打开题目所给工程文件。 ②将注释语句改为： Start=LBound(a) Finish=UBound(a) For i=4 To 2Step-1 For i=1 To 3 If a(j)
解析
转载请注明原文地址:https://kaotiyun.com/show/rc1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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