VB程序设计课程实验报告样本参考一.docx
《VB程序设计课程实验报告样本参考一.docx》由会员分享，可在线阅读，更多相关《VB程序设计课程实验报告样本参考一.docx（22页珍藏版）》请在冰豆网上搜索。
VB程序设计课程实验报告样本参考一
（此文档为word格式，下载后您可任意编辑修改！
）
计算机与信息学院
（VB程序设计课程）
实验报告
课程名称：
VB程序设计教程
姓名：
系：
计算机与信息学院
专业：
计算机应用技术
年级：
学号：
指导教师：
职称：
200x年xx月xx日
实验项目列表
序号
实验项目名称
成绩
指导教师
1
VB环境和程序设计初步
2
顺序程序设计
3
选择结构程序设计
4
循环结构程序设计及数组的运用
5
过程
6
窗体和常用控件
7
常用控件
8
气泡法排序程序
9
实验九
10
菜单设计和多文档界面
计算机与信息学院实验报告
（一）VisualBasic环境和程序设计的初步
一、实验目的
1、了解VisualBasic系统对计算机软件、硬件的要求。
2、掌握启动与退出VisualBasic的方法。
3、熟悉VisualBasic的集成开发环境（IDE）。
4、掌握在窗体上添加控件的各种方法。
5、掌握建立、编辑、运行和保存一个简单的VisualBasic应用程序的全过程。
二、实验内容
1、启动VisualBasic6.0,观察标题栏、菜单栏、工具栏与Microsoft其他应用程序的不同之处；熟悉各个控件以及窗体设计和工程管理器窗口、属性窗口、代码窗口的功能、组成以及它们各种不同的打开方法。
2、在窗体上画一文本框个一个命令按钮，在文本框中显示“VB程序设计”。
（1）编写适当事件过程，当单击命令按钮时，文本框内容消失。
（2）以解释方式运行程序。
（3）把程序保存。
然后关掉该工程。
装入上面建立的程序，并在窗体上增加一个命令按钮。
当单击该命令按钮，结束程序运行。
保存程序。
（4）把当前程序编译为可执行文件。
（5）生成当前工程并退出。
在windows环境下运行该工程。
3、创建一个“标准EXE”类型的应用程序。
要求：
在屏幕上显示“欢迎您的到来！
”，并请输入您的名字。
三、实验环境
MicrosoftVisualBasic6.0中文版
四、算法描述及实验步骤
1、熟悉vb的环境。
2、先创建一个文本框和命令按钮，并设置相应的代码如下：
PrivateSubForm_Load（）
Text1.Text="VB程序设计"
EndSub
PrivateSubCommand1_Click（）
Text1.Text=""
EndSub
3、创建两个标签和一个文本框。
在属性窗口设置两个标签的caption的值分别为：
欢迎你的到来！
和请留下您的尊姓大名：
，并设置相应的字体。
五、调试过程
无错误
六、实验结果
1、
2、
七、总结
答：
从中的到的知识是更了解了VB集成开发环境，掌握了在窗体上添加控件的各种方法。
（二）顺序程序设计
一、实验目的和要求
1.掌握常用内部函数的使用
2.掌握表达式，赋值语句的正确书写规则
3.掌握InpueBox和MsgBox的使用
二、实验内容和原理
1.用立即窗口试验每一个内部函数的操作，并验证数值以及日期时间的各种格式化输出方式。
2.创建如图所示的应用程序，要求：
单击窗体显示如图所示的图形。
3.创建如图所示的应用程序，要求：
单击“放大”按钮后，将文本中显示的字符串放大２~３倍；若单击按钮“还原”按钮。
则将文本框显示的字符串大小返原。
三、实验环境
MicrosoftVisualBasic6.0中文版
四、算法描述及实验步骤
1.PrivateSubForm_Click（）
PrintInt（3.3）;Spc
（1）;:
PrintInt（-5.3）;Spc
（1）;:
PrintFix（6.9）;Spc
（1）;
PrintFix（-7.6）;Spc
（1）;:
PrintRound（7.5）;Spc
（1）;:
PrintRound（-7.5）;Spc
（1）;
PrintHex（20）;Spc
（1）;:
PrintOct（20）;Spc
（1）;:
PrintAsc（"w"）;Spc
（1）;
PrintChr（70）;Spc
（1）;:
PrintVal（"132"）;Spc
（1）;:
PrintStr（122）;Spc
（1）
PrintSin（30）;Spc
（1）;:
PrintCos（30）;Spc
（1）:
PrintTan（45）;Spc
（1）;
PrintAtn（453）;Spc
（1）:
PrintAbs（-8）;Spc
（1）;:
PrintSgn（-4）;Spc
（1）
PrintSqr（4）;;Spc
（1）;:
PrintExp（6）;Spc
（1）;:
PrintLog（4）;Spc
（1）
PrintDay（Now）;Spc
（1）;:
PrintMonth（Now）;Spc
（1）;:
PrintYear（Now）;Spc
（1）;
PrintHour（Now）;Spc
（1）;:
PrintMinute（Now）;Spc
（1）;:
PrintSecond（Now）;Spc
（1）
PrintTrim（"wgx"）;Spc
（1）;:
PrintLTrim（"wgxwgx"）;Spc
（1）;:
PrintRTrim（"wgxwgx"）;Spc
（1）;
PrintLeft（"wgx",2）;Spc
（1）;:
PrintMid（"wgxwgx",2,3）;Spc
（1）;:
PrintRight（"wgxgwx",3）;Spc
（1）;
PrintLen（"wWgGxX"）;Spc
（1）;:
PrintString（3,65）;Spc
（1）;:
PrintInStr（"wgxwGX","x"）;Spc
（1）
PrintUCase（"wgx"）;Spc
（1）;:
PrintLCase（"WGX"）;Spc
（1）;
EndSub
2.PrivateSubForm_Click（）
PrintTab（20）;"*"
PrintTab（20）;"**"
PrintTab（20）;"*";Spc（4）;"*"
PrintTab（20）;"*";Spc（6）;"*"
PrintTab（20）;"*";Spc（8）;"*"
PrintTab（20）;"*";Spc（10）;"*"
PrintTab（20）;"*";Spc（12）;"*"
PrintTab（20）;"*";Spc（14）;"*"
PrintTab（20）;"*********"
EndSub
3.PrivateSubCommand1_Click（）
Text1.FontSize=12
Text1.FontSize=Int（Rnd*2+2）*Text1.FontSize
EndSub
PrivateSubCommand2_Click（）
Text1.FontSize=12
EndSub
五、实验结果
1.
2.
3.
六、总结
答:
从这节实验中掌握了常用内部函数的使用,还有表达式赋值语句的正确书写规则,掌握了Inputbox与MSGBOX的使用.
（三）选择结构程序设计
一、实验目的和要求
1.掌握If条件语句的使用。
2.掌握情况语句的使用，以及情况语句与多分支条件语句的使用区别。
二、实验内容和原理
1.请编一程序用于在期末时根据学生总分情况给于奖励，条件如下:
四门总分不低与360分（含360分），特等奖:
四门总分320（含320分）~360分（不含360分）,优秀奖:
单科成绩不低于95分,特别奖。
2.输入X,Y,Z三个数,按从小到大的次序显示出来.要求:
程序中不得使用循环结果和转向语句;掌握两个数据交换的方法。
3.编一个简易计算器的应用程序。
要求：
掌握Select语句和If语句的正确使用；掌握对输入数据合法性检验的能力和当输入有错误时出错处理的能力。
三、实验环境
MicrosoftVisualBasic6.0中文版
四、算法描述及实验步骤
1.PrivateSubCommand1_Click（）
Dimt1AsInteger
Dimt2AsInteger
Dimt3AsInteger
Dimt4AsInteger
DimsumAsInteger
t1=Val（Text1.Text）
t2=Val（Text2.Text）
t3=Val（Text3.Text）
t4=Val（Text4.Text）
sum=t1+t2+t3+t4
IfText1.Text=""OrText2.Text=""OrText3.Text=""OrText4.Text=""Then
MsgBox"请输入成绩值",0,"成绩不为空"
ElseIfsum>=360Then
MsgBox"您获得了特等奖",0,"祝贺"
ElseIfsum>=320Then
MsgBox"您获得了优秀奖",0,"祝贺"
ElseIft1>=95Ort3>=95Ort3>=95Ort4>=95Then
MsgBox"您获得了特别奖",0,"祝贺"
EndIf
Label2.Caption=t1+t2+t3+t4
Endsub
2.Dimt1AsInteger
Dimt2AsInteger
Dimt3AsInteger
DimtempAsInteger
PrivateSubPro（）
t1=Val（Text1.Text）
t2=Val（Text2.Text）
t3=Val（Text3.Text）
Ift1>t2Then
temp=t1
t1=t2
t2=temp
EndIf
Ift1>t3Then
temp=t1
t1=t3
t3=temp
EndIf
Ift2>t3Then
temp=t2
t2=t3
t3=temp
EndIf
Text4.Text=Str（t1）
Text5.Text=Str（t2）
Text6.Text=Str（t3）
EndSub
PrivateSubText1_Change（）
Text1.Text=Val（Text1.Text）
CallPro
EndSub
PrivateSubText2_Change（）
Text2.Text=Val（Text2.Text）
Pro
EndSub
PrivateSubText3_Change（）
Text3.Text=Val（Text3.Text）
Pro
EndSub
3.DimoperAsString
PrivateSubCommand1_Click
升级会员 