首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm。在窗体Form上有一个名为Listl的列表框,列表框中有若干列表项,通过属性窗口设置列表框的MultiSelect属性为1。还有两个命令按钮,名称分别是Commandl和Command2,标题
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm。在窗体Form上有一个名为Listl的列表框,列表框中有若干列表项,通过属性窗口设置列表框的MultiSelect属性为1。还有两个命令按钮,名称分别是Commandl和Command2,标题
admin
2009-03-26
22
问题
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm。在窗体Form上有一个名为Listl的列表框,列表框中有若干列表项,通过属性窗口设置列表框的MultiSelect属性为1。还有两个命令按钮,名称分别是Commandl和Command2,标题分别是“全选”和“保存”(如图41—6所示)。要求在程序运行时,单击“全选”按钮则将Listl中的全部列表项选中,然后单击“保存”按钮,将Listl中的全部列表项写入文本文件out5.txt中,并将out5.txt保存在考生文件夹下。
注意:该程序不完整,请在有问号“?”的地方填入正确内容,然后删除问号“?”及所有注释符“’”,但不能修改其他部分。存盘时不得改变文件名和文件夹,相应的数据文件也保存到考生文件夹下,否则没有成绩。
选项
答案
向列表框中添加项目可以用Addltem方法,也可以在属性窗口中进行,本题是在属性窗口实现的。列表框的Text属性勾最后一次选中的表项的文本,Listlndex属性是已被选中的表项的位置。如果没有选中任何项,Listlndex的值将设置为一。双击Commandl命令按钮进入代码窗口,编写如下代码: Private Sub Commandl_Click() Dim i As Integer For i=0 To Listl.ListCount-1 Listl.
Selected(i)
=True Next i End Sub Private Sub Command2_Click() Dim i As Integer Open App.Path&"\out5.txt"For Output As l For i=0 To Listl.ListCount-1 Listl.Listlndex=i Print#1,Listl.
Text
, Listl.Selected(i)=False Next i Close#1 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/PV1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面的哪些程序段可能导致错误?()Ⅰ:Strings="Gonewiththewind";Stringt="good";Stringk=s+t;Ⅱ:Strings
面向对象程序设计有许多特性,下列选项中用来尽可能隐蔽对象的内部细节的是()。
数据库设计有两种方法,它们是()。
能够支持javadoc命令的注释语句是()。
下列叙述中正确的是()。
在软件生存周期中,能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是
在软件工程中,白箱测试法可用于测试程序的内部结构。此方法将程序看做是()
下列不属于J2SDK命令的是()
用AWT组件实现单选按钮功能,需要使用______组件?()
随机试题
简述技术法规和标准作为限制进口手段的表现。
取得执业助理医师执业证书后,具有高等学校医学专科学历的,可以在医疗、预防、保健机构中工作满一定年限后报考执业医师资格考试,该年限是
有关激光的特性,错误的是
尿路感染时,尿培养菌落计数(每毫升)至少达到下列哪一项方可以确诊
中国药典(2000年版)采用Kober反应比色法测定的药物为
急性腹膜炎最重要的体征是
2011年10月,某市财政局派出检查组对咸阳市某国有大型企业甲(以下简称“甲企业”)的会计工作进行检查。检查中了解到以下情况:(1)2011年3月10日,甲企业收到一张由甲企业和乙企业共同负担费用支出的原始凭证,甲企业会计人员A根据该原始凭证及应承担
日昌有限责任公司成立于2012年6月,其注册资本为人民币1000万元,在2013年8月日昌公司召开了一次股东会会议,经过公司70%表决权的同意作出了四项决议。股东会作出决议日昌公司分立为红日公司和昌盛公司,则下列表述中正确的有()。
下列关于承租人与融资租赁有关会计处理的表述中,正确的有()。
已知,那么矩阵A=_______.
最新回复
(
0
)