vb程序设计课程设计实验报告

《vb程序设计课程设计实验报告》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、第31页共31页福建农林大学计算机与信息学院（程序设计类课程）实验报告课程名称：VisualBasic程序设计教程姓名：系：计算机与信息学院专业：计算机应用技术年级：05级学号：指导教师：职称：讲师2007年6月2日实验项目列表序号实验项目名称成绩指导教师1VisualBasic环境和程序设计初步2顺序程序设计3选择结构程序设计4循环结构程序设计及数组的运用5过程6窗体和常用控件（一）7常用控件（二）8循环结构程序设计及动态数组的应用9综合实例（一）10综合实例（二）31第31页共31页系：计算机与

2、信息学院专业：计算机应用技术年级：05级姓名：学号：0计算机号67实验时间：2007、3、28实验地点：综南附307指导教师签字：实验一VisualBasic环境和程序设计初步一、实验目的和要求1、了解VisualBasic系统对计算机软件、硬件的要求。2、掌握启动与退出VisualBasic的方法。3、熟悉VisualBasic的集成开发环境（IDE）。4、掌握在窗体上添加控件的各种方法。5、掌握建立、编辑、运行和保存一个简单的VisualBasic应用程序的全过程。二、实验内容和原理1、熟悉工具

3、箱上的标准控件以及窗体设计器和工程管理器窗口、属性窗口、代码窗口的功能、组成以及它们各种不同的打开方法。2、在窗体上画一文本框个一个命令按钮，在文本框中显示“VB程序设计”，然后执行如下操作：（1）编写适当事件过程，当单击命令按钮时，文本框内容消失。（2）单击“文件”—“生成工程”并退出。在windows环境下运行该工程。用户界面：31第31页共31页31第31页共31页实验代码：PrivateSubCommand1_Click()Text1.Text=""EndSub31第31页共31页3、创建一

4、个“标准EXE”类型的应用程序。要求：程序运行时在屏幕上显示“欢迎您的到来！”，并输入您的名字，当按回车键时弹出如下对话框：31第31页共31页用户界面：31第31页共31页代码：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenMsgBox"欢迎"+Text1.Text+"的到来"EndIfEndSub31第31页共31页1、创建如图所示的应用程序，要求：单击“确定”按钮后，第一个文本框显示系统日期，第二个文本框显示星期。单击“

5、退出”按钮则退出应用程序。用户界面：31第31页共31页实验代码：PrivateSubCommand1_Click()DimnumAsIntegernum=Weekday(Now)Text1.Text=DateSelectCasenumCase1Text2.Text="日"Case2Text2.Text="一"Case331第31页共31页Text2.Text="二"Case4Text2.Text="三"Case5Text2.Text="四"Case6Text2.Text="五"Case7Text2

6、.Text="六"EndSelectEndSubPrivateSubCommand2_Click()EndEndSub31第31页共31页三、总结通过本次实验熟悉了VisualBasic的集成开发环境（IDE）。掌握在窗体上添加控件的各种方法。掌握建立、编辑、运行和保存一个简单的VisualBasic应用程序的全过程。系：计算机与信息学院专业：计算机应用技术年级：05级姓名：洪景泉学号：计算机号67实验时间：2007、4、4实验地点：综南附307指导教师签字：黄红兵实验二顺序程序设计一、实验目的和要

7、求1.掌握常用内部函数的使用2.掌握表达式　赋值语句的正确书写规则3.掌握InpueBox和MsgBox的使用二、实验内容和原理1.创建如图所示的应用程序，要求：单击窗体显示如图所示的图形。31第31页共31页用户界面：31第31页共31页实验代码：PrivateSubForm_click()DimiAsIntegerDimjAsIntegerFori=1To9Forj=1ToiIfi=9Orj=1Ori=jThenPrint"※";ElsePrintSpc(2);EndIfNextjPrintNe

8、xtiEndSub31第31页共31页2.创建如图所示的应用程序，要求：单击“放大”按钮后，将文本中显示的字符串放大２--３倍；若单击按钮“还原”按钮。则将文本框显示的字符串大小返原。31第31页共31页用户界面：31第31页共31页实验代码：DimxasintegerDimyasinteger31第31页共31页PrivateSubCommand1_Click()y=Text1.FontSizeText1.FontSize=Int(Rnd*2+2)*yEndSubP