VB实验报告一

1、本科实验报告课程名称： 人机界面程序设计基础 实验项目： 一、VB环境和可视化编程基础 实验地点： 多学科综合楼 专业班级： 自动化0905 学号： 学生姓名： 闫海涛 指导教师： 李何 2012年 12 月 12 日一、实验目的和要求1、掌握启动与退出Visual Basic的方法。2、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。3、掌握定义变量、常量的方法；了解运算符和表达式的使用；熟悉内部函数。4、掌握基本控件的应用。二、实验内容和原理1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。提示：使用Form_Click事件；文本框计数Text1=Val(Te

2、xt1)+1。2、使用Print方法，掌握“，”和“；”的区别；以及Spc（n）函数、Tab(n)函数、属性Current X和Current Y的定位输出。3、编写一程序，在标签上实时显示系统时间，系统时间要求00:00:00AM/PM格式提示：使用Timer控件、Format函数和Now函数。4、对教材上例4-13进行改动，用输入框函数完成输入，用消息框函数显示结果。5、使用Len()函数、LenB()函数、Rnd函数和Randomize语句、Shell函数，并对运行结果进行分析。三、主要仪器设备 计算机四、实验结果与分析Form1的界面编写一程序，在文本框中统计在该窗口上鼠标单击的次数。

3、程序 Private Sub Form_Click()Text1 = Val(Text1) + 1End Sub点击一次后(2)点击两次后2. 使用Print方法，掌握“，”和“；”的区别；以及Spc（n）函数、Tab(n)函数、属性Current X和Current Y的定位输出(1)使用Print方法，掌握“，”和“；”的区别；程序：Private Sub Command2_Click()ClsPrint 末尾无符号 Print 末尾有, ,Print 末尾有; ;Print 结束 End Sub运行结果：分析：若print 后无“，”和“；”则换行若print 后“，”则空过一个Tab距

4、离若print后 “；”则紧接着输出（2）Spc（n）函数、Tab(n)函数程序：Private Sub Command3_Click()ClsPrint 空过三个空格; Spc(3); 结束 End Sub运行结果：分析：语句空过3个空格（3）属性Current X和Current Y的定位输出。程序：Private Sub Command5_Click()ClsCurrentX = 1000CurrentY = 1000 Print 输出位置1000,1000End Sub运行结果：分析：输出位置为（1000,1000）3.编写一程序，在标签上实时显示系统时间，系统时间要求00:00:00

5、AM/PM格式程序：Private Sub Timer1_Timer()Label2.Caption = Format(Time, tttttAM/PM)End Sub运行结果：4对教材上例4-13进行改动，用输入框函数完成输入，用消息框函数显示结果。程序：Private Sub Form_Load()Label2.Caption = Format(Time, tttttAM/PM)Label3.Caption = 鸡有2只脚，兔有4只脚，鸡兔同笼。Label4.Caption = 设笼中鸡和兔的总头数为h，总脚数为f。Label5.Caption = 问笼中鸡有多少只？兔有多少只？Comma

6、nd6.Caption = 输入h和f的值End SubPrivate Sub Command6_Click() Dim h As Integer, f As Integer h = Val(InputBox(鸡和兔的总头数, 请输入, 0) f = Val(InputBox(鸡和兔的总脚数(偶数), 请输入, 0) X = (4 * h - f) / 2 Y = (f - 2 * h) / 2 MsgBox 则笼中鸡有 & X & 只，兔有 & Y & 只。End Sub运行结果：5使用Len()函数、LenB()函数、Rnd函数和Randomize语句、Shell函数，并对运行结果进行分析

7、。（1）Len()函数、LenB()函数程序：Private Sub Command7_Click()ClsPrint Len(欢迎使用VB)End SubPrivate Sub Command8_Click()ClsPrint LenB(欢迎使用VB)End Sub运行结果：Len()函数LenB()函数分析：Len()函数是测量字符串的长度，以字节为单位LenB()函数是测量字符串所占的字节数（2）Rnd函数和Randomize语句程序：Private Sub Command9_Click()Print Int(100 * Rnd)End SubPrivate Sub Command10_Click()RandomizePrint Int(100 * Rnd)End Sub