首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为:Form1的窗体上画一个名称为List1的列表框,并任意输入若干列表项;再画一个名称为Text1的文本框,无初始内容。请编写List1和Text1的Click事件过
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为:Form1的窗体上画一个名称为List1的列表框,并任意输入若干列表项;再画一个名称为Text1的文本框,无初始内容。请编写List1和Text1的Click事件过
admin
2016-01-31
31
问题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在名称为:Form1的窗体上画一个名称为List1的列表框,并任意输入若干列表项;再画一个名称为Text1的文本框,无初始内容。请编写List1和Text1的Click事件过程。程序运行后,如果单击列表框中的某一项,则在文本框中显示该项相应的顺序号,若单击第一项,则在文本框中显示1;若单击第二项,则在文本框中显示2,以此类推(如图3-49所示);如果单击文本框,则把该列表项的内容显示在文本框中。
注意:要求程序中不得使用变量,事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
选项
答案
审题分析 列表框的Listlndex可用于设置或返回在列表框中当前选择项目的索引号,该索引号是从0开始的。要实现本题所要求的功能,应在列表框的单击事件中,令文本框中的内容等于列表框的Listlndex属性加1;在文本框的单击事件中,令文本框的内容等于列表框的对应选中项的内容,即List1.List(List1.ListIndex)。 操作步骤 步骤1:新建一个“标准EXE”工程,按表4-30在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写列表框和文本框的单击事件过程。 参考代码: Private Sub List1_Click() Text1.Text=List1.ListIndex+1 End Sub Private Sub Text1_Click() Text1.Text=List1.List(List1.ListIndex) End Sub 步骤3:按要求将文件保存至考生文件夹中。 考点链接 选择控件。
解析
转载请注明原文地址:https://kaotiyun.com/show/CrLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
文本框控件中将Text的内容全部显示为所定义的字符的属性项是
下列叙述中正确的是
一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示[2]文件;包含ActiveX控件的文件扩展名为[3]。
程序模块文件是一个______文件,它不属于任何窗体。
设有如下通用过程:PublicSubFun(a(),ByValxAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一个名称为Text1的文本
数据库设计的根本目标是要解决()。
为了使模块尽可能独立,要求()。
在窗体上画一个命令按钮Command1,然后编写下列代码:PrivateSubCommand1_Click()DimArr1(10)AsInteger,Art2(10)AsIntegern=3Fori=1To5Arr1(i)=
结构化程序设计的核心和基础是()。
软件工程研究的内容主要包括:【】技术和软件工程管理。
随机试题
公共政策学的创立者是()
关于阔筋膜张肌肌皮瓣逆行切除,以下哪项是错误的
疖热毒蕴结证的主治方剂是
在我国,《民法通则》规定,不属于根据代理权来源不同分类的代理的是()。
税务机关作出的下列行政行为,纳税人不服时应当先申请行政复议,对行政复议决定不服再向人民法院提起行政诉讼的有()。
某同学每周都对自己的学习情况作出小结,分析自己在学习上取得的进步,找出自己的薄弱环节。他的这种行为属于()
张某与王某系多年好友,张某死前立下遗嘱,将自己珍爱的一架古筝赠与王某。张某去世时王某正在国外出差,1年后王某回国方才得知张某已去世,又过了1年王某才得知张某曾将古筝赠与自己,王某能否向张某之子主张返还古筝?()
在人类社会的发展史上,经历了三次科技革命,其标志为( )。
痛苦比快乐更普遍地充斥着人生,痛苦比快乐更能体现人生。快乐是短暂的,甚至是虚构的,而痛苦则更为现实和持久地存在着。痛苦更能使人感悟生命,实现生命的价值。热爱生命的人会比别人感受到更多的痛苦,同时也感受到了更多的生命之欢歌。因此尼采说:与痛苦对抗是最有趣的事
软件测试的目的是()。
最新回复
(
0
)