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

来源:网络收集 打印文章内容   下载WORD版到本地  

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

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

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

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

程序运行效果如图 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

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:选择自己喜欢 的图片

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

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”为项目名保存。

图 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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    Visual Basic程序设计教程第4章

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

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

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

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

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

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

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

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

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

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

    贡献者:网络收集
    633376
  • 网友在搜
    电影葛底斯堡 高校班级建设 国航4月会员日是哪天 beyond喜欢你下载 endnote导入文献是空白 二叉树结点数计算公式 007黄金眼电影免费 all too well 歌词 广宇发展借壳上市好吗 electra ltd israel 陶虹 性瘾 WiFilianbushang 高光粉色和白色的区别 马达加斯加的企鹅网盘 and i am telling you fx3ga编程手册有得卖吗 日间手术的定义 红桥区私立小学 fluent 气体混合 出售穿越火线账号网店 ipad刷机刷到15错误 april bowlby怀孕 代办施工许可证 lightning耳机孔是啥 奔腾汽车服务电话 婚礼进行曲电子琴演奏 老师骟学生的蛋蛋小说 死路电影下载 金州勇士队标变化 广州雪佛兰4s店哪间好 车载导航卡丢了怎么办 2017微云同步盘 著名软装大师 王者荣耀女生霸气名字 iso 13913 2014中文版 wmi e accessdenied 中国好声音不要怕原唱 麻生希空姐GIF图片 管办评分离是什么意思 unity横版2d地图 耐磨焊条 hp126驱动跟1108通用 foobar2000和aimp 奥斯汀史蒂文斯全14集 1z87ae400393164360 女性买手机买哪个牌子 美图秀秀翻转 my week教学设计 长得可爱的男生 薛之谦头发颜色叫什么 杭州 违章 财神上香图解 actt公司 不忘初心继续前进内容 卡西欧350s 上位 寂寞一刀 笔趣阁 note5第三方内核 hx6064 6730

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

    如果无意之中侵犯了您的版权,或有意见、反馈或投诉等情况, 联系我们:shnews500#tom.com

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