丁衍珍VisualBasic实验报告4

《丁衍珍VisualBasic实验报告4》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、竦州曇浣课程实验报告（2011-2012年度第1学期）专业计算机网络课程VB程序设计班级10网络技术班姓名丁衍珍学号10139010教师陈作聪琼州学院电子信息工程学院制实验报告填写说明1、填写一律用钢笔或圆珠笔填写或打印，要求字迹工整，条理清晰。2、“实验题冃”可以填写章节名称或用文字表述。3、“实验目的”要逐条列出，“实验内容”以简练的文字进行概括。4、“附注”处填写实验注意事项或调试过程，以及实验中出现的异常情况和解决方法。5、“教师批阅”处由课任老师填写评语，给出实验成绩，并作为平时成绩，参与期末成绩总评。2011年10月31日实验项目：标准控件实验目的

2、:1.掌握命令按钮、标签及文本框控件的使用方法。2.掌握复选框、单选按钮及框架控件的使用方法。3.掌握列表框和组合框控件的使用方法。4.掌握滚动条和定时器控件的使用方法实验仪器：计算机一台CPU：AMDP320主频：2.10GHz内存：2.00GB软件：VB6.0操作系统：windows7专业版实验步骤（或程序清单：）~附注实验步骤（或程序清单：）1.在窗体上建立两个标签、两个文本框和两个命令按钮，运行界面如左图所示。要求在运行时，两个文本框中的内容均不允许用户编辑；如果用户在“原文”的文本框中选定所需的内容，单击“复制”命令按钮，则在“输出”文本框小输出选定

3、的内容，如右图所示；如杲单击“结束”命令按钮，则结束程序的运行。提示：文本框中选定内容可以使用文本框的属性SclTcxt（选定文本内容）、SelStart（选定文本起始点）、SelLength（选定文本长度）读取或设置。实验步骤：（1）新建工程，创建窗口如图：在文本框TEXT1中将Multiline属性设置为true,再将ScrolIbars的属性值设置为2。（2）按钮框的代码如下:匸工程1-Forml(Code)CommandlPrivateSubCommandl_C1ick()Text2.Text=Textl.SelTextEndSubPrivateSub

4、Command2Click()EndEndSub10139010丁衍珍SY4c=>（3）运行程序检验结果：&文本框的使用10139010丁衍珍SY4输出:原文:一个多功能控件复制结束2.建立如下图所示的窗体，要求程序能对输入的“性别”和“邮政编码”、“电话号码”进行校验（性别只允许输入“男”或“女”，邮政编码必须是6位数字，电话号码必须是8位数字）。如果输入的数据不符号要求，则清空相应的文本框，并将插入点置于该框中。所有的校验工作可以在单击“退出”按钮后进行，此时，程序检查所有文本框，如有空白或内容错误，要求继续输入，否则结束程序。提示：•在过程中间要退出过程

5、可使用命令“ExitSub",通过函数Len（字符串）可得到字符串的长度，通过函数IsNumeric（字符串）可检验字符串是否是数值。登记窗口实验步骤：（1）新建工程，创建窗口，如图所示:a•••••••••••：::::::.10139010：：：：T衍珍:SY4：：：：：：：：：：：：工姓名：：Textl性别：Text5:••••••••••::联系地址：Text2••••••••••::邮政编码：Text3••••••••••■■■「:联系电话：••••••••••Text4■退出■■■■（2）实验代码如下:PrivateSubCommandlClick

6、()fl&C-IsNuaericCTextl)Iffly=Fd.s«OrTtxtl.T«xt="ThenEl”MscBox「姓名输入错误")TextlText="EndIfIfNotTextlText="ThenElseMsgBox「姓名不能为空")EndIfIfNotText2Text="ThenElseMsgBox(•联系地址不能为空“)EndIfIfIsNuftericCTtxt3)=TrutThenEls«Mstfox「曲政编码诸误”)Text3Text="EndIfText4.MaxLength-8IfIsNumeric(Text4)=TrueThe

7、nElseMsgBox「联系电话错误")Text4.Text二"EndIfIfTextsText二"男"OrText5.Text二■女*ThenEndEls«(弋别错溪〃)T*xt5Uxt-"Endif10139010丁衍珍SY4（3）运行程序检验结果:&登记冬口姓名:Text2联系地址:Text3Text4联系电话:10139010丁衍珍SY410139010丁衍珍SY4姓名:联系地址:邮政码联系电话:性别:3：在窗体中有一个标签，内有若干文字，要求通过窗体中的复选框或单选按钮确定标签中文字的字体（宋体或黑体）、字号（10号或12号）和字形（是否粗体、是否斜

8、体），请建立应用程序。实验步骤：（1）