水利vb程序设计实验报告

《水利vb程序设计实验报告》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、呼伦贝尔学院计算机科学与技术学院实验报告课程名称___________________＿＿＿班　　级___________________＿＿＿姓　　名__________学号_________实验地点___________________＿＿＿指导教师____________成绩_______＿实验日期：实验一VB环境和创建一个简单的VB程序一．实验目的：1.了解VB系统对计算机软件、硬件的要求。2.掌握启动和退出VB的方法。3.了解和使用VB集成开发环境各窗口、菜单的一般功能。4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。

2、5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。二．实验内容：1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为“显示”和“清除”。程序运行后，单击“显示”按钮，在文本框中输出一行信息；单击“清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。图1.1实验1-1运行界面三．实验结果：对象属性设置对象属性属性值说明Form1Label1Text1Command1Command2四．实验思考1.标签label控件设置的属性代码有哪些？第2页实验日期：2.两个按钮所使用的是

3、什么事件？代码分别是什么？PrivateSubCommand1_Click()EndSubPrivateSubCommand2_Click()EndSub第2页实验日期：实验二简单程序设计数据类型及常用内部函数的简单应用一．实验目的1．掌握VisualBasic数据类型的基本概念。2．掌握用VisualBasic的各种运算符及表达式。3．学习使用VisualBasic内部函数和数据输入、输出方法。4．掌握命令按钮、文本框和标签。5．设计顺序程序。二．实验内容1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函

4、数输入华氏温度，用msgbox输出转换后的摄氏温度。转换公式是：C=5/9(F-32)。F为华氏温度，C为摄氏温度。2.用三种除法运算（/、、Mod）做计算。要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。图2-1图2-2三．实验结果：对象属性设置1.温度转换对象属性属性值说明Form1Command12.三种除法运算（/、、Mod）做计算对象属性属性值说明Label1Label2Label3Label4La

5、bel5Command1第2页实验日期：四．实验思考1.温度转换中的Command1命令的单击事件的程序代码是什么？PrivateSubCommand1_Click()EndSub2.用三种除法运算（/、、Mod）做计算，说明三种除法的区别？3.三种除法运算（/、、Mod）做计算，Command1命令的单击事件的程序代码是什么？PrivateSubCommand1_Click()EndSub第2页实验日期：实验三选择程序设计一．实验目的1.掌握单分支与双分支条件语句的使用。2.掌握多分支条件语句（If…Then…ElseIf）的使用。3．

6、掌握SelectCase语句的使用及与多分支条件语句的区别。4．熟练掌握时间过程的编写方法。二．实验内容1．设计一个模拟简易计算器的程序，界面如图3-1所示。要求：①输入两个操作数和一个操作符，根据操作符决定所进行的计算；②如果除数为0，用msgbox提示出错信息；③用if语句和selecetcase语句两种结构实现。2.通过单选按钮和复选框控制文字的显示，程序窗口如图3-2所示。图3-1图3-2三．实验结果：对象属性设置1.模拟简易计算器对象属性属性值说明Label1Label2Label3Label4Command1Command2Tex

7、t1-text42.单选框与复选框对象属性属性值说明Frame1Frame2Frame3第2页实验日期：Label1Option1Option2Option3Option4Option5Option6Option7Check1Check2Check3Check4四．实验思考1.模拟简易计算器Command1命令的单击事件的程序代码是什么？PrivateSubCommand1_Click()EndSub2.模拟简易计算器Command2命令的单击事件的程序代码是什么？PrivateSubCommand1_Click()第2页实验日期：EndSu

8、b3.通过单选按钮和复选框控制文字的显示,Command1命令的单击事件的程序代码是什么PrivateSubCommand1_Click()EndSub第2页实验日