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

实验1 窗体和基本控件的使用 一、实验目的 1．掌握窗体、标签、命令按钮、文本框的常用属性、方法和事件。 2．掌握输入对话框（InputBox）和消息框（MsgBox）的使用。 二、实验示例 【例题3.1】 在名称为Form1的窗体上画一个名称为L1的标签窗体的标题设置为上显示请输入文本框宽、高分别为2000和300，设置适当的属性使得在输入密码时，文本框中显示*”字符运行时如图1所示。1．分析 （1）在窗体上画一个标签、一个文本框和一个命令按钮，并根据题目要求列出控件属性值，如表3.2所示。 表3.2 控件属性列表 类型 对象名 属性 属性值 窗体 Form1 Caption 学号信息 标签 L1 Caption 请输入学号 文本框 Text1 PasswordChar * Text （空） Height 300 Width 2000 命令按钮 Command1 Caption 显示 （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】 在名称为Form1的窗体上，画一个名称为Lbl1的标签，其标题为计算机等级考试，字体为宋体，字号12，边框样式为1，且能根据标题内容自动调整标签的大小。再画个名称分别为Cmd1、Cmd，标题分别为缩小和还原的命令按钮（如图所示）。 要求：编写适当的事件过程，使得单击缩小按钮，Label1中所显示的标题内容自动减小；单击还原按钮，Label1中所显示的标题内容的大小自动恢复到12号。 计算机等级考试BorderStyle 1 AutoSize True 续表 类型 对象名 属性 属性值 命令按钮 Cmd1 Caption 缩小 Width 1200 Height 450 Cmd2 Caption 还原 Width 1200 Height 450 2．两个按钮点击事件代码如下： Private Sub Cmd1_Click() Lbl1.FontSize = Lbl1.FontSize - 2 End Sub Private Sub Cmd2_Click() Lbl1.FontSize = 12 End Sub 3．程序运行效果如图3.3所示。 【例题3.3】 在窗体上画两个标签，两个文本框和两个命令按钮，要求两个文本框只能显示信息，而不能接收用户的输入。设计界面如图3.4所示。 图3.3 程序运行效果图（部分） 图3.4 设计界面效果 请编写程序实现以下功能： （1）单击“输入”按钮，弹出输入对话框，在输入对话中输入数值作为半径显示在第一个文本框中。输入对话框的效果如图3.5所示。 （2）单击计算按钮，计算出球的体积显示在第2个文本框中，并用消息框对运算结果进行提示，运行效果如图3.6所示。 图3.5 输入对话框效果图 图3.6 Private Sub Command1_Click() Text1.Text = InputBox(请输入半径,输入,10) End Sub Private 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的标题为“输入你的姓名在名称为Form1的窗体上画个名称为Text1，内容为计算机的文本框，且显示为小四号字，再画3个命令按钮，名称分别为Command1”、Command2”、Command3”，标题分别是居左、居中、居右如图所示。要求：编写3个命令按钮的Click事件过程，使得单击居左按钮时，文本框