VB实践教程第3章-实验.doc

第3章 VB程序设计初步实验1 窗体和基本控件的使用一、实验目的1掌握窗体、标签、命令按钮、文本框的常用属性、方法和事件。2掌握输入对话框（InputBox）和消息框（MsgBox）的使用。二、实验示例【例题3.1】 在名称为Form1的窗体上画一个名称为L1的标签、名称为Text1的文本框和一个名称为Command1的命令按钮。窗体的标题设置为“学号信息”；标签上显示“请输入学号：”；文本框的宽、高分别为2000Twip和300Twip，设置适当的属性使得在输入密码时，文本框中显示“*”字符；单击按钮时，将学号（除最后一位外）显示在窗体上。运行时，在文本框输入123456，单击“显示”按钮，效果如图3.1所示。图3.1 运行界面及效果1分析（1）在窗体上画一个标签、一个文本框和一个命令按钮，并根据题目要求列出控件属性值，如表3.2所示。表3.2控件属性列表类型对象名属性属性值窗体Form1Caption学号信息标签L1Caption请输入学号文本框Text1PasswordChar*Text（空）Height300Width2000命令按钮Command1Caption显示（2）要显示除最后一位的学号，可以使用Right()或Mid()函数对输入的学号取子串，但是必须得知道学号的长度，所以还需用到Len()函数2参考程序代码如下：Private Sub Command1_Click() Dim sl As Integer sl = Len(Text1.Text) Print Mid(Text1.Text,1,sl - 1)End Sub图3.2 程序设计界面【例题3.2】 在名称为Form1，标题为“字形”的窗体上，画一个名称为Lbl1的标签，其标题为“计算机等级考试”，字体为宋体，字号为12，边框样式为1，且能根据标题内容自动调整标签的大小。再画2个名称分别为Cmd1、Cmd2，标题分别为“缩小”和“还原”的命令按钮，按钮宽1200Twip，高450Twip（如图3.2所示）。要求：编写适当的事件过程，使得单击“缩小”按钮后，Label1中所显示的标题内容自动减小2磅；单击“还原”按钮后，Label1中所显示的标题内容的大小自动恢复到12号。1分析（1）在窗体上画一个标签和两个命令按钮，并根据题目要求列出控件属性值，如表3.3所示。表3.3控件属性表类型对象名属性属性值窗体Form1Caption字形标签Lbl1Caption计算机等级考试FontName宋体FontSize12BorderStyle1AutoSizeTrue续表类型对象名属性属性值命令按钮Cmd1Caption缩小Width1200Height450Cmd2Caption还原Width1200Height4502两个按钮点击事件代码如下：Private Sub Cmd1_Click() Lbl1.FontSize = Lbl1.FontSize - 2End SubPrivate Sub Cmd2_Click() Lbl1.FontSize = 12End Sub3程序运行效果如图3.3所示。【例题3.3】 在窗体上画两个标签，两个文本框和两个命令按钮，要求两个文本框只能显示信息，而不能接收用户的输入。设计界面如图3.4所示。 图3.3 程序运行效果图（部分） 图3.4 设计界面效果请编写程序实现以下功能：（1）单击“输入”按钮，弹出输入对话框，在输入对话中输入数值作为半径显示在第一个文本框中。输入对话框的效果如图3.5所示。（2）单击计算按钮，计算出球的体积显示在第2个文本框中，并用消息框对运算结果进行提示，运行效果如图3.6所示。 图3.5 输入对话框效果图 图3.6 运行效果图1分析要使文本框只能显示信息，而不能接收用户的输入，需要将文本框的Locked属性设置为True。实现图3.4输入对话框效果的语句为：InputBox（请输入半径，输入，10）。实现图3.5消息框效果的语句为：MsgBox 球的体积是： & Vol，vbInformation，提示。2参考程序代码Private Sub Command1_Click() Text1.Text = InputBox(请输入半径,输入,10)End SubPrivate Sub Command2_Click() Dim Vol As Single,r As Single r = Val(Text1.Text) Vol = (4 * 3.14 * r 3)/ 3 Text2.Text = Vol MsgBox 球的体积是: & Vol,vbInformation,提示End Sub 三、实验内容1在窗体上画两个标签、一个文本框和一个命令按钮。窗体标题为“学籍管理”；标签名称分别为L1和L2，标签L1的标题为“学生信息”，文字为隶书、一号、居中；标签L2的标题为“输入你的姓名”；命令按钮的标题为“设置”；文本框初始内容为空。设计界面如图3.7所示。编写程序，单击“设置”按钮将文本框内容倒置，字体设置为红色，加粗，20磅。2在名称为Form1的窗体上画一个名称为Text1，内容为“计算机”的文本框，且显示为小四号字，再画3个命令按钮，名称分别为“Command1”、“Command2”、“Command3”，标题分别是“居左”、“居中”、“居右”，如图3.8所示。 图3.7 程序设计界面 图3.8 程序设计界面要求：编写3个命令按钮的Click事件过程，使得单击“居左”按钮时，文本框的内容靠左对齐；单击“居中”按钮时，文本框的内容居中对齐；单击“居右”按钮时，文本框的内容靠右对齐。每个事件过程中只能写一条语句。3在名称为Form1的窗体上画一个名称为Label1的标签，字号大小为四号，标题为“等级考试”，通过设置属性使标签初始为不可见。设计界面如图3.9（a）所示。请编写适当的程序，使得运行程序时，窗体的标题立即变为“标签”，单击窗体时，显示标签，如图3.9（b）所示。4在名称为Form1的窗体上画一个标签（名称为Label1，标题为空，BorderStyle属性为1，Visible属性为False）、一个文本框（名称为Text1，Text的属性为空）和一个命令按钮（名称为Command1，标题为“显示”），如图3.10（a）所示。编写命令按钮的Click事件过程。程序运行后，在文本框中输入“计算机等级考试”，然后单击“显示”按钮，则文本框消失，并在标签内显示文本框中的内容。运行后的窗体如图3.10（b）所示。 （a）程序设计界面 （b）单击窗体后程序界面图3.9 程序设计运行界面 （a）程序设计界面 （b）程序运行界面图3.10 程序设计运行界面图3.11 设计界面效果5在名称为Form1的窗体上画两个标签（名称分别命名为Lbl1和Lbl2，字体为宋体，小四；标题分别为“身高”和“体重”）、两个只读文本框（名称分别为Txt1和Txt2，Text属性均为空）和一个命令按钮（名称为Command1，标题为“输入”），设计界面如图3.11所示。编写命令按钮的Click事件，程序运