首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序 (包括界面和代码)。 在名称为Form1的窗体上画两个文本框,其名称分别为Text1和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则Text1
请根据以下各小题的要求设计Visual Basic应用程序 (包括界面和代码)。 在名称为Form1的窗体上画两个文本框,其名称分别为Text1和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则Text1
admin
2016-01-31
26
问题
请根据以下各小题的要求设计Visual Basic应用程序 (包括界面和代码)。
在名称为Form1的窗体上画两个文本框,其名称分别为Text1和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则Text1隐藏,Text2显示,如图3-6(a)所示:如果双击窗体,则Text1显示,Text2隐藏,如图3-6(b)所示。
注意:程序中不得使用变量。
存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
选项
答案
审题分析 要在程序运行时实现题目所要求的功能,只需在窗体的Click事件过程中用代码设置文本框1的Visible属性值为False,文本框2的Visible属性为True;在窗体的DblClick事件过程中用代码设置文本框1的Visible属性值为Tme,文本框2的Visible属性为False。 操作步骤 步骤1:新建一个“标准EXE”工程,在窗体中加入两个文本框并设置它们的相关属性,属性及其值如表4-3所示。 [*] 步骤2:打开代码编辑窗口,输入如下代码: 参考代码: Private Sub Form_Click() Text1.Visible=False Text2.Visible=True End Sub Private Sub Form_DblClick() Text1.Visible=True Text2.Visible=False End Sub 步骤3:按要求将文件保存至考生文件夹中。 考点链接 控件基本操作。
解析
转载请注明原文地址:https://kaotiyun.com/show/ouLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在Windows95/98下,使用VisualBasic6.0至少需要______的内存。
要想改变一个窗体的标题内容,则应设置______属性的值。
在运行程序的过程中,当执行“复制”(mnuEditCopy)命令时,使“粘贴”(munEditPaste)命令变为可用,则应做如下处理()。
要建立一个学生成绩的随机文件,如下定义了学生的记录类型,由学号、姓名、三门课程成绩(百分制)组成,下列程序段正确的是()。
若想使时钟控件每隔0.25秒触发一次Timer()事件,则可将Interval属性值设为()。
执行语句Open"TC.dat"ForRandomAs#1Len=50后,对文件TC.dat中的数据能执行的操作是()。
只能用来显示文本信息的控件是()。
执行下面程序,第一行输出结果是[],第二行输出结果是[]。OptionExplicitPrivateSubForm_Click()DimAAsIntegerA=2CallSub1(A)EndSubPriv
可以用做其他控件容器的控件是
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger。则以下叙述中正确的是
随机试题
現在の我々は、マスメディア無しに自分の意見を決められません。それどころか、進学、就職、結婚、娯楽、これらの判断基準を全てマスメディアに頼って暮らしています。これらの問題を自分一人で考え、結論づけられる人なんて、ほとんどいません。もちろん、「私は情
急性阑尾炎时,最有诊断意义的体征是()
腺腔延伸到细胞之间形成
《中华人民共和国合同法》规定,约定债务抵销时,应当符合( )的要求。
锅炉空气预热器的主要腐蚀形式为()。
普通股股东的义务有()。
上市公司实施股票回购,会使每股收益()。
《国家中长期教育改革和发展规划纲要(2010─2020年)》在谈到“育人为本”的工作方针时,提出把()作为学校一切工作的出发点和落脚点。
设,B=p-1AP,其中P为三阶可逆矩阵,则B2004一2A2=_______.
在窗体上,设置控件Com1为不可见的属性是()。
最新回复
(
0
)