- 1、本文档共40页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
6(1)在名称为Form1的窗体上添加一个名称为Command1的命令按钮(如图1所示),然后通过属性窗口设置窗体和命令按钮的属性,实现如下功能:
①窗体标题为设置按钮属性;
②命令按钮的标题为等级考试;
③程序运行后,命令按钮不可见;
④命令按钮的标题字体用三号常规黑体显示。程序的运行情况如图2所示。
要求:不编写任何代码。
注意:最后把修改后的文件按原文件名存盘。
【操作步骤】
步骤1:新建一个窗体,在窗体中添加一个命令按钮控件并设置命令按钮和窗体的相应属性。如表3.25所示。
步骤2:调试并运行程序,关闭程序后按题目要求存盘。
13(2)在名称为Form1的窗体上从上到下添加两个文本框,名称分别为Text1、Text2;再添加1个命令按钮,名称为Command1,标题为选中字符数是。程序运行时,在Text1中输入若干字符,选中部分内容后,单击选中字符数是按钮,则选中的字符个数显示在Text2中(如图所示)。请编写按钮的Click事件过程。
要求:程序中不得使用变量,事件过程中只能写一条语句。注意:最后把修改后的文件按原文件名存盘。
【操作步骤】
步骤1:建立界面,在窗体中添加两个文本框和一个命令按钮,然后在属性窗口设置控件的属性。程序中用到的控件及属性见表3.50。
表3.50
步骤2:编写程序代码。参考答案
PrivateSubCommand1_Click()Text2=Text1.SelLength
EndSub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
3(1)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框,它们的高、宽分别为300、2400和1200、2400。窗体的标题为窗口。请通过属性窗口设置适当的属性,满足如下要求:
①Text2可以显示多行文本,并且有垂直和水平两个滚动条;
②程序运行时在Text1中显示输入的字符为*。程序运行后的窗体如图所示。
注意:最后把修改后的文件按原文件名存盘。
【操作步骤】
步骤1:新建一个窗体,然后在窗体中添加两个文本框。
步骤2:在属性窗口中设置各控件的属性,控件的属性见表3.8和表3.9。
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
14(1)在名称为Form1的窗体上添加一个名称为Picture1的图片框(PictureBox),高、宽均为1000。在图片框内再添加一个有边框的名称为Image1的图像框(Image)。并通过属性窗口把考生文件夹下的图标文件Point11(香蕉图标)装入图像框Image1中,如图所示。
注意:最后把修改后的文件按原文件名存盘。
【操作步骤】
步骤1:建立界面,在窗体中添加一个图片框和一个图像框并设置控件的属性。程序中用到的控件及属性见表3.51。
表3.51
步骤2:调试并运行程序,关闭程序后按题目要求存盘。
15(2)在名称为Form1的窗体上添加一个名称为Image1的图像框,有边框,并可以自动调整装入图片的大小以适应图像框的尺寸;再添加三个命令按钮,名称分别为Command1、Command2、Command3,标题分别为红桃、黑桃、清除。在考生文件夹下有两个图标文件,其名称分别为Misc34.ico和Misc37.ico。程序运行时,单击黑桃按钮,则在图像框中显示黑桃图案(即Misc37.ico文件);单击红桃按钮,则在图像框中显示红桃图案(即Misc34.ico文件,如图所示);单击清除按钮则清除图像框中的图案。请编写相应控件的Click事件过程,实现上述功能。
注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
【操作步骤】
步骤1:建立界面,在窗体中添加一个图像框,三个命令按钮并设置控件的属性。程序中涉及的控件及属性见表3.54和表3.55。
步骤2:编写程序代码。参考答案
PrivateSubCommand1_Click()
Image1.Picture=LoadPicture(App.Path\MISC34.ico)EndSub
PrivateSubCommand2_Click()
Image1.Picture=LoadPicture(App.Path\MISC37.ico)EndSub
PrivateSubCommand3_Click()SetImage1.Picture=Nothing
EndSub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
16(1)在名称为Form1、标题为标签的窗体上添加一个名
您可能关注的文档
最近下载
- 固体物理:第十一章 自旋玻璃.ppt
- 警察礼仪(PPT页)(最新整理版).pptx VIP
- Chapter1-林子雨-大数据技术原理与应用-大数据概述(年2月17日版本)44.ppt
- 【建筑专业】03J609 防火门窗.pdf
- 第6课《老山界》核心素养教学设计-统编版语文七年级下册.docx VIP
- 商场地产潮玩解压计划夏日集市方案.pptx VIP
- 新版高速公路基础知识必考重点题库.doc VIP
- 普通高等学校毕业生就业协议书(三方协议).pdf VIP
- JJG 1118-2015电子汽车衡(衡器载荷测量仪法).docx VIP
- 2023年深圳百合外国语学校小升初面试英语模拟题及答案.docx
文档评论(0)