首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗体上建立一个列表框、一个组合框和两个命令按钮。程序运行后,在列表框中选择所需要的项目,单击“导出”按钮,把所选择的项目移到组合框中。如果单击“导人”按钮,则把组合框
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗体上建立一个列表框、一个组合框和两个命令按钮。程序运行后,在列表框中选择所需要的项目,单击“导出”按钮,把所选择的项目移到组合框中。如果单击“导人”按钮,则把组合框
admin
2010-07-13
31
问题
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗体上建立一个列表框、一个组合框和两个命令按钮。程序运行后,在列表框中选择所需要的项目,单击“导出”按钮,把所选择的项目移到组合框中。如果单击“导人”按钮,则把组合框中所选择的项目移到列表框中。程序运行时的窗体界面如图50—3所示。
注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
(2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程序是不完整的。本题在窗体Forml中有一个文本框,名称为Textl;另有一个命令按钮,名称为Commandl,标题为“判断”。要求该应用程序具有数据过滤功能,即检查用户在文本框中输入的数值是否在能被3整除。如果是,则退出程序;否则在文本框巾显示“不能被3整除”,同时使焦点重新回到文
本框中。程序运行时的窗体界面如图50—4所示。
注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案
(1)列表框控件用于显示可供单一或多个选择的列表项。给列表框添加列表项既可以在设计阶段通过其List属性设置加入(注意每输入完一项后按“Ctrl+Enter”组合键换行再输人下一项),也可在程序运行时通过代码“列表框名.AddItem“巧目”加入”;MultiSelect用于设置是否可在列表项中做多个选择,值为0(缺省设置)表示不允许做多项选择,值为1表示允许做简单多项选择,值为2表示允许按住“Shift+Ctrl”键做多项选择;Selected(Index)属性用于设置或返回指定索引号的列表项选择状态(索引号从0开始),值为True表示被选中,值为False表示未被选中;List(Index)属性用于设置或返回指定索弓1号的列表项的内容;ListCount属性用来返回列表框中当前的列表项条数;RemoveItem方法用于删除指定索引号的列表项。 根据题意,将一个列表框控件、一个组合框ComboBox控件和两个命令按钮添加到窗体中,列表框的名称为Listl、Sorted属性为True,ComboBox的名称为Comb01,命令按钮的名称分别为Commandl和Command2,Caption属性分别为“号出”和“导入”。双击Commandl进入代码窗口,补充后的代码如下: Private Sub Commandl_Click() If Listl.
Listlndex
>-1 Then,’如果Listl有选中项 Comb01.AddItem Listl.List(Listl.ListIndex) ’将Listl中的选中项添加到Combol中 Listl.
RemoveItem
(Listl.Listlndex) ’将选中项从Listl中删除 End If End Sub Private Sub Command2_Click() If Comb01.
ListIndex
>-1 Then,’如果Combol有选中项则执行 Listl.Addhem Combo1.List(Comb01.Listlndex) ’将Comb01的选中项添加到List中 Comb01.
RemoveItem
Comb01.ListIndex’将选中项从Combol中删除 End If End Sub 单击[*]按钮运行程序,并按要求保存。 (2)本题主要考查考生对SetFocus方法和LostFocus事件的掌握。 当按键盘上“Tab”键或单击其他对象时,当前对象将失去焦点并触发LostFocus事件;SetFocus方法用于将焦点移到擗定的对象上。 题目要求文本框应具有数据过滤功能,即当在文本框中输入数据时,会自动完成对输入数据的检查,故要用SetFocus方法使文本框获取焦点。 根据题意,将一个命令按钮和一个文本框控件添加到窗体中,命令按钮的名称为Commandl、Caption属性为“判断”,文本框的名称为Textl、Text属性为空。双击Commandl,进入代码窗口,编写如下代码: Private Sub Commandl_Click() Dim a As Integer a=
Val(Textl.Text)
’读取Textl中读取的数 If a
Mod 3=0
Then Unload Me’当能被3整除时,关闭窗口 Else Textl.
Text
="不能被3整除" ’当不能被3整除时,在Textl中显示 Textl.SetFocus End If End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/RGmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Java语言中的【】是程序的基本单位。
下列不属于JComponent类的功能的是( )。
下列四个选项中,均是合法整型常量的是( )。
在进行模块测试时,要为每个被测试的模块另外设计两类模块:驱动模块和承接模块(桩模块)。其中【】的作用是将测试数据传送给被测试的模块,并显示被测试模块所产生的结果。
包含Swing构件的Applet(小应用程序)应该是______类的子类。
用HTML文件显示APPLET时,下面属于必不可少的属性的是
在模块化程序设计中,按功能划分模块的原则是
文件操作中,用于移动文件指针到指定的位置的是
设有数组定义:inta[]={11,22,33,44,55,66,77,88,99};则执行下列几个语句后的输出结果是______。for(inti=O;i<a.length;i++)if(a[i]%3==0)System.out.println(a
下列程序实现对ZIP文件file.zip的检索,在横线处填入正确的语句packagetest;importjava.io.*;importjava.util.*;importjava.util.zip.*;p
随机试题
在Sybase开发工具中,用于数据库应用系统分析和设计的CASE工具是【】
某患者,腿部皮肤被叮咬,局部出现溃疡,伴高热,皮疹,淋巴结肿大,肝脾肿大。外斐反应:抗体效价1:320。该病的传播媒介可能是
牙周脓肿的表现,下面哪项是正确的
一定量的理想气体,由初态口经历acb过程到达终态b(图2-39),已知a、b两状态处于同一条绝热线上,则()。
《特种设备安全监察条例》建立的特种设备安全监察制度,包括特种设备()。
银行最愿意受理的担保贷款方式是()
设f(x)=,求f(x)的间断点并判断其类型.
北京明华中学学生发展中心的小刘老师负责向校本部及相关分校的学生家长传达有关学生儿童医保扣款方式更新的通知。该通知需要下发至每位学生,并请家长填写回执。参照“结果示例1.jpg~结果示例4.jpg”、按下列要求帮助小刘老师编排家长信及回执:将“附件3:学
A、 B、 C、 C
A、Skating.B、Boating.C、Surfing.D、Skiing.D
最新回复
(
0
)