实习三 输入框与窗体.doc

实习三 输入框、信息框与窗体 一、实习目的 1、? 掌握程序设计中对变量和控件属性的赋值。 2、? 学会使用赋值号与逻辑等号。 3、掌握数据输入函数和信息提示函数的格式及用法。 4、掌握窗体的主要属性设置、常用事件和方法。 ? 二、实习内容 1、对变量的赋值 a 、“窗体”窗口内建立一个命令按钮，双击按钮输入代码程序，要求利用变量赋值（如使用变量：s , a , b等）在程序执行时点击按钮，窗体内输出如下信息：（提示：s= 程序 Print s ） 程序设计逻辑性比较强 模块划分合理，层次清晰 234.654 -5.32345e+95 将上面您设计的代码改为： Print a = 3 a = 3 Print a b = a = 6 Print a, b 运行程序观察运行结果，并仔细思考一下为什么？ b 、在窗体Form1上有两个文本框Text1和 Text2，两个命令按钮Command1 和Command2（如图3-1），要求：点击命令按钮Command1在文本框Text1内显示“Visual BASIC程序设计”，点击命令按钮Command2在文本框Text2内显示文本框Text1中字符个数。 图3-1 程序代码： Private Sub Command1_Click() Const s$ = Visual BASIC程序设计 Text1.Text = s$ End Sub ? Private Sub Command2_Click() Dim a As Integer a = Len(Text1.Text) Text2.Text = a End Sub 2、数据输入 设计一个程序求三角形的面积： （1）、使用的控件有：两个命令按钮，七个标签，一个文本框。 （2）、涉及到的属性设置有Caption、Text、BackStyle、BorderStyle。 （3）、设计程序界面如图3-2：(注意标签、文本框的异同) 图 3-2 （4）、使用的代码程序如下： ? Private Sub Command1_Click( ) Dim a%, b%, c% a = InputBox(输入边长 a 的值) ? b = InputBox(输入边长 b 的值) ? c = InputBox(输入边长 c 的值) If a+bc and a+cb and b+ca Then Label4.Caption = a Label5.Caption = b Label6.Caption = c p = (a + b + c) / 2 s = Sqr((p - a) * (p - b) * (p - c) * p) Text1.Text = Round(s) Else Text1.Text = 不能构成三角形 End If End Sub ? Private Sub Command2_Click( ) End End Sub 运行程序，点击按钮，根据提示输入数据（如图3-3），观察结果，书写代码时注意函数InputBox内的引号、逗号等的格式（都是半角）。 ? 图 3-3 3、? 信息提示函数的使用 将上面的代码程序，做如下改动： Private Sub Command1_Click() ? Dim a%, b%, c% ? a = InputBox(输入边长 a 的值, 计算三角形的面积) ? b = InputBox(输入边长 b 的值, 计算三角形的面积) ? c = InputBox(输入边长 c 的值, 计算三角形的面积) ? resp = MsgBox(输入正确吗？, vbYesNo + vbQuestion + vbDefaultButton2, 提示信息) If resp = vbYes Then ? If a-bc and a-cb and b-ca Then Label4.Caption = a Label5.Caption = b Label6.Caption = c p = (a + b + c) / 2 s = Sqr((p - a) * (p - b) * (p - c) * p) Text1.Text = Round(s) Else Text1.Text = 不能构成三角形 End