visualbasic程序设计实验指导书

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

1、VisualBasic程序设计实验指导书实验一、VB程序设计起步一、实验目的：熟悉VB集成开发环境；掌握开发VB程序的步骤二、实验内容：⑴练习属性窗口、工程窗口和工具箱窗口打开与关闭的各种方法⑵新建一个工程，在属性窗口修改Form1的几个属性：Caption,Backcolor,Height和Width。在界面设计的操作过程中及程序执行后，观察窗体的变化情况⑶新建一个工程，在窗体上画一个本文框、两个命令按钮。两个命令按钮的标题分别是“问”与“答”。编写程序代码。程序运行后，当单击“问”按钮，文本框中显示“你是谁？”；当单击“答”按钮，文本框中显示“我是VB用户！”。

2、三、实验步骤：1.打开[开始]----[程序]---[MicrosoftVisualBasic6.0中文版]2.在弹出窗口选择[标准EXE]3．然后拖动相应控件到窗体上，如按钮等4．分别选中窗体、控件，看其属性代码窗口，了解其属性设置。5．打开界面的菜单、工具栏，了解其内容、功能和使用。实验二、简单VB程序设计一、实验目的⑴掌握VisualBasic基本数据类型、内部函数、表达式的使用；⑵掌握窗体、命令按钮、标签与文本框的常用属性、事件和方法；⑶掌握InputBox函数、MsgBox函数和Print方法；⑷掌握顺序结构程序设计；二、实验内容1．设计一个收款程序。用户

3、输入商品单价和商品数量后，单击“计算”按钮，则显示应付款；单击“清除”按钮，则清除显示的数据。2.在窗体上画一个文本框。名称为Text1，高度为350，宽度为2000，字体为“黑体”，并设置其它相关属性，使得在运行时，在文本框中输入的字符都显示为“？”。三、实验步骤1、启动VB。2、在窗体上创建两个命令按钮、四个标签和两个文本框。四个标签的Caption属性值分别为“商品单价”、“商品数量”、“应付款”和“”；两个文本框的Text属性值为空；命令按钮的Caption属性值分别为“计算”、“清除”。“计算”按钮的click事件中输入如下代码，运行后观察结果输出情况：P

4、rivateSubCommand1_Click()Dima！,b！,c！a=text1.textb=text2.textc=a*blable4.caption=cEndSub"清除"按钮的click事件中输入如下代码。PrivateSubCommand1_Click()text1.text=“”text2.text=“”EndSub3、新建一个工程，在窗体上添加一个文本框，将Height属性和Width属性值分别设置为350，200；Font属性值设置为“黑体”；MultiLline属性设置为False，PassWordChar属性值设置为“?”。实验三、选择结构一

5、、实验目的：⑴熟悉选择结构的控制流程⑵掌握能实现选择结构的各种格式⑶掌握选择结构的编程。二、实验内容：⑴编一程序，功能是：根据给定图形三条边的边长来判定图形的类型。若为三角形，则同时计算出为何种三角形，及三角形面积。提示：①三角形存在的条件是：任意一边大于零且任意两边之和大于第三边。②若三边是勾股数，则是直角三角形；若任意两边平方和大于第三边的平方，则为锐角三角形；若有一边的平方大于另外两边的平方和，则为钝角三角形⑵设计一个两位数加、减、乘、除运算的程序，要求如下。①加、减、乘、除由用户单击相应按钮选择②运算数据由随机函数产生。③选择合适的控件显示运算式数据、运算符

6、④对用户输入的结果对错用消息框给出提示：结果正确时有“！”图标；结果错误时有“×”图标。三、实验步骤：1.启动MicrosoftVisualBasic6.02．然后拖动三个命令按钮（CommandButton）、八个标签控件（Label）和六个文本框到窗体上，调整各控件的大小和位置。3．从属性列表框中设置个控件的属性。设置命令Caption(标题)属性分别为“判断并计算”、“清除再来”、“退出”；设置标签的Caption(标题)属性分别为“请输入各边边长”、“显示结果”、“第一条边”、“第二条边”、“第三条边”、“是否三角形”、“何种三角形”、“三角形面积”；设置文

7、本框的Text属性值为空。4．编写程序代码代码如下：PrivateSubCommand1_Click()Dima!,b!,c!,s!,p!,y!a=Text1.Textb=Text2.Textc=Text3.TextIfa>0Andb>0Andc>0ThenIfa+b>cAnda+c>bAndb+c>aThenText4.Text="是"p=(a+b+c)/2s=Sqr(p*(p-a)*(p-b)*(p-c))Text6.Text=sIfa^2=b^2+c^2Orb^2=a^2+c^2Orc^2=a^2+b^2ThenText5.Text="直角三角形"Else