丁衍珍Visual Basic实验报告4

琼州学院课 程 实 验 报 告(2011 ~2012 1学期)专业 计算机网络课程 VB程序设班级 10网络技术姓名 丁衍珍学号 10139010教师 陈作聪琼州学院电子信息工程学院制实验报告填写说明常情况和解决方法。时成绩，参与期末成绩总评。2011年1031日实验项目：标准控件实验目的：掌握命令按钮、标签及文本框控件的使用方法。掌握复选框、单选按钮及框架控件的使用方法。掌握列表框和组合框控件的使用方法。掌握滚动条和定时器控件的使用方法实验仪器：计算机一台CPU：AMDP320主频：2.10GHz内存：2.00GB软件：VB6.0操作系统：windows7专业版实验步骤（或程序清单） 附注实验步骤（）1．在窗体上建立两个标签、两个文本框和两个命令按钮，运行界面如左图所示。要求在运行时，两个文本框中的内容均不允许用则结束程序的运行。（续）提示：SelText（内容、SelStart（选定文本起始点、SelLength（选定文本长度）读取或设置。（1）新建工程，创建窗口如图：在文本框TEXT1中将Multiline属性设置为true，再将Scrollbars的属性值设置为2。按钮框的代码如下：（续）运行程序检验结果：2．“电话号码”进行校验（性别只允许输入“男”或“女6位数字，电话号码必须是8位数字插入点置于该框中。所有的校验工作可以在单击“退出”按钮后进行，此时，程序检查所有文本框，如有空白或内容错误，要求继续输入，否则结束程序。提示：ExitSubLen得到字符串的长度，通过函数IsNumeric(字符串)可检验字符串是否是数值。1）新建工程，创建窗口，如图所示：（续）实验代码如下：运行程序检验结果：

（续）标签中文字的字体（宋体或黑体、字号12）和字形（是否粗体、是否斜体，请建立应用程序。1）新建工程，创建窗口：（续）实验代码如下：运行程序检验结果：（续）编写程序。要求：程序运行初期，在窗体左边的列表框中生成10个由小到大排列的1010010ESC键，可退出程序。窗体示意图如下。提示：将列表框的Sorted使用“ForTo终值…Next循环变量”可实现循环功能可使用语句Randomize和函数Rnd()产生随机数。可使用语句Randomize和函数Rnd()产生随机数。移动列表框中的数，相当于将第一个列表框内容通过列表框的AddItem方法加入到第二个列表框，然后通过列表框的RemoveItem方法将第一个列表框内容删除。实验步骤：（1）新建工程，创建窗口：（2）实验代码如下：（3）运行程序，检验结果：建立应用程序，窗体如下图所示，有一个简单组合框、三个命令按钮、一个文本建立应用程序，窗体如下图所示，有一个简单组合框、三个命令按钮、一个文本框和一个标签。要求：单击“添加”按钮可将输入的内容添加到组合框中单击“删除”按钮可删除组合框中选定的项目单击“统计人数”按钮，可将组合框中的项目总数输出到右边的文本框单击“退出”或按ESC实验步骤：（1）新建工程，创建窗口（2）实验代码如下:(3)运行程序检验结果：6是单击滚动箭头（数值递增或递减）或滚动条（数值递增或递减10，均可以在相（1）新建工程，创建窗口：实验代码如下：运行程序，检验结果：整时报时。提示：可使用Time报时可使用下面程序段实现。IfSecond(Time)<=10AndMinute(Time)=0ThenBeepEndIf（1）新建