vb程序设计课程实验报告(样本参考一)

琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM1计算机与信息学院（VB程序设计课程）实验报告课程名称VB程序设计教程姓名系计算机与信息学院专业计算机应用技术年级学号指导教师职称200X年XX月XX日琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM2实验项目列表序号实验项目名称成绩指导教师1VB环境和程序设计初步2顺序程序设计3选择结构程序设计4循环结构程序设计及数组的运用5过程6窗体和常用控件7常用控件8气泡法排序程序9实验九10菜单设计和多文档界面琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM3计算机与信息学院实验报告（一）VISUALBASIC环境和程序设计的初步一、实验目的1、了解VISUALBASIC系统对计算机软件、硬件的要求。2、掌握启动与退出VISUALBASIC的方法。3、熟悉VISUALBASIC的集成开发环境（IDE）。4、掌握在窗体上添加控件的各种方法。5、掌握建立、编辑、运行和保存一个简单的VISUALBASIC应用程序的全过程。二、实验内容1、启动VISUALBASIC60,观察标题栏、菜单栏、工具栏与MICROSOFT其他应用程序的不同之处；熟悉各个控件以及窗体设计和工程管理器窗口、属性窗口、代码窗口的功能、组成以及它们各种不同的打开方法。2、在窗体上画一文本框个一个命令按钮，在文本框中显示“VB程序设计”。（1）编写适当事件过程，当单击命令按钮时，文本框内容消失。（2）以解释方式运行程序。（3）把程序保存。然后关掉该工程。装入上面建立的程序，并在窗体上增加一个命令按钮。当单击该命令按钮，结束程序运行。保存程序。（4）把当前程序编译为可执行文件。（5）生成当前工程并退出。在WINDOWS环境下运行该工程。3、创建一个“标准EXE”类型的应用程序。要求在屏幕上显示“欢迎您的到来”，并请输入您的名字。三、实验环境MICROSOFTVISUALBASIC60中文版四、算法描述及实验步骤1、熟悉VB的环境。2、先创建一个文本框和命令按钮，并设置相应的代码如下PRIVATESUBFORM_LOADTEXT1TEXT“VB程序设计“ENDSUBPRIVATESUBCOMMAND1_CLICKTEXT1TEXT“ENDSUB3、创建两个标签和一个文本框。在属性窗口设置两个标签的CAPTION的值分别为欢迎你的到来和请留下您的尊姓大名，并设置相应的字体。五、调试过程无错误六、实验结果琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM41、2、七、总结答从中的到的知识是更了解了VB集成开发环境，掌握了在窗体上添加控件的各种方法。琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM5（二）顺序程序设计一、实验目的和要求1掌握常用内部函数的使用2掌握表达式，赋值语句的正确书写规则3掌握INPUEBOX和MSGBOX的使用二、实验内容和原理1用立即窗口试验每一个内部函数的操作，并验证数值以及日期时间的各种格式化输出方式。2创建如图所示的应用程序，要求单击窗体显示如图所示的图形。3创建如图所示的应用程序，要求单击“放大”按钮后，将文本中显示的字符串放大倍；若单击按钮“还原”按钮。则将文本框显示的字符串大小返原。三、实验环境MICROSOFTVISUALBASIC60中文版四、算法描述及实验步骤1PRIVATESUBFORM_CLICKPRINTINT33SPC1PRINTINT53SPC1PRINTFIX69SPC1PRINTFIX76SPC1PRINTROUND75SPC1PRINTROUND75SPC1PRINTHEX20SPC1PRINTOCT20SPC1PRINTASC“W“SPC1PRINTCHR70SPC1PRINTVAL“132“SPC1PRINTSTR122SPC1PRINTSIN30SPC1PRINTCOS30SPC1PRINTTAN45SPC1PRINTATN453SPC1PRINTABS8SPC1PRINTSGN4SPC1PRINTSQR4SPC1PRINTEXP6SPC1PRINTLOG4SPC1PRINTDAYNOWSPC1PRINTMONTHNOWSPC1PRINTYEARNOWSPC1PRINTHOURNOWSPC1PRINTMINUTENOWSPC1PRINTSECONDNOWSPC1PRINTTRIM“WGX“SPC1PRINTLTRIM“WGXWGX“SPC1PRINTRTRIM“WGXWGX“SPC1PRINTLEFT“WGX“,2SPC1PRINTMID“WGXWGX“,2,3SPC1PRINTRIGHT“WGXGWX“,3SPC1PRINTLEN“WWGGXX“SPC1PRINTSTRING3,65SPC1PRINTINSTR“WGXWGX“,“X“SPC1PRINTUCASE“WGX“SPC1PRINTLCASE“WGX“SPC1ENDSUB2PRIVATESUBFORM_CLICKPRINTTAB20“PRINTTAB20“PRINTTAB20“SPC4“PRINTTAB20“SPC6“PRINTTAB20“SPC8“PRINTTAB20“SPC10“PRINTTAB20“SPC12“PRINTTAB20“SPC14“PRINTTAB20“ENDSUB琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM63PRIVATESUBCOMMAND1_CLICKTEXT1FONTSIZE12TEXT1FONTSIZEINTRND22TEXT1FONTSIZEENDSUBPRIVATESUBCOMMAND2_CLICKTEXT1FONTSIZE12ENDSUB五、实验结果123琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM7六、总结答从这节实验中掌握了常用内部函数的使用,还有表达式赋值语句的正确书写规则,掌握了INPUTBOX与MSGBOX的使用三选择结构程序设计一、实验目的和要求1掌握IF条件语句的使用。2掌握情况语句的使用，以及情况语句与多分支条件语句的使用区别。二、实验内容和原理1请编一程序用于在期末时根据学生总分情况给于奖励，条件如下四门总分不低与360分含360分，特等奖四门总分320含320分360分不含360分,优秀奖单科成琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM8绩不低于95分,特别奖。2输入X,Y,Z三个数,按从小到大的次序显示出来要求程序中不得使用循环结果和转向语句掌握两个数据交换的方法。3编一个简易计算器的应用程序。要求掌握SELECT语句和IF语句的正确使用；掌握对输入数据合法性检验的能力和当输入有错误时出错处理的能力。三、实验环境MICROSOFTVISUALBASIC60中文版四、算法描述及实验步骤1PRIVATESUBCOMMAND1_CLICKDIMT1ASINTEGERDIMT2ASINTEGERDIMT3ASINTEGERDIMT4ASINTEGERDIMSUMASINTEGERT1VALTEXT1TEXTT2VALTEXT2TEXTT3VALTEXT3TEXTT4VALTEXT4TEXTSUMT1T2T3T4IFTEXT1TEXT“ORTEXT2TEXT“ORTEXT3TEXT“ORTEXT4TEXT“THENMSGBOX“请输入成绩值“,0,“成绩不为空“ELSEIFSUM360THENMSGBOX“您获得了特等奖“,0,“祝贺“ELSEIFSUM320THENMSGBOX“您获得了优秀奖“,0,“祝贺“ELSEIFT195ORT395ORT395ORT495THENMSGBOX“您获得了特别奖“,0,“祝贺“ENDIFLABEL2CAPTIONT1T2T3T4ENDSUB2DIMT1ASINTEGERDIMT2ASINTEGERDIMT3ASINTEGERDIMTEMPASINTEGERPRIVATESUBPROT1VALTEXT1TEXTT2VALTEXT2TEXTT3VALTEXT3TEXTIFT1T2THENTEMPT1T1T2T2TEMPENDIF琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM9IFT1T3THENTEMPT1T1T3T3TEMPENDIFIFT2T3THENTEMPT2T2T3T3TEMPENDIFTEXT4TEXTSTRT1TEXT5TEXTSTRT2TEXT6TEXTSTRT3ENDSUBPRIVATESUBTEXT1_CHANGETEXT1TEXTVALTEXT1TEXTCALLPROENDSUBPRIVATESUBTEXT2_CHANGETEXT2TEXTVALTEXT2TEXTPROENDSUBPRIVATESUBTEXT3_CHANGETEXT3TEXTVALTEXT3TEXTPROENDSUB3DIMOPERASSTRINGPRIVATESUBCOMMAND1_CLICKIFTEXT1TEXT“ORTEXT2TEXT“ORTEXT3TEXT“THENMSGBOX“有某数没有数值“,5,“错误提示“ELSEIFTEXT3TEXT“THENTEXT4TEXTSTRVALTEXT1TEXTVALTEXT2TEXTELSEIFTEXT3TEXT“THENTEXT4TEXTSTRVALTEXT1TEXTVALTEXT2TEXTELSEIFTEXT3TEXT“THENTEXT4TEXTSTRVALTEXT1TEXTVALTEXT2TEXTELSETEXT4TEXTSTRVALTEXT1TEXT/VALTEXT2TEXTENDIFENDIFENDSUBPRIVATESUBCOMMAND2_CLICKUNLOADME琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM10ENDSUBPRIVATESUBTEXT1_CHANGETEXT1TEXTVALTEXT1TEXTENDSUBPRIVATESUBTEXT2_CHANGEIFTEXT3TEXT“/“THENIFVALTEXT2TEXT0THENMSGBOX“除数分母不能为零“,5,“错误提示“TEXT2TEXT“ENDIFENDIFENDSUBPRIVATESUBTEXT3_CHANGEIFTEXT3TEXT“ORTEXT3TEXT“/“ORTEXT3TEXT“ORTEXT3TEXT“THENELSEMSGBOX“运算操作符有错误“,5,“错误提示“TEXT3TEXT“TEXT3SETFOCUSENDIFENDSUB五、调试过程无错误。六、实验结果1琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM1123七、总结答从此此实验中掌握了IF语句的使用掌握情况语句的使用,以及情况语句与多分支语句的使用区别四循环结构程序设计及数组的运用一、实验目的和要求1掌握FOR语句的使用。2掌握DO语句的各种形式的使用。3掌握如何控制循环条件,防止死循环和不循环。4掌握数组的声明以及数组元素的引用。5掌握静态数组和动态数组的使用差别。6应用数组解决与数组有关的常用算法问题。二、实验内容和原理编程计算123456N的值，其中N由文本框输入。运行结果可参考如下图。要求掌握FOR语句的正确使用。琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM12三、实验环境MICROSOFTVISUALBASIC60中文版四、算法描述及实验步骤DIMSUMASLONGPRIVATESUBCOMMAND1_CLICKIFVALTEXT1TEXT0THENMSGBOX“不能为零“,5,“错误“ELSEIFVALTEXT1TEXT0ANDI1THENLABEL2CAPTIONLABEL2CAPTION“ENDIFLABEL2CAPTIONLABEL2CAPTIONSTR1I1INEXTADDLABEL2CAPTIONLABEL2CAPTIONSTRSUMELSELABEL2CAPTION“12345“IFVALTEXT1TEXTMOD20THENLABEL2CAPTIONLABEL2CAPTION“TEXT1TEXT“ELSELABEL2CAPTIONLABEL2CAPTION“TEXT1TEXT“ENDIFADDLABEL2CAPTIONLABEL2CAPTIONSTRSUMENDIFENDSUBPRIVATESUBTEXT1_LOSTFOCUSTEXT1TEXTSTRVALTEXT1TEXTENDSUBPRIVATESUBADDFORI1TOVALTEXT1TEXTSUMSUM1I1INEXTENDSUB五、调试过程无错误六、实验结果琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM13七、总结答从此次实验中得到的是掌握了FOR语句的使用,还有的是DO语句的各种形式的使用,如何控制循环和防止死循环或不循环五过程一、实验目的和要求1、掌握自定义函数过程和子过程的定义和调用方法。2、掌握形参和实参的对应关系。3、掌握值传递和地址传递的传递方式。4、掌握递归的概念和使用方法。二、实验内容和原理1、编程计算的子过程和函数过程，并分别调用。要求其中X和N的值由用户给定。2、编写函数S（MASINTEGER，NASINTEGER）ASLONG，此函数返回MMMMMMMMM（N个M）的值。比如S（2，5）的返回值为222222222222222的值。运行后的结果如图所示。3、编写递归函数求123N的值，并显示结果。其中N的值由用户给定。琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM14三、实验环境MICROSOFTVISUALBASIC60中文版四、算法描述及实验步骤DIMSUMASLONGPRIVATESUBCOMMAND1_CLICKTEXT2TEXT“SVALTEXT1TEXTIFVALTEXT1TEXT3THENLABEL1CAPTION“12222“TEXT1TEXT“ELSEFORI0TOVALTEXT1TEXTIFIVALTEXT1TEXTTHENLABEL1CAPTIONLABEL1CAPTIONSTR2I“ELSELABEL1CAPTIONLABEL1CAPTIONSTR2I“ENDIFNEXTENDIFTEXT2TEXTSTRSUMENDSUBPRIVATEFUNCTIONSCOUNTASINTEGERASLONGSUM0FORI0TOCOUNTSUMSUM2INEXTENDFUNCTION五、调试过程无错误六、实验结果七、总结答此次实验中得到的结果是掌握自定义函数过程和子过程的定义和调用方法。琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM15一、实验目的和要求掌握窗体与常用控件的重要属性、事件和方法。二、实验内容和原理1设计一个界面，要求程序运行时选中组合框中的某一项，将弹出对话框加以说明。2在窗体上画一个名称为HIS的水平滚动条，标题分别为“左端”、“居中”、“右端”的命令按钮。请编写适当的事件过程，使得在运行后，如果单击“左端”，则滚动条在最左端处，如果单击“居中”，则滚动条在最中间处如果单击“右端”，则滚动条在最右处，三、实验环境MICROSOFTVISUALBASIC60中文版四、算法描述及实验步骤1PRIVATESUBCOMBO1_CLICKMSGBOX“我的兴趣爱好是“COMBO1TEXT,0,“兴趣爱好“ENDSUB2PRIVATESUBCOMMAND1_CLICKINDEXASINTEGERHSCROLL1VALUE0ENDSUBPRIVATESUBCOMMAND2_CLICKHSCROLL1VALUE10ENDSUB琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM16PRIVATESUBCOMMAND3_CLICKINDEXASINTEGERHSCROLL1VALUE5ENDSUB五、调试过程无错误六、实验结果12七、总结答此次实验最重要的是掌握了窗体和常用控件的重要属性、事件和方法琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM17（七）常用控件一、实验目的和要求掌握常用空间的重要属性、时间和方法。二、实验内容和原理1、在窗体上画一个图片框和两个命令按钮。程序运行后，如果单击“显示图片”命令按钮，则在图片框装入一个用图形编辑软件（如WINDOWS下的“画图”）画的简单的图形。单击“清除图片”按钮，则清楚图片框的图形。2、编写一个模拟秒表操作的程序，运行时的界面如图所示。程序运行后，单击“启动”按钮，该按钮变灰（不可用），在上面的标签中显示开始时间。过一会儿，单击“停止”按钮，该按钮变灰，同时“启动”按钮可用，并在中间标签中显示当前时间，在下面的标签中显示经过的时间三、实验环境MICROSOFTVISUALBASIC60中文版四、算法描述及实验步骤1PRIVATESUBCOMMAND1_CLICKPICTURE1PICTURELOADPICTURE“EVB实验图片显示49519_200702042023295GIF“ENDSUBPRIVATESUBCOMMAND2_CLICKPICTURE1PICTURELOADPICTUREENDSUB2PRIVATESUBCOMMAND1_CLICKLABEL2CAPTIONDATETIMETIMEENDSUBPRIVATESUBCOMMAND2_CLICKTIMER1ENABLEDFALSELABEL4CAPTIONDATETIMETIMELABEL6CAPTIONDATEDIFF“S“,CDATELABEL2CAPTION,CDATELABEL4CAPTIONENDSUBPRIVATESUBTIMER1_TIMERLABEL4CAPTIONDATETIMETIMEENDSUB琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM18五、调试过程无错误六、实验结果12七、总结答在此次的实验中掌握了常用控件的重要一些属性、事件和方法。琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM19（八）气泡法排序程序一、实验目的和要求实现数组的赋值与大小的排列。二、实验内容和原理将相邻两个数进行比较，按由小到大将这两个数排好序，在将下一组数组进行比较，依此处理，直到将最后两个数比较并处理完毕。最大的数已换到最后位置。这是第一轮的比较处理。每进行一轮，就把剩下的数中最大的一个移动最后位置。共进行若干轮。三、实验环境MICROSOFTVISUALBASIC60中文版四、算法描述及实验步骤SUBFORM_CLICKDIMA1TO10ASINTEGERPRINT“要排序的数组为”FORI1TO10AIINPUTBOX“请输入10个整数”PRINTTABI6AINEXTIPRINTFORI1TO9FORJTO10IIFAJAJ1THENTEMPAJAJAJ1AJ1TEMPENDIFNEXTJNEXTIPRINT“排序后的数组为”FORI1TO10PRINTTABI6AINEXTIENDSUB五、调试过程无错误六、实验结果（九）一、实验目的和要求二、实验内容和原理三、实验环境琥珀课后资源网HTTP/BBS5HUPOCOMHTTP/WWW5HUPOCOM20MICROSOFTVISUALBASIC60中文版四、算法描述及实验步骤PRIVATESUBFORM_CLICKDIMA100,100,N,I,JASINTEGERNINPUTBOX“请输入行数“FORI1TONFORJ1TONA0,01AI,JAI1,J1AI1,JNEXTJ,IFORI1TONFORJ1TONPRINTSPC5LENSTRAI,JAI,JNEXTJPRINTNEXTIENDSU