实习三 输入框、信息框与窗体

《实习三 输入框、信息框与窗体》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实习三输入框、信息框与窗体一、实习目的1、1、 掌握程序设计中对变量和控件属性的赋值。2、2、 学会使用赋值号与逻辑等号。3、掌握数据输入函数和信息提示函数的格式及用法。4、掌握窗体的主要属性设置、常用事件和方法。 二、实习内容1、对变量的赋值a、“窗体”窗口内建立一个命令按钮，双击按钮输入代码程序，要求利用变量赋值（如使用变量：s,a,b等）在程序执行时点击按钮，窗体内输出如下信息：（提示：s="程序"Prints）程序设计逻辑性比较强模块划分合理，层次清晰234.654-5.32345e+95将上面您设计的代码改为：Printa=3a=3Printab=a=6Printa

2、,b运行程序观察运行结果，并仔细思考一下为什么？b、在窗体Form1上有两个文本框Text1和Text2，两个命令按钮Command1和Command2（如图3-1），要求：点击命令按钮Command1在文本框Text1内显示“VisualBASIC程序设计”，点击命令按钮Command2在文本框Text2内显示文本框Text1中字符个数。图3-1程序代码：PrivateSubCommand1_Click()Consts$="VisualBASIC程序设计"Text1.Text=s$EndSub PrivateSubCommand2_Click()DimaAsIntegera

3、=Len(Text1.Text)Text2.Text=aEndSub2、数据输入设计一个程序求三角形的面积：（1）、使用的控件有：两个命令按钮，七个标签，一个文本框。（2）、涉及到的属性设置有Caption、Text、BackStyle、BorderStyle。（3）、设计程序界面如图3-2：(注意标签、文本框的异同)图3-2（4）、使用的代码程序如下： PrivateSubCommand1_Click()定义三个变量保存三条边的值Dima%,b%,c%此处使用了第四章的分支语句IF语句，用来判断这三条边是否能构成一个三角形，即两边之和大于第三边或两边之差小于第三边。如果能构

4、成三角形则计算其面积，并将各种值在标签、文本框中显示，否则只在文本框内显示‘不能构成三角形’。a=InputBox("输入边长a的值") b=InputBox("输入边长b的值") c=InputBox("输入边长c的值")Ifa+b>canda+c>bandb+c>aThenLabel4.Caption=aLabel5.Caption=bLabel6.Caption=cp=(a+b+c)/2s=Sqr((p-a)*(p-b)*(p-c)*p)Text1.Text=Round(s)ElseText1.Text="不能构成三角形"EndIfEndSub PrivateSubCo

5、mmand2_Click()EndEndSub运行程序，点击按钮，根据提示输入数据（如图3-3），观察结果，书写代码时注意函数InputBox内的引号、逗号等的格式（都是半角）。 图3-33、3、 信息提示函数的使用将上面的代码程序，做如下改动：PrivateSubCommand1_Click() Dima%,b%,c% a=InputBox("输入边长a的值","计算三角形的面积") b=InputBox("输入边长b的值","计算三角形的面积") c=InputBox("输入边长c的值","计算三角形的面积") resp=MsgBox("输入正确吗？",vbYesNo+v

6、bQuestion+vbDefaultButton2,"提示信息")信息提示函数有返回值，如果选择了对话框里的按钮‘是’，说明输入的数据正确，此时计算三角形的面积，否则不进行计算。Ifresp=vbYesThen Ifa-b

7、示输入数据（如图3-4），信息提示如图3-5所示，观察结果。 图3-4图3-54、窗体属性的设置（1）、新建一个工程，直接使用‘属性’窗口对窗体的属性进行设置，同时观察窗体的变化。要求做如下操作：将窗体的背景颜色设为‘蓝色’将窗体的标题设为‘程序设计’将窗体的高度设为4000将窗体的宽度设为3000将窗体标题栏的控制按钮取消（2）、使用程序改变窗体的属性编辑窗体的Click事件实现如下功能：将窗体的标题改变为‘VB程序应用’将窗体的背景颜色设为‘黄色’将窗体的高度宽度分别设为6000、8000将窗体定位