2. 计算机
  3. 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上放置两个列表框，名称分别为Listl和Ljst2。在Listl中添加“Iteml”…“Itern6”，并设置MultiSelect属性为2(

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上放置两个列表框，名称分别为Listl和Ljst2。在Listl中添加“Iteml”…“Itern6”，并设置MultiSelect属性为2(

admin2010-07-13  15
问题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
  (1)在名称为Forml的窗体上放置两个列表框，名称分别为Listl和Ljst2。在Listl中添加“Iteml”…“Itern6”，并设置MultiSelect属性为2(要求在控件属性中设置实现)。再放置一个名称为Commandl、标题为“导出”的命令按钮。程序运行后，如果单击“导出”按钮，将Listl中选中的内容(至少三项)复制到List2中，并将对应的项从Listl中删除。如果选择的项数少于3项，用消息框提示“请选择至少3项”，如图63—1所示。
    注意：保存时必须存放在考生文件夹下，窗体文件名为sjl．frm，工程文件名为sjl．vbp。
    (2)在名称为Forml的窗体上放置一个名称为Textl的文本框。程序运行后，用户在文本框中输入的英文字母一律用小写显示。如图63—2所示。

    注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
选项
答案(1)向列表框中添加项目可以用AddItem方法添加，也可以在属性窗口中进行。列表框的Text属性为最后一次选中的 表项的文本。 根据题意，新建“标准EXE”工程，将两个列表框控件和一个命令按钮添加到窗体中，列表框的名称分别为Listl和 List2，在Listl中List属性中添加“Iteml”、“Item2”、“Item3”、“Item4”、“Item5”和“Item6”，命令按钮的名称为Commandl、Caption属性为“导出”，在Listl中选中的项，通过for循环进行复制并删除。补充后的具体代码如下： Private Sub Commandl_Click() Dim i As Integer i=1 If Listl．SelCount<3 Then’如果选中的项数小于3则弹出提示 MsgBox(“请选择至少3项”) Else While i<=Listl．ListCount’利用while循环获得选中的项 If Listl．Selected(i-1)=True Then’如果被选中 List2．AddItem Listl．List(i-1) ’则加入到List2中 Listl．RemoveItem(i-1)’删除选中项 i=i-1’删除一项则计数减1 End If i=i+1’每循环一次计数加1 Wend End If End Sub 单击[*]按钮运行程序，并按要求保存。 (2)在Text控件中输入文本时会触发Change事件，要将大写字母转换成小写字母要通过Lcase函数来实现。 根据题意，新建“标准EXE”工程，将一个文本框控件添加到窗体中，其名称为Textl、Text属性为空，设置结束后双击Textl，进入代码窗口，编写如下代码： Private Sub Textl_Change() Textl．Text=LCase(Textl．Text) Textl．SelStart=Len(Textl．Text) End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://jikaoti.com/ti/YJg0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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