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