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]...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    Visual Basic程序设计教程第4章

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

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

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

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

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

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

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

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

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

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

    贡献者:网络收集
    285364
  • 网友在搜
    会的多音字组词和拼音 哈罗单车是支付宝的吗 微信支付限额怎么改 ps2 色差 闪烁 腾讯now直播平台 官网 js查找字符串的位置 拳王泰森和阿里谁厉害 美国之大牧场主无错txt tgirl world动态图 redis的主从同步 pro6plus外放垃圾 转让店铺有哪些网站 某导体的电阻是2欧 MFC如何添加成员变量 cdlinux v 四川阆中老城房价2016 村换届选举委员演讲稿 1060 6g玩lol fps多少 麦克风mix with wave 燃气报警器一定要装吗 caacmooc vivox6sa root教程 dede内容批量替换 好看恋爱动漫男主霸道 跪在靴下文章 支付违约金只适用于() 施工升降机安全规程 公积金封存是什么意思 matlab符号工具箱 放羊的星星高清版下载 铜梁区巴川初级中学 korean Hostess video 职业大厅面积最大的 皮肤缺水多喝水有用吗 小班语言公开课视频 全国日语等级考试时间 公司冰箱使用温馨提示 大学英语四级单词软件 主办承办协办的顺序 德国留学动机信中文 fatego5星英灵排行最新 嫁值连城宁馨儿妈妈网 mate8 b197 缺点 神经网络解决什么问题 青岛立新小学对口中学 预谋杀人一定会死刑吗 vaircose vein prices are going up vasa vasorum 韩国潜规则女星对应 秋元美由无码 下载 潜水钟与蝴蝶迅雷下载 gucci 红色链条包图片 鹰潭网监,剿戮天民,必败无疑 交大慧谷好吗 tgp都市天际线修改器 仙居县教育局 东方新天地电影院

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

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

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