首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在名称为Form1的窗体上画两个文本框,其名称分别为Text1和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则Textl隐藏,Text2显示,如图3.88(a)所示;如果双击窗体,则Text1显示,
(1)在名称为Form1的窗体上画两个文本框,其名称分别为Text1和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则Textl隐藏,Text2显示,如图3.88(a)所示;如果双击窗体,则Text1显示,
admin
2017-09-22
57
问题
(1)在名称为Form1的窗体上画两个文本框,其名称分别为Text1和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则Textl隐藏,Text2显示,如图3.88(a)所示;如果双击窗体,则Text1显示,Text2隐藏,如图3.88(b)所示。
注意:程序中不得使用变量。
存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。
(2)在名称为Form1的窗体上画一个文本框,其名称为Text1,初始内容为空白;再画一个水平滚动条,其名称为HS1,SmallChange属性为4,LargeChange属性为10,Min属性为0,Max属性为200,编写适当的事件过程。程序运行后,如果在文本框内输入一个数值(0~200),然后单击窗体,则把滚动条的滚动框移到相应的位置,如图3.89所示。
注意:程序中不要使用变量;存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
选项
答案
(1)步骤1:新建一个“标准EXE”工程,在窗体中加入两个文本框并设置它们的相关属性,属性及其值如表4-56所示。 [*] 步骤2:打开代码编辑窗口,输入如下代码。参考代码: Private Sub Form_Click() Text1.Visible=False Toxt2.Visible=TrLie End Sub Private Sub Form_DblClick() Text1.Visible=True Text2.Visible=False End Sub 步骤3:按要求将文件保存至考生文件夹中。 (2)步骤1:新建“标准EXE”工程,往窗体Form1中加入一个文本框和一个水平滚动条,分别设置它们的相关属性,属性及其值如表4.57所示。 [*] 步骤2:打开代码编辑窗口,输入如下代码。参考代码: Private Sub Form Click() HS1.Value=Val(Text1.Text) End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
(1)要在程序运行时实现题目所要求的功能,只需在窗体的Click事件过程中用代码设置文本框1的Visible属性值为False,文本框2的Visible属性为True;在窗体的DblClick事件过程中用代码设置文本框1的Visible属性值为True,文本框2的Visible属性为False。
(2)要在程序运行时,单击窗体就能将滚动条的滑块位置定位到文本框中输入的值,只需要编写窗体的单击事件,令滚动条的Value属性值等于文本框的Text属性值。
转载请注明原文地址:https://kaotiyun.com/show/DjGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Text1的文体框,然后画一个名称为HScrolll的滚动条,其Min和Max属性分别为0和100。程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值,如图所示。以下能实现上述操作的程序段是
使用语句DimAAsInteger声明数组A之后,以下说法正确的是()。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1Click()n=5f=1s=0Fori=1Tonf
数据库设计包括概念设计、【】和物理设计。
事件驱动是一种适用于______的编程方式。
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Fomil中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger.则以下叙述中正确的是
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5y=7
CommonDialog控件可以显示______种对话框。
编写如下事件过程:PrivateSubForm_keyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForm_Keypress(
随机试题
女孩3岁,发热伴咳嗽3~4天,今出皮疹,外院拟诊药物疹,口服阿司咪唑,回家后病情变化,咳嗽加剧,来院就诊。体检:体温39℃,气急,鼻煽动,唇周青紫,两结膜红,口腔黏膜粗糙,心率160次/分,心音低钝,两肺闻及细湿啰音,肝肋下3.5cm,剑下4cm,头躯干可
求二重积分[1+x3一(x2+y2)]dxdy,其中D为x2+y2≤2ay.
某37岁孕妇,妊娠36周检查发现妊娠期高血压疾病,2小时前突然发生持续性腹痛伴阴道少量流血,面色苍白。首先考虑为
根据《合同法》,“数据电文”包括( )。
在“抱娃娃”游戏中,一开始,参加者把自己当成娃娃的妈妈,耐心地喂饭,但当他转身去拿“饭”时,发现其他小朋友正在沙坑里搭起一座“小花园”,他的注意便一下子转到“小花园”而走到沙坑去玩了。
有关犯罪预备,错误的说法是()。
Nowadays,oursocietyisbeingreshapedbyinformationtechnologies—computers,telecommunicationsnetworks,andotherdigitalsy
StrategiesforWritingaLiteratureReviewAliteraturereviewdiscussespublishedinformationinaparticularsubjectarea.
PartⅡReadingComprehension(SkimmingandScanning)Directions:Inthispart,youwillhave15minutestogooverthepassageq
Asateacher,youshouldn’tbe______toanyofthekids,theyshouldshareequalcare.
最新回复
(
0
)