Visual Basic程序设计教程(第4版)实验答案

※声明: 1. 实验所属课本原件为 《Visual Basic 程序设计教程 (第 4 版) (□主编 龚沛曾 □编者 杨志强 陆慰民 谢步瀛) 》; 2. 实验答案代码采用红色字体突出 ; 3. 仅提供课本前七个实验的代码,之后的实验上课考试均不 涉及故不作 ; 4. 教学平台上机实验、课本篇后实验,两者题目操作略有差 异,作业以前者要求为准,故以下答案代码为前者代码, 如对后者代码有所需求请私信 ; 5. 本文为作者原创,复制转载请注明出处 ; 6. 如果对代码有所疑问,或者略感繁琐想直接要已完成实 验,请私信 ; 7. 浏览、 复制、 下载后请给作者一个合理的评价, 感激不尽 。

实验 1-1 编制简单的欢迎界面程序。

要求: 在屏幕上显示“欢迎学习 Visual Basic” ; 在文本框 Text1 中输入姓名;单击命令按钮“你输入的姓名是” ,在 Label3 标

图1

签显示在文本框中输入的姓名。

程序运行效果如图 2.1.1 所示。

程序以“学号-1-1.frm”和“学号 -1-1.vbp”文件名保存。

以后每个实验项目的命名规则都是如 此,即“学号-实验号-实验题目” 。

(如某同学的学号为 A10414001,所完成的是实验 2 的第 3 题,那么程序文件名 为“A10414001-2-3.frm”和“A10414001-2-3.vbp” ) 图 2.1.1 实验 1.1 运行界面 提示: (1) 实验所用到的控件及属性设置见表 2.1.1。

表 2.1.1 属 性 设 置 控件名 Label1 属 性 Caption="欢迎学习 Visual Basic"; Font 属性: 字号为二号,字体为隶书,Aligment=2(居中) Label2 Caption="请输入你的姓名";Font 属性:字 体为楷体,有下划线 Label3 Caption="",BorderStyle=1

图2

Text1 Text="" Command1 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 属 性 Caption="实验 1.2";Picture:选择自己喜欢 的图片

图3

Label1 Caption="我开始学习程序设计"; FontSize=36;BackStyle=0 Command1 Caption=""; Style=1; Picture="clock02.ico"; ToolTipText="自动" Command2 Caption="";Style=1;Picture="key04.ico"; 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

图4

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 编一个程序,在文本框中统计在该窗口上鼠标单击的次数, 效果如图 2.1.2 所示。

以“学号-1-3”为项目名保存。

图5

图 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

图6

  • Visual-Basic程序设计教程(第4版)实验答案[2]

    Visual-Basic程序设计教程(第4版)实验答案[2]

    Visual-Basic程序设计教程(第4版)实验答案[2]...

    贡献者:网络收集
    118263
  • Visual_Basic程序设计教程(第4版)_课后答案

    Visual_Basic程序设计教程(第4版)_课后答案

    Visual_Basic程序设计教程(第4版)_课后答案...

    贡献者:网络收集
    76896
  • Visual Basic程序设计教程实验答案

    Visual Basic程序设计教程实验答案

    Visual Basic程序设计教程实验答案...

    贡献者:网络收集
    470486
  • VISUAL BASIC程序设计简明教程》实验和习题

    VISUAL BASIC程序设计简明教程》实验和习题

    VISUAL BASIC程序设计简明教程》实验和习题...

    贡献者:网络收集
    561997
  • visual basic语言程序设计及实验教程习题答案

    visual basic语言程序设计及实验教程习题答案

    visual basic语言程序设计及实验教程习题答案...

    贡献者:网络收集
    268182
  • 齐幼菊版《Visual Basic程序设计》课程作业(四)及答案

    齐幼菊版《Visual Basic程序设计》课程作业(四)及答案

    齐幼菊版《Visual Basic程序设计》课程作业(四)及答案...

    贡献者:网络收集
    811717
  • Visual Basic程序设计教程第4章

    Visual Basic程序设计教程第4章

    Visual Basic程序设计教程第4章...

    贡献者:网络收集
    24539
  • Visual Basic语言程序设计及实验教程-第4章 选择结构程序设计

    Visual Basic语言程序设计及实验教程-第4章 选择结构程序设计

    Visual Basic语言程序设计及实验教程-第4章 选择结构程序设计...

    贡献者:网络收集
    259413
  • 《Visual Basic程序设计教程(第2版)》课后部分编程题参考答案

    《Visual Basic程序设计教程(第2版)》课后部分编程题参考答案

    《Visual Basic程序设计教程(第2版)》课后部分编程题参考答案...

    贡献者:网络收集
    257077
  • 《Visual Basic程序设计基础》教材习题参考答案第七章

    《Visual Basic程序设计基础》教材习题参考答案第七章

    《Visual Basic程序设计基础》教材习题参考答案第七章...

    贡献者:网络收集
    748411
  • 网友在搜

    声明:本站内容部分源于网络转载,出于传递更多信息之目的,并不意味着赞同其观点或证实其描述。文章内容仅供参考,请咨询相关专业人士。

    如果无意之中侵犯了您的版权,或有意见、反馈或投诉等情况, 联系我们:点击这里给我发消息

    All Rights Reserved 华语网 手机站 网站地图 网站栏目