VB实验一实验报告Word文件下载.docx
《VB实验一实验报告Word文件下载.docx》由会员分享,可在线阅读,更多相关《VB实验一实验报告Word文件下载.docx(12页珍藏版)》请在冰点文库上搜索。
实验内容
一、VB环境和顺序结构
【实验1】设计一个简单VB程序(20分)
它由一个窗体、一个文本框和3个命令按钮组成。
窗体的标题为"
VisualBaidc程序设计示例"
,当用户单击命令按钮“显示”时,文本框中出现“欢迎使用VisualBasic6.0”,窗体上显示“你好”,单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容,单击命令按钮“结束”时,结束程序。
通过该程序熟悉VB的界面,了解VB的工作原理:
事件驱动
实验结果:
【请将你的代码粘贴到下面】
PrivateSubCommand1_Click()
Cls
Form1.Caption="
你好"
Text1.Text="
欢迎使用visualbasic"
EndSub
PrivateSubCommand2_Click()
"
PrivateSubCommand3_Click()
End
【请将你的典型结果的截图粘贴到下面】
【实验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"
变量值:
var1,var2,var3,var4
变量类型:
String"
Integer"
Long"
Single"
var5"
var6"
var7"
var8"
var5,var6,var7,var8
Double"
Currency"
Boolean"
Date"
EndSub
【实验3】编写程序,其功能为输入三角形的三边,求三角形的面积。
计算公式为:
S=(a+b+c)/2,面积=sqr(s*(s-a)*(s-b)*(s-c))(20分)
通过该程序掌握计算类程序的结构、赋值语句的使用
程序界面如下所示
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
End
【实验4】编写如图2-10所示的一个求“倒序数”的程序。
“倒序数”指的是:
如产生的数为“1234”,那么与之对应的倒序数就是“4321”。
点击“生成”按钮,分别在文本框一中随机生成一个2位整数,在文本框二中随机生成一个3位整数,在文本框三中随机生成一个4位整数。
然后点击“求倒序数”按钮,分别在文本框四、文本框五、文本框六中输出其对应的倒序数。
通过该程序掌握常见函数的使用
第一种:
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
Text4.Text=StrReverse(Text1.Text)
Text5.Text=StrReverse(Text2.Text)
Text6.Text=StrReverse(Text3.Text)
第二种:
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
第三种:
Dimt1,t2,t3AsInteger
newT1=(t1Mod10)&
(t1\10)
newT2=(t2Mod10)&
((t2Mod100)\10)&
(t2\100)
newT3=(t3Mod10)&
((t3Mod100)\10)&
((t3\100)Mod10)&
(t3\1000)
【实验5】参照图2-15所示的内容,编写一个由Print方法及其相关格式函数进行输出的程序。
使用不同的分隔符(即:
逗号或分号)或者格式输出函数(即:
Tab()、Spc()、Format()、Space())来控制Print方法输出的格式。
通过该程序掌握print方法及格式函数的使用
Form1.Print
Form1.PrintSpc
(1);
"
NO."
Name"
Dept."
Form1.Print"
========================================"
Format$(1,"
000#"
),"
Lucy"
Finance"
Format$(2,"
Paul"
Format$(3,"
Jim"
Format$(4,"
Jacob"
Format$(5,"
Lily"
Personnel"
Format$(6,"
Steven"
Format$(7,"
Bruce"
Format$(8,"
David"
Technology"
Format$(9,"
Gray"
Format$(10,"
Kala"
实验小结
1.遇到的问题:
2.对课程的建议: