VB程序设计实验单元一.docx

文档介绍：该【VB程序设计实验单元一 】是由【君君】上传分享，文档一共【19】页，该文档可以免费在线阅读，需要了解更多关于【VB程序设计实验单元一 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。Documentserialnumber【NL89WT-NY98YT-NC8CB-NNUUT-NUT108】
VB程序设计实验单元一
《VB程序设计》实验单元一
实验报告
专业班级:姓名学号指导教师:王自强完成时间:2015年3月21日星期六
实验一VB环境和可视化编程基础
实验目的
1了解VisualBasic的安装
2掌握启动与退出VisualBasic
3掌握建立、编辑和运行一个简单应用程序的全过程
4掌握基本控件的使用
二、实验环境

三、实验内容
1、编写一程序,在文本框中统计在该窗口上鼠标单击的次数。
提示:对窗口编写两个事件:Form_Load事件对文本框初值设为空;Form_Click事件对文本框计数。对文本框计数:Text1=Val(text1)+1。
四、实验步骤
1、绘制Label1的caption输入“你单击窗体的次数:”
2、绘制text。编程为:
PrivateSubForm_Click()
=Val+1
EndSub
PrivateSubForm_Load()
=""
EndSub
3、text的fontsize设置为“一号”
五、实验结果
《VB程序设计》实验单元一
实验报告
专业班级:网媒1403班姓名凌紫怡学号0320指导教师:王自强完成时间:2015年3月21日星期六
实验一VB环境和可视化编程基础
实验目的
1了解VisualBasic的安装
2掌握启动与退出VisualBasic
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。
PrivateSubText1_Click()
="VB功能强大,但要下功夫学****才能学好。"
EndSub
PrivateSubText2_click()
=""
EndSub
3、以及两个Command。Command1的caption输入“隶书25磅”;Command2的caption输入“复制=>”。
PrivateSubCommand1_Click()
="隶书"
="25"
EndSub
PrivateSubCommand2_Click()
=
=
=
EndSub
五、实验结果
实验二VB语言基础和顺序结构
一、实验目的
1、掌握正确书写表达式、赋值语句的规则
2、掌握常用函数的使用
3、掌握InputBox与MsgBox的使用
4、掌握Print和Format的使用
二、实验环境

三、实验内容
1、输入半径的值,分别计算并输出圆的面积、圆的周长和球的体积。
四、实验步骤
1、绘制一个label,caption为r。
2、绘制四个text,编写程序代码为:
PrivateSubText1_Change()
=""
=""
=""
EndSub
3、绘制三个command,command1的caption为“圆的面积”;command2的caption为“圆的周长”;command3的caption为“圆的体积”。
编写程序代码为:
PrivateSubCommand1_Click()
a=
=a**
EndSub
PrivateSubCommand2_Click()
a=
=2*a*
EndSub
PrivateSubCommand3_Click()
a=
=4/3*a***
EndSub
五、实验结果
实验二VB语言基础和顺序结构
一、实验目的
1、掌握正确书写表达式、赋值语句的规则
2、掌握常用函数的使用
3、掌握InputBox与MsgBox的使用
4、掌握Print和Format的使用
二、实验环境

三、实验内容
2、随机产生一个3位正整数,然后逆序输出,产生的随机数与逆序数同时显示。例如735,输出537.
提示:利用“Mod”和“\”将一个3位数分离出3个1位数,然后连接成一个逆序的3位数。
四、实验步骤
1、绘制一个text,并编写程序代码:
PrivateSubText1_Change()
Label1=""
EndSub
2、绘制一个label,label的borderstyle属性为1-fixedsingle
3、绘制两个command,command1的caption命名为“产生”;command2的caption命名为“逆序”
并且编写程序为:
PrivateSubCommand1_Click()
=Int(Rnd*900+100)
EndSub
PrivateSubCommand2_Click()
Dimx%,x1%,x2%,x3%
x=Val
x1=xMod10
x2=(xMod100)\10
x3=x\100
Label1=x1*100+x2*10+x3
EndSub
五、实验结果
实验三选择结构
一、实验目的