VB实验报告一

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

2、数Text1=Val(Text1)+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 "结束

4、"End Sub运行结果：分析：若print 后 无“，”和“；”则换行若print 后“，”则空过一个Tab距离若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 = 1

5、000 Print "输出位置1000,1000"End Sub运行结果：分析：输出位置为（1000,1000）3.编写一程序，在标签上实时显示系统时间，系统时间要求00:00:00AM/PM格式程序：Private Sub Timer1_Timer()Label2.Caption = Format(Time, "tttttAM/PM")End Sub运行结果：4对教材上例4-13进行改动，用输入框函数完成输入，用消息框函数显示结果。程序：Private Sub Form_Load()Label2.Caption = Format(Time, "

6、;tttttAM/PM")Label3.Caption = "鸡有2只脚，兔有4只脚，鸡兔同笼。"Label4.Caption = "设笼中鸡和兔的总头数为h，总脚数为f。"Label5.Caption = "问笼中鸡有多少只？兔有多少只？"Command6.Caption = "输入h和f的值"End SubPrivate Sub Command6_Click() Dim h As Integer, f As Integer h = Val(InputBox("鸡和兔的总头数", &

7、quot;请输入", 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函数，并对运行结果进行分析。（1）Len()函数、LenB()函数程序：Pri

8、vate 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运行结果