优质vb实验报告范本doc推荐word版 21页.docx
- 文档编号:795784
- 上传时间:2022-10-13
- 格式:DOCX
- 页数:17
- 大小:21.30KB
优质vb实验报告范本doc推荐word版 21页.docx
《优质vb实验报告范本doc推荐word版 21页.docx》由会员分享,可在线阅读,更多相关《优质vb实验报告范本doc推荐word版 21页.docx(17页珍藏版)》请在冰豆网上搜索。
优质vb实验报告范本doc推荐word版21页
本文部分内容来自网络整理,本司不为其真实性负责,如有异议或侵权请及时联系,本司将立即删除!
==本文为word格式,下载后可方便编辑和修改!
==
vb实验报告范本.doc
福建农林大学计算机与信息学院
课程名称:
姓名:
系:
专业:
年级:
学号:
指导教师:
职称:
(程序设计类课程)
实验报告
VisualBasic程序设计教程洪景泉
计算机与信息学院
计算机应用技术05级051893067黄红兵讲师201X年6月2日
实验项目列表
系:
计算机与信息学院专业:
计算机应用技术年级:
05级姓名:
洪景泉学号:
051893067计算机号67实验时间:
201X、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+"的到来"EndIfEndSub
4、创建如图所示的应用程序,要求:
单击“确定”按钮后,第一个文本框显示系统日期,
第二个文本框显示星期。
单击“退出”按钮则退出应用程序。
用户界面:
实验代码:
PrivateSubCommand1_Click()DimsumAsIntegersum=Weekday(Now)Text1.Text=DateSelectCasesumCase1
Text2.Text="日"Case2
Text2.Text="一"Case3
Text2.Text="二"Case4
Text2.Text="三"Case5
Text2.Text="四"Case6
Text2.Text="五"Case7
Text2.Text="六"EndSelect
EndSub
PrivateSubCommand2_Click()EndEndSub
三、总结
通过本次实验熟悉了VisualBasic的集成开发环境(IDE)。
掌握在窗体上添加控件的各种方法。
掌握建立、编辑、运行和保存一个简单的VisualBasic应用程序的全过程。
系:
计算机与信息学院专业:
计算机应用技术年级:
05级姓名:
洪景泉学号:
051893067计算机号67实验时间:
201X、4、4实验地点:
综南附307指导教师签字:
黄红兵
实验二顺序程序设计
一、实验目的和要求
1.掌握常用内部函数的使用
2.掌握表达式赋值语句的正确书写规则3.掌握InpueBox和MsgBox的使用
二、实验内容和原理
1.创建如图所示的应用程序,要求:
单击窗体显示如图所示的图形。
用户界面:
DimiAsInteger
DimjAsIntegerFori=1To9Forj=1Toi
Ifi=9Orj=1Ori=jThenPrint"※";Else
PrintSpc
(2);EndIfNextj
实验代码:
NextiPrivateSubForm_click()EndSub
2.创建如图所示的应用程序,要求:
单击“放大”按钮后,将文本中显示的字符串放大2--3倍;若单击按钮“还原”按钮。
则将文本框显示的字符串大小返原。
用户界面:
实验代码:
DimxDimy
PrivateSubCommand1_Click()y=Text1.FontSizex=Int(Rnd*2+2)Text1.FontSize=x*yEndSub
PrivateSubCommand2_Click()Text1.FontSize=yEndSub
3.创建如图的应用程序,要求:
单击“确定”按钮后,弹出“是否继续”,若单击“是”,则文本框显示:
“您按下的按钮是‘是’”;若单击按钮“否”,则文本框显示:
“您按下的是‘否’”。
单击“结束”,则退出应用程序。
用户界面:
实验代码:
PrivateSubCommand1_Click()DimxAsInteger
x=MsgBox("是否继续",20,"MsgBox信息显示窗口")Ifx=vbYexThen
Text1.Text="您按下的按钮是“是”"Else
Text1.Text="您按下的按钮是“否”"EndIf
Text1.FontBold=TrueEndSub
PrivateSubCommand2_Click()EndEndSub
三、总结
通过本次实验掌握常用内部函数的使用,表达式赋值语句的正确书写规则以及InpueBox和MsgBox的使用
系:
计算机与信息学院专业:
计算机应用技术年级:
05级姓名:
洪景泉学号:
051893067计算机号67实验时间:
201X、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)Thent1=Val(Text1.Text)t2=Val(Text2.Text)t3=Val(Text3.Text)t4=Val(Text4.Text)sum=t1+t2+t3+t4Label3.Caption=sumIfsum>=360Then
MsgBox"您获得了特等奖",64,"获奖通知"ElseIfsum>=320Andsum<360Then
MsgBox"您获得了优秀奖",64,"获奖通知"
ElseIft1>=95Ort2>=95Ort3>=95Ort4>=95ThenMsgBox"您获得了特别奖",64,"获奖通知"
Else
MsgBox"您要好好努力了!
",64,"通知"EndIf
Label3.Caption=sumElse
MsgBox"请输入数字",16EndIfEndSub
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.SetFocusEndIf
Text4.Text=xEndSub
PrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii="13"Then
y=Val(Trim(Text2.Text))Ifx>yThent=xx=y
y=tEndIf
Text3.SetFocusEndIf
Text4.Text=xText5.Text=yEndSub
PrivateSubText3_KeyPress(KeyAsciiAsInteger)IfKeyAscii="13"Then
z=Val(Trim(Text3.Text))Ifz Text6.Text=zEndIfEndIfEndSub 三、总结 通过本次实验掌握If条件语句的使用,情况语句的使用以及情况语句与多分支条件语句的使用。 系: 计算机与信息学院专业: 计算机应用技术年级: 05级姓名: 洪景泉学号: 051893067计算机号67实验时间: 201X、4、18实验地点: 综南附307指导教师签字: 黄红兵 实验四循环结构程序设计及数组的运用 一、实验目的和要求 1、掌握FOR语句的使用。 2、掌握DO语句的各种形式的使用。 3、掌握如何控循环条件,防止死循环或不循环。 4、掌握数组的声明以及数组元素的使用差别。 5、掌握静态数组和动态数组的使用差别。 6、应用数组解决与数组有关的常用算法问题。 二、实验内容和原理 1、编程计算1-2+3-4+5-6+? ? +n的值,其中n由文本框输入,要求掌握FOR语句的 正确使用。 用户界面: DimkAsInteger k=1s=0 IfKeyAscii="13"Then n=Val(Trim(Text1.Text))Fori=1Tons=s+i*k 实验代码: k=-kOptionExplicitNextPrivateSubText1_KeyPress(KeyAsciiAsLabel1.Caption="
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 优质vb实验报告范本doc推荐word版 21页 优质 vb 实验 报告 范本 doc 推荐 word 21