※声明：
1. 实验所属课本原件为《Visual Basic程序设计教程（第4版） （□主编 龚沛曾 □编者 杨志强 陆慰民 谢步瀛）》 ；
2. 实验答案代码采用红字体突出 ；
3. 仅提供课本前七个实验的代码，之后的实验上课考试均不涉及故不作 ；
4. 教学平台上机实验、课本篇后实验，两者题目操作略有差异，作业以前者要求为准，故以下答案代码为前者代码，如对后者代码有所需求请私信 ；
5. 本文为作者原创，复制转载请注明出处 ；
6. 如果对代码有所疑问，或者略感繁琐想直接要已完成实验，请私信 ；
7. 浏览、复制、下载后请给作者一个合理的评价，感激不尽 。
实验1-1
编制简单的欢迎界面程序。 要求：在屏幕上显示“欢迎学习Visual Basic”；在文本框Text1中输入姓名；单击命令按钮“你输入的姓名是”，在Label3标签显示在文本框中输入的姓名。 “学号-1-1.frm”和“学号-1-1.vbp”文件名保存。以后每个实验项目的命名规则都是如此，即“学号-实验号-实验题目”“”和“”） 图2.1.1 实验1.1运行界面 提示： 表2.1.1 属 性 设 置
(2) “欢迎学习Visual Basic”要在两行显示，只要将Label1控件的宽度缩小一些。 | ||||||||||||||
Private Sub Command1_Click()
Label3.Caption = Text1.Text
End Sub
实验1-2
模仿教学篇例1.1，将事件过程中的自上而下移动改为自右向左移动，同时考虑文字超出窗体边界的情况。各个控件及属性窗口的设置见表2.1.2，背景图形文件可以选择自己喜欢的，按钮上的图标可通过Windows搜索功能查。以“学号-1-2”为项目名保存。 表2.1.2 属 性 设 置
注：因为印刷错误，例题1.1中两个命令按钮的图形与事件过程代码不一致，需要调整。 提示： 自定义事件过程MyMove代码应调整为，可实现文字移动方向的改变 Sub MyMove() Label1.Move Label1.Left - 50, Label1.Top If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub | ||||||||||||||
Sub MyMove()
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论