1、#*声明：1. 实验所属课本原件为Visual Basic 程序设计教程（第 4版） （主编 龚沛曾 编者 杨志强 陆慰民 谢步瀛） ；2. 实验答案代码采用红色字体突出 ；3. 仅提供课本前七个实验的代码，之后的实验上课考试均不涉及故不作 ；4. 教学平台上机实验、课本篇后实验，两者题目操作略有差异，作业以前者要求为准，故以下答案代码为前者代码，如对后者代码有所需求请私信 ；5. 本文为作者原创，复制转载请注明出处 ；6. 如果对代码有所疑问，或者略感繁琐想直接要已完成实验，请私信 ；7. 浏览、复制、下载后请给作者一个合理的评价，感激不尽 。实验 1-1编制简单的欢迎界面程序。 要求：在屏
2、幕上显示“欢迎学习 Visual Basic”；在文本框Text1中输入姓名；单击命令按钮“你输入的姓名是” ，在Label3标签显示在文本框中输入的姓名。 程序运行效果如图 2.1.1所示。程序以“学号-1-1.frm”和“学号-1-1.vbp”文件名保存。以后每个实验项目的命名规则都是如此，即“学号-实验号-实验题目” 。 （如某同学的学号为 A，所完成的是实验 2的第 3题，那么程序文件名为“A-2-3.frm”和“A-2-3.vbp” ） 图 2.1.1 实验 1.1运行界面提示： (1) 实验所用到的控件及属性设置见表 2.1.1。表 2.1.1 属 性 设 置控件名 属 性Labe
3、l1 Caption=“欢迎学习 Visual Basic“；Font 属性：字号为二号，字体为隶书，Aligment=2(居中)Label2 Caption=“请输入你的姓名“；Font 属性：字体为楷体，有下划线Label3 Caption=“，BorderStyle=1Text1 Text=“Command1 Caption=“你输入的姓名是“(2) “欢迎学习 Visual Basic”要在两行显示，只要将Label1控件的宽度缩小一些。Private Sub Command1_Click()Label3.Caption = Text1.TextEnd Sub实验 1-2模仿教学篇例
4、1.1，将事件过程中的自上而下移动改为自右向左移动，同时考虑文字超出窗体边界的情况。各个控件及属性窗口的设置见表 2.1.2，背景图形文件可以选择自己喜欢的，按钮上的图标可通过 Windows搜索功能查找。以“学号-1-2”为项目名保存。表 2.1.2 属 性 设 置控件名 属 性Form1 Caption=“实验 1.2“；Picture：选择自己喜欢的图片Label1 Caption=“我开始学习程序设计“；FontSize=36；BackStyle=0Command1 Caption=“；Style=1；Picture=“clock02.ico“；ToolTipText“自动“Comma
5、nd2 Caption=“；Style=1；Picture=“key04.ico“；ToolTipText“手动“Timer1 Interval=0注：因为印刷错误，例题 1.1中两个命令按钮的图形与事件过程代码不一致，需要调整。提示： 自定义事件过程 MyMove代码应调整为，可实现文字移动方向的改变Sub MyMove()Label1.Move Label1.Left - 50, Label1.TopIf Label1.Left “要求：(1) Command1：使得 Text1的字体和字号根据命令按钮显示的要求改变(2) Command2：要求将 Text1选中的内容及其格式复制到Tex
6、t2。选中的内容通过 Text1的 SelText属性获得提示：为使 Text2文本框保持 Text1中的字符格式，通过Text2.FontSize=Text1.FontSize和Text2.FontName=Text1.FontName实现Private Sub Command1_Click()Text1.FontName = “隶书“Text1.FontSize = 25End SubPrivate Sub Command2_Click()Text2 = Text1.SelTextText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSizeEnd Sub实验 1-6图片缩小、还原的设置。窗体上放置一个 Image图像控件和两个命令按钮。Image 图像控件装入自己喜欢的图片，设置 Stretch属性为 True，
