VB实验报告一

本科实验报告课程名称：人机界面程序设计基础实验项目：一、VB环境和可视化编程基础实验地点：北区多学科楼专业班级学号：学生姓名：指导教师：年月日一、实验目的和要求1、掌握启动与退出VisualBasic的方法。2、掌握建立、编辑和运行一个简单的VisualBasic应用程序的全过程。3、掌握定义变量、常量的方法；了解运算符和表达式的使用；熟悉内部函数。4、掌握基本控件的应用。二、实验内容和原理1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。提示：使用Form_Click事件；文本框计数Text1=Val(Text1)+1。2、使用Print方法，掌握“，”和“；”的区别；以及Spc（n）函数、Tab(n)函数、属性CurrentX和CurrentY的定位输出。3、编写一程序，在标签上实时显示系统时间，系统时间要求00:00:00AM/PM格式提示：使用Timer控件、Format函数和Now函数。4、对教材上例4-13进行改动，用输入框函数完成输入，用消息框函数显示结果。5、使用Len()函数、LenB()函数、Rnd函数和Randomize语句、Shell函数，并对运行结果进行分析。三、主要仪器设备计算机四、实验结果与分析（必填）1.编写一程序，在文本框中统计在该窗口上鼠标单击的次数。程序PrivateSubForm_Click()Text1=Val(Text1)+1EndSub点击一次后(2)点击两次后2.使用Print方法，掌握“，”和“；”的区别；以及Spc（n）函数、Tab(n)函数、属性CurrentX和CurrentY的定位输出(1)使用Print方法，掌握“，”和“；”的区别；程序：PrivateSubCommand2_Click()ClsPrint末尾无符号Print末尾有,,Print末尾有;;Print结束EndSub运行结果：分析：若print后无“，”和“；”则换行若print后“，”则空过一个Tab距离若print后“；”则紧接着输出（2）Spc（n）函数、Tab(n)函数程序：PrivateSubCommand3_Click()ClsPrint空过三个空格;Spc(3);结束EndSub运行结果：分析：语句空过3个空格（3）属性CurrentX和CurrentY的定位输出。程序：PrivateSubCommand5_Click()ClsCurrentX=1000CurrentY=1000Print输出位置1000,1000EndSub运行结果：分析：输出位置为（1000,1000）3.编写一程序，在标签上实时显示系统时间，系统时间要求00:00:00AM/PM格式程序：PrivateSubTimer1_Timer()Label2.Caption=Format(Time,tttttAM/PM)EndSub运行结果：4.对教材上例4-13进行改动，用输入框函数完成输入，用消息框函数显示结果。程序：PrivateSubForm_Load()Label2.Caption=Format(Time,tttttAM/PM)Label3.Caption=鸡有2只脚，兔有4只脚，鸡兔同笼。Label4.Caption=设笼中鸡和兔的总头数为h，总脚数为f。Label5.Caption=问笼中鸡有多少只？兔有多少只？Command6.Caption=输入h和f的值EndSubPrivateSubCommand6_Click()DimhAsInteger,fAsIntegerh=Val(InputBox(鸡和兔的总头数,请输入,0))f=Val(InputBox(鸡和兔的总脚数(偶数),请输入,0))X=(4*h-f)/2Y=(f-2*h)/2MsgBox则笼中鸡有&X&只，兔有&Y&只。EndSub运行结果：5.使用Len()函数、LenB()函数、Rnd函数和Randomize语句、Shell函数，并对运行结果进行分析。（1）Len()函数、LenB()函数程序：PrivateSubCommand7_Click()ClsPrintLen(欢迎使用VB)EndSubPrivateSubCommand8_Click()ClsPrintLenB(欢迎使用VB)EndSub运行结果：Len()函数LenB()函数分析：Len()函数是测量字符串的长度，以字节为单位LenB()函数是测量字符串所占的字节数（2）Rnd函数和Randomize语句程序：PrivateSubCommand9_Click()PrintInt(100*Rnd)EndSubPrivateSubCommand10_Click()RandomizePrintInt(100*Rnd)EndSub运行结果：Rnd函数Randomize分析：Rnd函数在程序关闭后再次打开输出的值是一样的Randomize始终变化PrivateSubCommand11_Click()Shellcmd/123.txtEndSub