首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
admin
2009-02-25
30
问题
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
(1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
在窗体上有一个列表框,名称为List1,一个文本框,名称为Text1,和一个命令按钮,名称为C1,标题为“复制”。要求程序运行后,在列表框中自动建立4个列表项,分别为“Item1”、“Item2”、“Item3”、“Item4”如果选择列表框中的一项,则单击“复制”按钮时,可以把该项复制到文本框中,如图1-3所示。
(2)在考生文件夹中有工程文件sjt4.vbp及其窗体文件sjt4.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
在窗体有3个复选框,名称分别为Chi、Ch2和Ch3,标题分别为“体育”、“音乐”、“美术”,还有一个命令按钮,名称为C1,标题为“显示”。要求程序运行后,如果选中某个复选框,当单击“显示”命令按钮时,则显示相应的信息。例如,如果选中“体育”和“美术”复选框,单击“显示”命令按钮后,在窗体上显示“我的爱好是体育美术”,如图1-4所示。
选项
答案
(1)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 向列表框中添加项目可以用AddItem方法,也可以在属性窗口中进行。但题目中要求是程序运行后自动添加,所以利用代码实现。列表框的Text属性为最后一次选中的表项的文本。解题步骤: 第一步;建立界面并设置控件属性。程序中用到的控件及属性设置见表1-2。 [*] 第二步:编写程序代码。 程序提供的代码: Option Explicit Private Sub C1 Click() Dim i As Integer ’ For i = ? To List1.ListCount-1 If List1.Selected(i) = True Then ’ ? = List1.List(i) End If Next i End Sub Private Sub Form Load() List 1.AddItem "Item1" List 1.AddItem "Item2" List 1.AddItem "Item3" List 1.AddItem "Item4" End Sub 参考代码: Option Explicit Private Sub Cl _Click() Dim i As Integer For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then Text1.Text = List1.List(i) End If Next i End Sub Private Sub Form Load() List1.AddItem "Item1" List1.AddItem "Item2" List1.AddItem "Item3" List1.AddItem "Item4" End Sub 第三步:调试并运行。 第四步:按题目要求存盘。 (2)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 单击命令按钮触发Click事件,程序中需要检测复选按钮的状态,可以通过Value属性来实现。如果复选按钮被选中,则Value值为1,否则Value值为0。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及属性见表1-3。 [*] 第二步:编写程序代码。 程序提供的代码: Option Explicit Private Sub C1_Click() ’ Dim s As ? s=“我的爱好是” If Ch1.Value = 1 Then s = s + Ch1.Caption End If If Ch2.Value = 1 Then s = s + Ch2.Caption End If If Ch3.Value = 1 Then s = s + Ch3.Caption End If ’ Print ? End Sub 参考代码: Option Explicit Private Sub C1 Click() Dim s As String s =“我的爱好是” If Ch1.Value = 1 Then s = s + Ch1.Caption End If If Ch2.Value = 1 Then s = s + Ch2.Caption End If If Ch3.Value = 1 Then s = s + Ch3.Caption End If Print s End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/kh1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
软件危机爆发之后,荷兰科学家Bijkstra1968年提出了一种新的程序设计思想,它就是()。
在Java语言中,将后缀名为_________的源代码文件编译后形成后缀名为.class的字节码文件。
在JavaApplet程序中,如果对发生的事件做出响应和处理的时候,应该使用下列哪个语句
定义一个表示10个值为null的字符串数组、下面选项正确的是
要从文件“file.dar”文件中读出第10个字节到变量C中,下列哪个方法适合()
在Java语言中,类按照程序设计所需要的常用方法和接口封装成【】。
下面哪个选项正确示例了传递一个参数给applet?()
下面程序的输出结果是()。publicclassSun{publicstaticvoidmain(Stringargs[]){inti=1;
随机试题
下列关于翻译释放因子的叙述,不正确的是
成人肺结核最可靠的诊断依据是
《中华人民共和国土地管理法》第五十一条规定:大中型水利、水电工程建设征用土地的补偿费标准和移民安置办法,由( )另行规定。
以公司的内部管辖关系为标准,可以将公司分为母公司和子公司。()
所谓信息系统集成是指()。
—Kelly,who’sthegirl________glassesinthephoto?—It’sme.Iusedtowearglassesandhavelonghair.
某服装公司希望对现有的信息发布系统进行集成与改造,从而实现随时通过互联网向用户发布特定的信息,为了避免骚扰用户,系统还要允许每个用户指定他们感兴趣的消息,另外还要向特定的用户群发送特定消息。针对上述要求,(19)方案相对更为可行。
Readthearticlebelowaboutachainofcafes.Inmostlinesthereisoneunnecessaryword.Itiseithergrammaticallyincorrect
Ineverycultivatedlanguagetherearetwogreatclassesofwordswhich,takentogether,comprisethewholevocabulary.First,t
A、Getacollegedegree.B、Getsomewritingexperience.C、Lookforotherjobs.D、TalktoMrs.Ling.C推理判断题。本题问的是对话最后女士建议男士做什么。女士给
最新回复
(
0
)