Dimx%，x１%, x２%，ｘ3%
ｘ= Vａl(Tｅxt1.Tｅxｔ）
x1 = xMod 10
x2 = (x Mod１０0) \ 10
ｘ3 = x \ 100
Ｌabeｌ1 = x1*１０0＋x2 *10 + x3
EndSub
PrivａteＳub Comｍand2_Ｃｌick()
a=３.14
Ｔｅxt3．Teｘt＝２* a*Ｔext1.Teｘt
ＥnｄＳｕb
PrivateＳｕｂCoｍmand3_Cｌｉｃk()
a＝3．14
Ｔexｔ4.Tｅxt =4 / 3 *a* Texｔ1．Texｔ* Text1.Text *Tｅxt１.Teｘt
3、teｘt的fonｔｓｉｚe设置为“一号”
五、实验结果
《ＶB程序设计》实验单元一
实验报告
专业班级：网媒1403班姓名凌紫怡学号２指导教师:王自强完成时间: 2０1５年3月2１日星期六
实验一VＢ环境和可视化编程基础
二、实验目的
1 了解Visｕal Basic的安装
2 掌握启动与退出Vｉsual Basｉc
3 掌握建立、编辑和运行一个简单应用程序的全过程
４ 掌握基本控件的使用
二、实验环境
ＶB6.０
三、实验内容
２、命令按钮、字号、内容和格式的复制练习。
按钮1：使得Tｅｘｔ1中的文本按要求改变。
按钮2:将Teｘt1中选定的文本复制到Teｘt２.
控件名
属性
Fｏrm１
Cａption＝”实验2”
Label1
复制文本
一、实验目的
1 了解Vｉsｕal Basiｃ的安装
2 掌握启动与退出Viｓual Bａｓiｃ
3 掌握建立、编辑和运行一个简单应用程序的全过程
4 掌握基本控件的使用
二、实验环境
VB６.0
三、实验内容
1、编写一程序,在文本框中统计在该窗口上鼠标单击的次数。
提示:对窗口编写两个事件:Forｍ_Lｏaｄ事件对文本框初值设为空；Forｍ_Ｃliｃｋ事件对文本框计数。对文本框计数：Tｅxｔ1=Vaｌ(text1)+１。
提示:利用“Mｏｄ”和“\”将一个3位数分离出3个1位数,然后连接成一个逆序的3位数。
四、实验步骤
1、绘制一个text，并编写程序代码：
Ｐｒｉvａte Sub Teｘt1_Chａｎge()
Label1= "＂
End Sｕb
2、绘制一个laｂel,labｅｌ的ｂｏrdersｔｙle属性为１－fｉｘedsingle
Tｅｘt2．FontSize = Teｘｔ1.FontSｉze
Ｅｎd Sub
五、实验结果
实验二VB语言基础和顺序结构
一、实验目的
1、掌握正确书写表达式、赋值语句的规则
2、掌握常用函数的使用
３、掌握InｐｕtBｏx与MsgＢox的使用
4、掌握Print和Ｆormat的使用
二、实验环境
ＶB6.０
三、实验内容
PrivateSuｂCoｍmaｎｄ1_Cｌick（）
Tｅxt1．FontＮａme＝"隶书"
Teｘt1．FｏnｔＳiｚe = "25"
EｎｄSｕb
Pｒiｖａte SｕbＣommand2_Cｌick()
Teｘt2.Teｘt =Ｔeｘｔ1．SelTeｘt
Tｅxt2.ＦonｔName＝Tｅxt１.ＦontNａme
2、绘制两个text。
Priｖａte Suｂ Teｘｔ1_Click（）
Text１.Tｅxt = "ＶB功能强大，但要下功夫学习才能学好。"
Enｄ Sub
Pｒivate Ｓｕb Teｘt2_click()
Text2.Text = ""
Eｎd Ｓub
3、以及两个Cｏmmaｎd。Coｍmand１的caption输入“隶书25磅”；Ｃommａｎd2的caｐｔiｏｎ输入“复制=>”。
Eｎd Sｕb
五、实验结果
实验二VＢ语言基础和顺序结构
一、实验目的
1、掌握正确书写表达式、赋值语句的规则
2、掌握常用函数的使用
3、掌握ＩnputＢox与MsgBox的使用
4、掌握Prｉnt和Foｒmａt的使用
二、实验环境
ＶB6.0
三、实验内容
2、随机产生一个3位正整数,然后逆序输出，产生的随机数与逆序数同时显示。例如73５,输出537.
《VB程序设计》实验单元一
———————————————————————————————— 作者：
———————————————————————————————— 日期:
ﻩ
《VB程序设计》实验单元一
实验报告
专业班级：姓名学号指导教师:王自强完成时间：201５年3月2１日星期六
实验 一VＢ环境和可视化编程基础
3、绘制两个ｃｏmｍａnｄ，ｃommand1的captioｎ命名为“产生”;coｍｍａnｄ2的captiｏｎ命名为“逆序”
并且编写程序为:
Privaｔe Sub Command1＿Click()
Tｅｘt1．Texｔ=Ｉnt（Rnｄ* 9０0+1０0)
EnｄSub
ＰriｖatｅSubCｏmｍaｎｄ2＿Click()
3、绘制三个comｍａnd，ｃommａnd1的cａptiｏn为“圆的面积”；ｃoｍmａｎd2的caption为“圆的周长”；cｏmmａｎd3的capｔion为“圆的体积”。
编写程序代码为:
PrｉvatｅSubＣommaｎd１_Ｃliｃｋ()
a= 3.１4
Tｅｘt２.Tｅxt =ａ* Tｅxt1.Text＊Teｘt1.Ｔexｔ
1、输入半径的值,分别计算并输出圆的面积、圆的周长和球的体积。
四、实验步骤
1、绘制一个laｂeｌ,caｐtion为r。
2、绘制四个text,编写程序代码为:
Priｖate Sub Text1_Chaｎｇe(）
Texｔ2．Teｘt＝""
Tｅxt3.Tｅxｔ= "＂
Text4．Tｅxt＝"＂
EnｄSub
四、实验步骤
1、绘制Ｌabel1的caｐtｉon输入“你单击窗体的次数：”
2、绘制texｔ。编程为：Pｒiｖate SubＦorm_Cｌicｋ()
Text1.Teｘt = Vａl(Texｔ1.Texｔ)＋1
EndＳub
PrivatｅSub Fｏrm_Loaｄ()
Tｅxt1.Text = "＂
End Suｂ
Labｅｌ2
输入文本
Text1
Text=“VB功能强大,但要下功夫学习才能学好。”
Text2
Texｔ=””
Coｍｍaｎｄ1
Captioｎ＝”隶书25磅”
Commａnd2
Capｔion=”复制=>”
四、实验步骤
1、labeｌ1的captioｎ输入“复制效果”；lａbel2的cａption输入“输入文本”。