VB实验一 实验报告.docx
《VB实验一 实验报告.docx》由会员分享，可在线阅读，更多相关《VB实验一 实验报告.docx（12页珍藏版）》请在冰点文库上搜索。
VB实验一实验报告
实验报告一
课程
VB程序设计
实验项目
VisualBasic环境
顺序选择程序设计（4学时）
成绩
专业班级
土木工程1306班
指导教师
姓名
学号
实验日期
实验目的
（1）熟悉VisualBasic6.0集成开发环境
（2）掌握VisualBasic程序的开发过程，能够运行一个完整的VisualBasic程序
（3）掌握常用函数的使用方法
（4）掌握常用输入、输出语句
实验内容
一、VB环境和顺序结构
【实验1】设计一个简单VB程序（20分）
它由一个窗体、一个文本框和3个命令按钮组成。
窗体的标题为"VisualBaidc程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用VisualBasic6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。
通过该程序熟悉VB的界面，了解VB的工作原理：
事件驱动
实验结果：
【请将你的代码粘贴到下面】
PrivateSubCommand1_Click（）
Cls
Form1.Caption="你好"
Text1.Text="欢迎使用visualbasic"
EndSub
PrivateSubCommand2_Click（）
Cls
Text1.Text=""
Form1.Caption=""
EndSub
PrivateSubCommand3_Click（）
End
EndSub
【请将你的典型结果的截图粘贴到下面】
【实验2】分别定义八个变量，变量名为：
var1、var2、var3、var4、var5、var6、var7、var8，变量的数据类型依次定义为：
字符串型、整型、长整型、单精度浮点型、双精度浮点型、货币型、布尔型和日期型。
按照图2-2给出的形式为八个变量赋值，并按照图2-4的样式进行输出。
（20分）
通过该程序掌握变量的定义、变量名与变量值的含义。
实验结果：
【请将你的代码粘贴到下面】
PrivateSubForm_Click（）
Dimvar1AsString
var1="HelloWord"
Dimvar2AsInteger
var2=1000
Dimvar3AsLong
var3=300000
Dimvar4AsSingle
var4=1.005
Dimvar5AsDouble
var5=3.1415926
Dimvar6AsCurrency
var6=100.1234
Dimvar7AsBoolean
var7=True
Dimvar8AsDate
var8=#1/5/2015#
Form2.Print
Form2.Print"变量名:
","var1","var2","var3","var4"
Form2.Print"变量值:
",var1,var2,var3,var4
Form2.Print"变量类型:
","String","Integer","Long","Single"
Form2.Print
Form2.Print"变量名:
","var5","var6","var7","var8"
Form2.Print"变量值:
",var5,var6,var7,var8
Form2.Print"变量类型:
","Double","Currency","Boolean","Date"
EndSub
【请将你的典型结果的截图粘贴到下面】
【实验3】编写程序，其功能为输入三角形的三边，求三角形的面积。
计算公式为：
S=（a+b+c）/2，面积=sqr（s*（s-a）*（s-b）*（s-c））（20分）
通过该程序掌握计算类程序的结构、赋值语句的使用
程序界面如下所示
实验结果：
【请将你的代码粘贴到下面】
PrivateSubCommand1_Click（）
DimaAsSingle
DimbAsSingle
DimcAsSingle
a=Text1.Text
b=Text2.Text
c=Text3.Text
DimsAsSingle
s=（a+b+c）/2
DimssAsSingle
ss=Sqr（s*（s-a）*（s-b）*（s-c））
Text4.Text=ss
EndSub
PrivateSubCommand2_Click（）
End
EndSub
【请将你的典型结果的截图粘贴到下面】
【实验4】编写如图2-10所示的一个求“倒序数”的程序。
“倒序数”指的是：
如产生的数为“1234”，那么与之对应的倒序数就是“4321”。
点击“生成”按钮，分别在文本框一中随机生成一个2位整数，在文本框二中随机生成一个3位整数，在文本框三中随机生成一个4位整数。
然后点击“求倒序数”按钮，分别在文本框四、文本框五、文本框六中输出其对应的倒序数。
（20分）
通过该程序掌握常见函数的使用
实验结果：
【请将你的代码粘贴到下面】
第一种：
PrivateSubCommand1_Click（）
Dimi%
i=Int（Rnd*99）+1
Text1.Text=i
i=Int（Rnd*999）+1
Text2.Text=i
i=Int（Rnd*9999）+1
Text3.Text=i
EndSub
PrivateSubCommand2_Click（）
Text4.Text=StrReverse（Text1.Text）
Text5.Text=StrReverse（Text2.Text）
Text6.Text=StrReverse（Text3.Text）
EndSub
第二种：
PrivateSubCommand1_Click（）
Dimi%
i=Int（Rnd*99）+1
Text1.Text=i
i=Int（Rnd*999）+1
Text2.Text=i
i=Int（Rnd*9999）+1
Text3.Text=i
EndSub
PrivateSubCommand2_Click（）
Dimt1,t2,t3AsString
DimnewT1,newT2,newT3AsString
t1=Text1.Text
t2=Text2.Text
t3=Text3.Text
newT1=Right（t1,1）+Left（t1,1）
newT2=Right（t2,1）+Mid（t2,2,1）+Left（t2,1）
newT3=Right（t3,1）+Mid（t3,3,1）+Mid（t3,2,1）+Left（t3,1）
Text4.Text=newT1
Text5.Text=newT2
Text6.Text=newT3
EndSub
第三种：
PrivateSubCommand1_Click（）
Dimi%
i=Int（Rnd*99）+1
Text1.Text=i
i=Int（Rnd*999）+1
Text2.Text=i
i=Int（Rnd*9999）+1
Text3.Text=i
EndSub
PrivateSubCommand2_Click（）
Dimt1,t2,t3AsInteger
DimnewT1,newT2,newT3AsString
t1=Text1.Text
t2=Text2.Text
t3=Text3.Text
newT1=（t1Mod10）&（t1\10）
newT2=（t2Mod10）&（（t2Mod100）\10）&（t2\100）
newT3=（t3Mod10）&（（t3Mod100）\10）&（（t3\100）Mod10）&（t3\1000）
Text4.Text=newT1
Text5.Text=newT2
Text6.Text=newT3
EndSub
【请将你的典型结果的截图粘贴到下面】
【实验5】参照图2-15所示的内容，编写一个由Print方法及其相关格式函数进行输出的程序。
使用不同的分隔符（即：
逗号或分号）或者格式输出函数（即：
Tab（）、Spc（）、Format（）、Space（））来控制Print方法输出的格式。
（20分）
通过该程序掌握print方法及格式函数的使用
实验结果：
【请将你的代码粘贴到下面】
PrivateSubForm_Click（）
Form1.Print
Form1.PrintSpc
（1）;"NO.","Name","Dept."
Form1.Print"========================================"
Form1.PrintSpc
（1）;Format$（1,"000#"）,"Lucy","Finance"
Form1.PrintSpc
（1）;Format$（2,"000#"）,"Paul","Finance"
Form1.PrintSpc
（1）;Format$（3,"000#"）,"Jim","Finance"
Form1.PrintSpc
（1）;Format$（4,"000#"）,"Jacob","Finance"
Form1.Print"========================================"
Form1.PrintSpc
（1）;Format$（5,"000#"）,"Lily","Personnel"
Form1.PrintSpc
（1）;Format$（6,"000#"）,"Steven","Personnel"
Form1.PrintSpc
（1）;Format$（7,"000#"）,"Bruce","Personnel"
Form1.Print"========================================"
Form1.PrintSpc
（1）;Format$（8,"000#"）,"David","Technology"
Form1.PrintSpc
（1）;Format$（9,"000#"）,"Gray","Technology"
Form1.PrintSpc
（1）;Format$（10,"000#"）,"Kala","Technology"
EndSub
【请将你的典型结果的截图粘贴到下面】
实验小结
1.遇到的问题：
2.对课程的建议：
升级会员 