文档介绍：《VB程序设计》实验单元一
实验报告
专业班级: 姓名学号指导教师: 王自强完成时间: 2015年3月21日星期六
实验一VB环境和可视化编程基础
实验目的
1 了解Visual Basic的安装
2 掌握启动与退出Visual Basic
3 掌握建立、编辑和运行一个简单应用程序的全过程
4 掌握基本控件的使用
二、实验环境
三、实验内容
1、编写一程序,在文本框中统计在该窗口上鼠标单击的次数。
提示:对窗口编写两个事件:Form_Load事件对文本框初值设为空;Form_Click事件对文本框计数。对文本框计数:Text1=Val(text1)+1 。
四、实验步骤
1、绘制Label1的caption输入“你单击窗体的次数:”
2、绘制text。编程为:
Private Sub Form_Click()
= Val() + 1
End Sub
Private Sub Form_Load()
= ""
End Sub
3、text的font size设置为“一号”
五、实验结果
《VB程序设计》实验单元一
实验报告
专业班级: 网媒1403班姓名凌紫怡学号 201424050320
指导教师: 王自强完成时间: 2015年3月21日星期六
实验一VB环境和可视化编程基础
实验目的
1 了解Visual Basic的安装
2 掌握启动与退出Visual Basic
3 掌握建立、编辑和运行一个简单应用程序的全过程
4 掌握基本控件的使用
二、实验环境
三、实验内容
2、命令按钮、字号、内容和格式的复制练****br/>按钮1:使得Text1中的文本按要求改变。
按钮2:将Text1中选定的文本复制到Text2.
控件名
属性
Form1
Caption=”实验2”
Label1
复制文本
Label2
输入文本
Text1
Text=“VB功能强大,但要下功夫学****才能学好。”
Text2
Text=””
Command1
Caption=”隶书25磅”
Command2
Caption=”复制=>”
四、实验步骤
1、label1的caption输入“复制效果”;label2的caption输入“输入文本”。
2、绘制两个text。
Private Sub Text1_Click()
= "VB功能强大,但要下功夫学****才能学好。"
End Sub
Private Sub Text2_click()
= ""
End Sub
3、mand1的caption输入“隶书25磅”;Command2的caption输入“复制=>”。
Private mand1_Click()
= "隶书"
= "25"
End Sub
Private mand2_Click()
=
=
=
End Sub
五、实验结果
实验二 VB语言基础和顺序结构
一、实验目的
1、掌握正确书写表达式、赋值语句的规则
2、掌握常用函数的使用
3、掌握InputBox与MsgBox的使用
4、掌握Print和Format的使用
二、实验环境
三、实验内容
1、输入半径的值,分别计算并输出圆的面积、圆的周长和球的体积。
四、实验步骤
1、绘制一个label,caption为r。
2、绘制四个text,编写程序代码为:
Private Sub Text1_Change()
= ""
= ""
= ""
End Sub
3、mand1的caption为“圆的面积”;command2的caption为“圆的周长”;command3的caption为“圆的体积”。
编写程序代码为:
Private mand1_Click()
a =
= a * *
End Sub
Private mand2_Click()
a =
= 2 * a *
End Sub
Private mand3_Click()
a