vb实验报告范本docWord格式文档下载.docx
《vb实验报告范本docWord格式文档下载.docx》由会员分享，可在线阅读，更多相关《vb实验报告范本docWord格式文档下载.docx（35页珍藏版）》请在冰豆网上搜索。
8
循环结构程序设计及动态数组的应用
9
综合实例
（一）
10
综合实例
（二）
计算机与信息学院专业：
计算机应用技术年级：
05级
姓名：
洪景泉学号：
051893067计算机号67
实验时间：
2007、3、28实验地点：
综南附307指导教师签字：
黄红兵
实验一VisualBasic环境和程序设计的初步
一、实验目的和要求
1、了解VisualBasic系统对计算机软件、硬件的要求。
2、掌握启动与退出VisualBasic的方法。
3、熟悉VisualBasic的集成开发环境（IDE）。
4、掌握在窗体上添加控件的各种方法。
5、掌握建立、编辑、运行和保存一个简单的VisualBasic应用程序的全过程。
二、实验内容和原理
1、熟悉工具箱上的标准控件以及窗体设计器和工程管理器窗口、属性窗口、代码窗口的功能、组成以及它们各种不同的打开方法。
2、在窗体上画一文本框个一个命令按钮，在文本框中显示“VB程序设计”，然后执行如下操作：
（1）编写适当事件过程，当单击命令按钮时，文本框内容消失。
（2）单击“文件”—“生成工程”并退出。
在windows环境下运行该工程。
用户界面：
实验代码：
PrivateSubCommand1_Click（）
Text1.Text="
"
EndSub
3、创建一个“标准EXE”类型的应用程序。
要求：
程序运行时在屏幕上显示“欢迎您的到来！
”，并输入您的名字。
当按回车键时弹出对话框如下所示：
代码：
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
MsgBox"
欢迎"
+Text1.Text+"
的到来"
EndIf
4、创建如图所示的应用程序，要求：
单击“确定”按钮后，第一个文本框显示系统日期，第二个文本框显示星期。
单击“退出”按钮则退出应用程序。
DimsumAsInteger
sum=Weekday（Now）
Text1.Text=Date
SelectCasesum
Case1
Text2.Text="
日"
Case2
一"
Case3
二"
Case4
三"
Case5
四"
Case6
五"
Case7
六"
EndSelect
PrivateSubCommand2_Click（）
End
三、总结
通过本次实验熟悉了VisualBasic的集成开发环境（IDE）。
掌握在窗体上添加控件的各种方法。
掌握建立、编辑、运行和保存一个简单的VisualBasic应用程序的全过程。
2007、4、4实验地点：
实验二顺序程序设计
1.掌握常用内部函数的使用
2.掌握表达式 赋值语句的正确书写规则
3.掌握InpueBox和MsgBox的使用
1.创建如图所示的应用程序，要求：
单击窗体显示如图所示的图形。
PrivateSubForm_click（）
DimiAsInteger
DimjAsInteger
Fori=1To9
Forj=1Toi
Ifi=9Orj=1Ori=jThen
Print"
※"
;
Else
PrintSpc
（2）;
Nextj
Print
Nexti
2.创建如图所示的应用程序，要求：
单击“放大”按钮后，将文本中显示的字符串放大２--３倍；
若单击按钮“还原”按钮。
则将文本框显示的字符串大小返原。
Dimx
Dimy
y=Text1.FontSize
x=Int（Rnd*2+2）
Text1.FontSize=x*y
Text1.FontSize=y
3.创建如图的应用程序，要求：
单击“确定”按钮后，弹出“是否继续”，若单击“是”，则文本框显示：
“您按下的按钮是‘是’”；
若单击按钮“否”，则文本框显示：
“您按下的是‘否’”。
单击“结束”，则退出应用程序。
DimxAsInteger
x=MsgBox（"
是否继续"
20,"
MsgBox信息显示窗口"
）
Ifx=vbYexThen
Text1.Text="
您按下的按钮是“是”"
您按下的按钮是“否”"
Text1.FontBold=True
End
通过本次实验掌握常用内部函数的使用，表达式 赋值语句的正确书写规则以及InpueBox和MsgBox的使用
2007、4、11实验地点：
实验三选择结构程序设计
1、掌握If条件语句的使用。
2、掌握情况语句的使用，以及情况语句与多分支条件语句的使用区别。
1、请编一程序用于在期未时根据学生总分情况给予奖励，条件如下：
四门总分不低于360（含360分），特等奖；
四门总分320分（含320分）~360分（不含360分），优秀奖；
单科成绩不低于95分，特别奖。
Dimt1,t2,t3,t4,sum
IfIsNumeric（Text1.Text）AndIsNumeric（Text2.Text）AndIsNumeric（Text3.Text）AndIsNumeric（Text4.Text）Then
t1=Val（Text1.Text）
t2=Val（Text2.Text）
t3=Val（Text3.Text）
t4=Val（Text4.Text）
sum=t1+t2+t3+t4
Label3.Caption=sum
Ifsum>
=360Then
您获得了特等奖"
64,"
获奖通知"
ElseIfsum>
=320Andsum<
360Then
您获得了优秀奖"
ElseIft1>
=95Ort2>
=95Ort3>
=95Ort4>
=95Then
您获得了特别奖"
您要好好努力了！
通知"
Else
请输入数字"
16
EndIf
Text2.Text="
Text3.Text="
Text4.Text="
Label3.Caption="
2.输入X，Y，Z三个数，按从小到大的次序显示出来，运行结果如图：
程序中不得使用循环结构和转向语句；
掌握两个数交换的方法
程序界面：
Dimx,y,z,t
IfKeyAscii="
13"
Then
x=Val（Trim（Text1.Text））
Text2.SetFocus
Text4.Text=x
PrivateSubText2_KeyPress（KeyAsciiAsInteger）
y=Val（Trim（Text2.Text））
Ifx>
yThen
t=x
x=y
y=t
Text3.SetFocus
Text5.Text=y
EndSub
PrivateSubText3_KeyPress（KeyAsciiAsInteger）
z=Val（Trim（Text3.Text））
Ifz<
yAndz>
=xThen
Text5.Text=z
Text6.Text=y
ElseIfz<
xThen
Text4.Text=z
Text5.Text=x
Text6.Text=z
通过本次实验掌握If条件语句的使用，情况语句的使用以及情况语句与多分支条件语句的使用。
2007、4、18实验地点：
实验四循环结构程序设计及数组的运用
1、掌握FOR语句的使用。
2、掌握DO语句的各种形式的使用。
3、掌握如何控循环条件，防止死循环或不循环。
4、掌握数组的声明以及数组元素的使用差别。
5、掌握静态数组和动态数组的使用差别。
6、应用数组解决与数组有关的常用算法问题。
1、编程计算1-2+3-4+5-6+……+n的值，其中n由文本框输入，要求掌握FOR语句的正确使用。
OptionExplicit
DimnAsInteger
Dimi,sAsInteger
DimkAsInteger
k=1
s=0
IfKeyAscii="
n=Val（Trim（Text1.Text））
Fori=1Ton
s=s+i*k
k=-k
Next
Label1.Caption="
1-2+3-4+...-"
+Str（n）+"
="
+Str（s）
2．随机产生10个1~10的正整数（包括1，10），求最大值、最小值和平均值，并显示整个数组的值。
DimxAsInteger
Dima（10）AsInteger
DimiAsInteger,maxAsInteger,minAsInteger
Fori=1To10
a（i）=Int（Rnd*10）+1
PrintSpc（3）;
a（i）;
max=a
（1）
min=a
（1）
Ifmax<
=a（i）Then
max=a（i）
Ifmin>
min=a（i）
sum=sum+a（i）
Text1.Text=max
Text2.Text=min
Text3.Text=sum/10
4.在窗体上显示给定行的杨辉三角形。
PrivateiAsInteger,jAsInteger
PrivatexAsInteger,nAsInteger
Privatea（）
Subfunct（）
Fori=1Ton
Forj=1Ton
Ifi=jOrj=1Then
a（i,j）=1
a（i,j）=a（i-1,j-1）+a（i-1,j）
Nexti
PrintSpc（n-i）;
Printa（i,j）;
PrivateSubForm_Click（）
n=CInt（InputBox（"
请输入行数"
））
ReDima（n,n）
Callfunct
通过本次实验掌握循环语句的使用，数组的声明以及数组元素的使用。
掌握了静态数组和动态数组的使用差别。
2007、4、25实验地点：
实验五过程
1、掌握自定义函数过程和子过程的定义和调用方法。
2、掌握形参和实参的对应关系。
3、掌握值传递和地址传递的传递方式。
4、掌握递归的概念和使用方法。
1.编程计算1+X+X^2+……+X^n的子过程和函数过程，并分别调用。
其中X和N的值由用户给定。
PrivateFunctionf（n,x）AsLong
DimiAsInteger,sumAsLong
Fori=0Ton
sum=sum+x^i
f=sum
EndFunction
SubFormClick（）
Label1.Caption="
1+"
&
x&
"
+"
^"
2&
+┅+"
n&
Text1.Text=f（n,x）
PrivateSubForm_Load（）
x=CInt（InputBox（"
请输入底数X"
n=CInt（InputBox（"
请输入指数n"
FormClick
2.编写函数S（MASInteger，NASInteger）asLong,此函数返回m+mm+mmm
……+mm……m（n个m）的值。
DimmAsInteger,nAsInteger
n=InputBox（"
请输入个数n"
m=InputBox（"
请输入m"
Label1.Caption=m&
（m*10+m）&
+...+"
m&
..."
Text1.Text=s（m,n）
Functions（mAsInteger,nAsInteger）AsLong
DimiAsInteger,kAsLong,sumAsLong
k=m
sum=0
sum=sum+k
k=k*10+m
s=sum
通过本次实验掌握了自定义函数过程和子过程的定义和调用方法，掌握值传递和地址传递的传递方式以及递归的概念和使用方法。
2007、5、9实验地点：
实验六窗体和常用控件
（一）
掌握窗体与常用控件的重要属性、事件和方法。
1、在窗体上建立3个文本框和一个命令按钮。
程序运行后，单击命令按钮，在第一个文本框中显示由Command1_click事件过程设定的内容，同时在第二、第三个文本框中分别用大写字母和小写字母显示第一个文本框中的内容。
TextCommandImage"
Text2.Text=UCase（Text1.Text）
Text3.Text=LCase（Text1.Text）
3.设计一个界面程序，要求程序能实现界面上所指示的编辑操作和字体设置功能。
PrivateSubCheck1_Click（IndexAsInteger）
IfCheck1（0）.Value=vbCheckedThen
Text1.FontName="
黑体"
宋体"
IfCheck1
（1）.Value=vbCheckedThen
Text1.FontItalic=True
Text1.FontItalic=False
IfCheck1
（2）.Value=vbCheckedThen
Text1.FontUnderline=True
Text1.FontUnderline=False
PrivateSubOption1_Click（IndexAsInteger）
DimkAsString
k=Text1.Text
IfOption1（0）.ValueThen
Clipboard.Clear
Clipboard.SetTextk
IfOption1
（1）.ValueThen
IfOption1
（2）.ValueThen
Text1.Text=Text1+Clipboard.GetText
2、设计一个界面程序，要求程序运行时选中组合框中的某一项，将弹出如下对话框加以说明。
PrivateSubCombo1_Click（）
Dimexp1AsString
exp1="
我的兴趣爱好是"
+Combo1.Text
MsgBoxexp1,,"
兴趣爱好"
Combo1.AddItem"
音乐"
美术"
体育"
上网"
旅游"
3、在窗体上画一个名称为HIS的水平滚动条和三个名称分别为c1,c2,c3，标题分别为“左端”、居中、右端的命令按钮。
请编写适当的事件过程，使得在运行后，如果单击“左端”，命令时则滚动框位于滚动条最左端处；
如果单击“右端”则滚动框位于滚动条最右端处；
如果单击“居中”则滚动框位于滚动条中间处
HScroll1.Value=0
HScroll1.Value=50
PrivateSubCommand3_Click（）
HScroll1.Value=100
通过本次实验掌握了窗体与常用控件的重要属性、事件和方法。
2007、5、16实验地点：
实验七常用控
升级会员 