南华大学计算机学院 visual basic程序设计实验指导.docVIP

南华大学计算机学院 visual basic程序设计实验指导 一、实验目的 1.学会利用Visual Basic中“格式”菜单中的命令调整窗体上控件大小和布局。 2.初步了解如何用代码设置对象属性。 3.初步学习在代码编辑器中输入程序代码的基本操作。 4.基本掌握用Visual Basic开发应用程序的一般步骤。 二、实验内容 1．设计一个简易计算器界面 实例1完成后，要求将窗体文件保存为Vbsy2_1.frm，工程文件保存为Vbsy2_1.vbp。 2.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。编写程序实现如下功能：单击命令按钮，则在文本框中显示“单击命令按钮”；单击窗体，则在文本框中显示“单击窗体”。程序运行界面如图2_2所示。 要求：窗体文件保存为Vbsy2_2.frm，工程文件保存为Vbsy2_2.vbp。 提示：事件过程代码如下。 Private Sub Command1_Click() Text1.Text = 单击命令按钮 End Sub Private Sub Form_Click() Text1.Text = 单击窗体 End Sub3.在窗体上画三个名称分别为Text1～Text3文本框，再画两个名称分别为Label1、Label2的标签和一个名称为Command1的命令按钮。编写一个加法运算程序，程序运行界面如图2.9所示。当程序运行时，在“=”前的两个文本框中分别输入加数，然后单击“计算”按钮，在“=”后边的文本框中显示计算的结果。 要求：窗体文件保存为Vbsy2_3.frm，工程文件保存为Vbsy2_3.vbp。(以下各题文件保存以此类推！！) 提示：事件过程代码如下。 Private Sub Command1_Click() Dim a As Integer, b As Integer a = Text1.Text b = Text2.Text Text3.Text = a + b End Sub 4．在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“等级考试”，BorderStyle属性值为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Command1，编写适当的事件过程。程序运行后，界面如图所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题。  Private sub command1_click() Label1.visible=false Command1.caption=label1.caption End sub 在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“输入信息”、一个文本框，名称为Text1，Text属性为空白、一个命令按钮，名称为Command1，标题为“显示”。然后编写命令按钮的Click事件过程。程序运行后，在文本框输入“计算机等级考试”，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框的内容。要求程序中不得使用任何变量。  上机代码：Private sub command1_click() Label1.visible=false Text1.visible=false Print text1.text End sub 6. 在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，再画两个命令按钮，名称分别为Command1和Command2，标题分别为“复制”和“删除”。程序运行时，在Text1中输入一串字符，并用鼠标拖曳的方法选择几个字符，然后分别单击“复制”按钮，则被选中的字符被复制到Text2中；若单击“删除”按钮，则被选中的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。  Private sub command1_click() Text2=text1.seltext End sub Private sub command2_click() Text1.seltext=”” End sub 7． 在名称为Form1的窗体上画一个文本框，名称为Text1，Text属性值为“VB可视化程序设计”，采用宋体四号字；再画三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“黑体”、“隶书”和“楷体_GB2312”。程序运行时，单击不同的命令按钮，则文本框的字体变为相应的字体。请编写三个命令按钮的Click过程完成上述功能。 Private sub command1_click() Text1.fontname=command1.caption