南华大学计算机学院visualbasic程序设计实验指导

《南华大学计算机学院visualbasic程序设计实验指导》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、南华大学计算机学院visualbasic程序设计实验指导一、实验目的1.学会利用VisualBasic中“格式”菜单中的命令调整窗体上控件大小和布局。2.初步了解如何用代码设置对象属性。3.初步学习在代码编辑器屮输入程序代码的基本操作。4.基木掌握用VisualBasic开发应用程序的一般步骤。二、实验内容1.设计一个简易计算器界面图2JL简易计算器面板实例1完成后，要求将窗体文件保存为Vbsy2_l.frm,工程文件保存为Vbsy2_l.vbp。2.在窗体上画一个名称为Textl的文木框和一个名称为Command1的命令按钮。编写程序实现如下功能:单击命令按钮，则在文

2、本框中显示“单击命令按钮”；单击窗体，则在文本框中显示'单击窗休”。程序运行界面如图2_2所示。要求：窗体文件保存为Vbsy2_2.frm,工程文件保存为Vbsy2_2.vbp0提示：事件过程代码如下。PrivateSubCommand1Click()Textl.Text="单击命令按钮"EndSubPrivateSubForm_Click()Textl.Text="单击窗体"屠Foral命令按钮口回冈图2_2实验内容1运行界面EndSub3.在窗体上画三个名称分别为Textl〜Text3文本框，再画两个名称分别为LabelKLabe12的标签和一个名称为Command

3、1的命令按钮。编写一个加法运算程序，程序运行界面如图2.9所示。当程序运行时，在前的两个文本框中分别输入加数，然后单击“计算”按钮，在“=”后边的文本框中显示计算的结果。图2_3实验内容2运行界面耍求：窗休文件保存为Vbsy2_3.frm,工程文件保存为Vbsy2_3.vbpo(以下各题文件保存以此类推！！)提示：事件过程代码如下。PrivateSubCommand1Click()DimaAsInteger,bAsIntegera=Textl.Textb=Toxt2.TextText3.Text=a+bEndSub4.在名称为Forml的窗体上画一个标签，其名称为Lab

4、el1,标题为“等级考试”，BorderStyle属性值为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Command1,编写适当的事件过程。程序运行后，界而如图所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题。瓠Forwl瓠For>l篙级考试f'Commandi等级考试PrivatesubcommandI_click()Label1.visible=falseCommand1・caption=label1.captionEndsub5.在名称为Forml的窗体上画一个标签，其名称为LabelI,标题为“输入信息”、一个文

5、本框，名称为Textl,Text屈性为空白、一个命令按钮，名称为Command1,标题为“显示二然后编写命令按钮的Click事件过程。程序运行示，在文木框输入“计算机等级考试”，然示单击命令按钮，则标签和文木框消失，并在窗体上显示文木框的内容。要求程序中不得使用任何变量。上机代码:Privatesubcommandl_click()Label1.visible=falseTextl.visible=falsePrinttext1.textEndsub6.在名称为Fowl的窗体上画两个文本椎，名称分别为Textl和Text2,再画两个命令按钮，名称分别为Command1和

6、Command2,标题分別为“复制”和“删除”。程序运行时，在Textl中输入一串字符，并川鼠标拖曳的方法选择儿个字符，然后分别单击“复制”按钮，则被选小的字符被复制到Text2+；若单击“删除”按钮，贝I」被选屮的字符从Textl屮被删除。请编写两个命令按钮的Click过程完成上述功能。Privatesubcommand1_click()Text2=textl.seitextEndsubPrivatesubcommand2_click()Tex(l.sel(ex匸Endsub7.在名称为Form!的窗体上画一个文本框，名称为Textl,Text属性值为“VB可视化程序

7、设计”,采用宋体四号字；再画三个命令按钮，名称分别为Command1>Command2和Command3,标题分别为“黑体”、“隶书”和“楷体_GB2312”。程序运行时，单击不同的命令按钮，则文本框的字体变为和应的字体。请编写三个命令按钮的Click过程完成上述功能。Privatesubcommandl_click()Textl•fontname=command1.captionEndsubPrivatesubcommand2_click()Text1.fontnamc=command2.captionEndsubPrivatesubc