VisualBasic程序设计教程第版实验答案

由天下分享时间：2024/11/9 20:43:42 加入收藏我要投稿点赞

※声明：

实验所属课本原件为《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 属性设置控件名 Label1 属性 Caption=\欢迎学习Visual Basic\；Font属性：字号为二号，字体为隶书，Aligment=2(居中) Label2 Caption=\请输入你的姓名\；Font属性：字体为楷体，有下划线 Label3 Text1 Command1 Caption=\，BorderStyle=1 Text=\ Caption=\你输入的姓名是\ (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 属性设置控件名 Form1 Label1 Command1 属性 Caption=\实验1.2\；Picture：选择自己喜欢的图片 Caption=\我开始学习程序设计\；FontSize=36；BackStyle=0 Caption=\；Style=1；Picture=\；ToolTipText＝\自动\ Command2 Caption=\；Style=1；Picture=\；ToolTipText＝\手动\ Timer1 Interval=0 注：因为印刷错误，例题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()

Label1.Move Label1.Left - 50, Label1.Top If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub

Private Sub Command1_Click() Timer1.Interval = 200 End Sub

Private Sub Command2_Click() Timer1.Interval = 0 Call MyMove End Sub

Private Sub Form_Load() Timer1.Interval = 0 End Sub

Private Sub Timer1_Timer() Call MyMove End Sub

实验1-3

“学号-1-3”为项目名保存。图2.1.2 实验1.3运行界面提示：

(1) 对窗体编写两个事件：Form_Load 事件中对文本框置初值为空；Form_Click事件对鼠标单击文本框计数。

(2) 对鼠标单击文本框计数计算为：Text1.Text=Val(Text1.Text)+1 Private Sub Form_click() Text1.Text = Val(Text1.Text) + 1 End Sub

Private Sub Form_Load() Text1.Text = \ End Sub