首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上添加一个名称为Label1、标题为“添加项目”的标签;添加一个名称为Textl的文本框,初始内容为空;添加一个名称为Combol的下拉式组合框,并通过属性窗口输入若干项目(不少于3个,内容任意);再添加两个命令按钮,名称分别为Co
在名称为Forml的窗体上添加一个名称为Label1、标题为“添加项目”的标签;添加一个名称为Textl的文本框,初始内容为空;添加一个名称为Combol的下拉式组合框,并通过属性窗口输入若干项目(不少于3个,内容任意);再添加两个命令按钮,名称分别为Co
admin
2020-04-08
22
问题
在名称为Forml的窗体上添加一个名称为Label1、标题为“添加项目”的标签;添加一个名称为Textl的文本框,初始内容为空;添加一个名称为Combol的下拉式组合框,并通过属性窗口输入若干项目(不少于3个,内容任意);再添加两个命令按钮,名称分别为Commandl、Command2,其标题分别为“添加”、“统计”。在程序运行时,向Textl中输入字符,单击“添加”按钮后,则将Textl中的内容作为一个列表项被添加到组合框的列表中;单击“统计”按钮,则在窗体空白处显示组合框中列表项的个数,如图所示。请编写两个命令按钮的Click事件过程。
注意:程序中不得使用变量,也不能使用循环结构。存盘时必须存放在考生文件夹下,工程文件名保存为sjt3.vbp,窗体文件名保存为sjt3.frm。
选项
答案
【操作步骤】 步骤l:新建一个窗体,按照题目要求建立控件并设置控件属性,如图4.22所示。 [*] 程序中用到的控件及属性设置见表4.15 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 PriVate Sub Commandl_Click() Combol.AddItem Textl End Sub PriVate Sub Command2_Click() Print Comb01.ListCount End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
命令按钮和标签的标题用属性窗口中的Caption属性设置。要使TextI的文本框没有初始内容,需要将属性窗口中的Text属性设为空。要在下拉式组合框中输入内容,可以在属性窗口中对下拉式组合框的List属性进行设置。
转载请注明原文地址:https://kaotiyun.com/show/YATp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下能接收焦点的控件是
下列关于利用通用对话框产生的文件对话框的相关属性的描述中,错误的是()。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() a$=InputBox("请输入一个二进制数") n=Len(a$) Fori=1Ton Dec=Dec*2+
设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是( )。
以下关于函数过程的叙述中,正确的是( )。
以下关于文本框Text1的叙述中,错误的是
软件需求规格说明书的作用不包括
表达式Int(8*Sqr(36)*10^(.2)*10+0.5)/10的值是()。
在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)End
窗体上有一个名称为Commandl的命令按钮,其事件过程如下:PrivateSubCommand1_Click()x=”VisualBasicProgramming”a=Right(X,11)b=Mid(x,7,
随机试题
以下描述正确的是()
女,29岁。交通事故致颌面部闭合性损伤合并颅脑损伤,已发生吸入性窒息。应采取的抢救措施是
急性肾功能衰竭少尿期电解质紊乱错误的是
建设工程项目施工质量保证体系的主要内容有()。
要使企业风险与收益平衡,较为合适的资产负债率指标值应该是()。
下列哪种情况资产和所有者权益同增?()
根据资源税法的有关规定,下列各项中,属于资源税的征税范围的有()。
下列关于云计算的说法错误的是:
你刚刚到监狱工作,一段时间后,发现你的同事都很清闲,只有你很忙,你怎么解决这个问题?
DearMs.Emily,TheneedforabiologyteacherintheHeavilonCommunitySchoolswasindicatedinthePurdueUniversityEduc
最新回复
(
0
)