vb程序设计实验1实验报告

《vb程序设计实验1实验报告》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、《VB程序设计》实验报告姓名学号组别专业班级教师日期机号(操作/报告)成绩实验1VB.NET环境和可视化编程基础一、实验目的及要求（见实验书，要求手填）：1.了解VB.NET系统对计算机软件、硬件的要求。2.掌握启动与退出VB.NET的方法。3.掌握建立、编辑和运行VB.NET应用程序的全过程。4.掌握常用控件的使用，如文本框、标签、命令按钮、图片框。二、实验完成情况：实验完成情况表：内容完成情况预习否计时难度评价1创建一个程序基本□　提高□　创新□预习了5min简单2左右移动文字基本□　提高□　创新□预习了5min一般3统计鼠标单击窗口的次数基本□　提高□　创新□预习了5min一

2、般4按钮、字号、内容、和格式的复制练习基本□　提高□　创新□预习了5min简单5图片缩小、还原的设置基本□　提高□　创新□预习了5min一般附加汇率的程序基本□　提高□　创新□预习了5min简单附加题内容：人民币与美元相互兑换的程序三、界面设计与程序代码要求：给出界面设计示意图，在属性窗口修改过的对象属性需列出，列出方式如下：1、创建一个程序步骤：①在窗体上建立3个标签、一个命令按钮和一个文本框。②在代码窗口中选择Button1对象Click事件，在Button1-Click事件模板内输入代码。③单击启动调试按钮运行程序。④单击工具栏的“全部保存”按钮。①界面设计对象名属性名属性值

3、Label1TextFontAutoSizeTextAlign欢迎学习VB.NET二号字，隶书FalseMiddleCenterLabel2TextFont请输入你的姓名宋体，有下划线Button1Text请输入你的姓名Label3AutoSizeBorderStyleFalseFixed3D②程序代码PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickLabel3.Text=TextBox1.TextEndSu

4、b③运行结果2、左右移动文字步骤：①在窗体上建立1个标签、1个命令按钮、1个定时器。②在代码窗口分别对3个控件编写代码，最后编写左右移动的单位。③单击启动调试按钮运行程序。④单击工具栏的“全部保存”按钮。①界面设计对象名属性名属性值Form1TextBackgroundImage引例自己喜欢的图片Label1TextFont欢迎使用VB.NET自己设置Button1TextTextAlignImageAlign自动对齐方式为中左对齐方式为中右Button2TextTextAlignImageAlign手动对齐方式为中左对齐方式为中右Timer1Interval200②程序代码Pub

5、licClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickTimer1.Enabled=TrueEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickTimer1.Enabled=FalseCallmymove()EndSubPrivateSubTimer1_Tick(ByVa

6、lsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickCallmymove()EndSubSubmymove()Label1.Left=Label1.Left+50IfLabel1.Left>Me.HeightThenLabel1.Left=0EndSubEndClass③运行结3、统计鼠标单击窗口的次数步骤：①在窗体上建立一个标签、一个文本框。②在代码窗口分别对2个控件编辑代码。③单击启动调试按钮运行程序。④单击工具栏的“全部保存”按钮。①界面设计对象名属性名属性值Label1Text你单击窗体的次数为

7、：②程序代码PublicClassForm1PrivateSubForm1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.ClickTextBox1.Text=Val(TextBox1.Text)+1EndSubPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadT