首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个文本框,名称为Text1,内容为“VB程序设计”;再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“扩大”和“
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个文本框,名称为Text1,内容为“VB程序设计”;再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“扩大”和“
admin
2017-03-27
75
问题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个文本框,名称为Text1,内容为“VB程序设计”;再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“扩大”和“缩小”,如图3—93所示,编写适当的事件过程。程序运行后,每单击Command1命令按钮一次,文本框中文本的字体扩大1.2倍;每单击Command2单选按钮一次,文本框中文本的字体缩小1.2倍。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjjt1.frm。
(2)在名称为Form1的窗体上画一个列表框,其名称为List1,通过属性窗口向列表框中输入9个项目,分别为10、20、30、40、50、60、70、80、90;画一个文本框,其名称为Text1,初始内容为空白;再画一个水平滚动条,其名称为HScroll1,Min属性和Max属性分别为0和100,如图3—94(a)所示,编写适当的事件过程。程序运行后,如果单击列表框中的某个项目,则在文本框中显示该项目内容,并把滚动条的滚动框移到相应的位置,如图3—94(b)所示。要求:不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
选项
答案
第1小题 步骤1:新建一个“标准EXE”工程,在窗体Form1中加入一个文本框和两个命令按佣,其相关属件设置如表4—58所示。 [*] 步骤2:打开代码编辑窗口,输入如下代码。 参考代码: Private Sub Command1_Click() Text1.FontSize=Text1.FontSize*1.2 End Sub Private Sub Command2_CliCk() Text1.FontSize=Text1.FontSize/1.2 End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 步骤1:新建一个“标准EXE”工程,在窗体上画一个列表框、一个文本框和一个水平滚动条,按表4—59设置其相关属性。 [*] 步骤2:在打开的代码编辑窗口中,编写列表框的单击事件代码。 参考代码: Private Sub List1_Click() Text1.Text=List1.Text HScroll1.Value=Val(List1.Text) End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
第1小题:要实现题目要求的功能,只需在两个命令按钮的Click事件过程中,分别设置文本框的FontSize属性为指定值。
第2小题:列表框的Text属性用于返回列表框中选择的项目的内容,返回值总与列表框的List(ListIndex)属性的返回值相同。本题需要在列表框的属性窗口中输入列表框中的项目,然后在列表框的单击事件中将选定项赋值给文本框和滚动条的Value属性。
转载请注明原文地址:https://kaotiyun.com/show/MmGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列每组控件中,都包含有滚动条的一组控件是
某人编写如下函数来判断a是否为素数,若是,则函数返回True;否则返回FalseFunctionprime(aAsInteger)AsBooleanDimkAsInteger,ispfimeAsBooleanIfa<2Then
如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是______。
要使目录列表框(名称为Dir1)中的目录随着驱动器列表框(名称为Drive1)中所选择的当前驱动器的不同而同时发生变化,则应:
如果要在菜单中添加一个分隔线,则应将其Caption属性设置为
假定有一个菜单项,名为Menultem,为了在运行时使该菜单项失效(变灰),应使用的语句为
下列数据结构中,属于非线性的是()。
属性窗口分为4个部分,这4个部分分别是______。
有如下程序:FunctionF(aAsInteger)b=0StaticCb=b+1c=c+2F=a+b+cEndFunctio
随机试题
简述加德纳多元智力理论的主要观点。
女性,33岁。因呕血200ml,黑便3次伴晕厥而被抬送来诊。查体:贫血貌,腹平软,剑下轻压痛,肝脾肋下未及,移动性浊音阴性。如果考虑为消化性溃疡,最重要的病史为
为证券发行出具有关文件的专业机构和人员,必须严格履行法定职责,保证其所出具文件的()
()是指根据保险公司的委托,向保险公司收取佣金,在保险公司授权的范围内专门代为办理保险业务的机构。
关于农用地转用审批与土地征收审批,下列说法正确的有()。
【2010福建】简述思维过程中影响问题解决的因素。
2013年6月11日,“神舟”十号载人飞船在酒泉卫星发射中心发射升空,准确进入预定轨道,顺利将3名航天员送入太空。中国“为梦想飞天”再一次取得圆满成功。关于“神舟”飞船系列发展历程,下列对应关系正确的是()。
一个容器里有100个球,分别是红、黄、蓝三种颜色。甲说:“这个容器里至少有一种颜色的球不少于34个。”乙说:“这个容器里至少有一种颜色的球不少于33个。”丙说:“这个容器里任意两种颜色的球的总数不会超过99个。”下列哪项论断是正确的?
IthasbeenahundredyearssincethelastbigoneinCalifornia,the1906SanFranciscoearthquake,whichhelpedgive(1)_____
下列符号中,正确的C++标识符是()。
最新回复
(
0
)