- 1、本文档共129页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Visual_Basic程序设计教程(第4版)实验答案解读
※声明:
实验所属课本原件为《Visual Basic程序设计教程(第4版) (□主编 龚沛曾 □编者 杨志强 陆慰民 谢步瀛)》 ;
实验答案代码采用红色字体突出 ;
仅提供课本前七个实验的代码,之后的实验上课考试均不涉及故不作 ;
教学平台上机实验、课本篇后实验,两者题目操作略有差异,作业以前者要求为准,故以下答案代码为前者代码,如对后者代码有所需求请私信 ;
本文为作者原创,复制转载请注明出处 ;
如果对代码有所疑问,或者略感繁琐想直接要已完成实验,请私信 ;
浏览、复制、下载后请给作者一个合理的评价,感激不尽 。
实验1-1
编制简单的欢迎界面程序。
要求:在屏幕上显示“欢迎学习Visual Basic”;在文本框Text1中输入姓名;单击命令按钮“你输入的姓名是”,在Label3标签显示在文本框中输入的姓名。
程序运行效果如图2.1.1所示。程序以“学号-1-1.frm”和“学号-1-1.vbp”文件名保存。以后每个实验项目的命名规则都是如此,即“学号-实验号-实验题目”。(如某同学的学号为所完成的是实验2的第3题,那么程序文件名为“2-3.frm”和“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) 对鼠标单击文本框计
您可能关注的文档
- 森隆满园二期市政消防水池钢板桩基坑支护施工方案讲述.doc
- VBA学习总结解读.pptx
- VBA最最精典的教程(基础入门)解读.ppt
- USB识别及阻抗匹配解读.docx
- VBNET第11课解读.ppt
- 常见金属活动性顺序精要.docx
- VB上机练习题解读.doc
- 检测报告简介讲述.ppt
- 常见裸子植物精要.pptx
- usbkey解读.ppt
- 甘肃省白银市会宁县第一中学2025届高三3月份第一次模拟考试化学试卷含解析.doc
- 2025届吉林市第一中学高考考前模拟生物试题含解析.doc
- 四川省三台县芦溪中学2025届高三下第一次测试生物试题含解析.doc
- 2025届江苏省启东市吕四中学高三适应性调研考试历史试题含解析.doc
- 浙江省宁波市十校2025届高三二诊模拟考试历史试卷含解析.doc
- 甘肃省甘南2025届高考生物必刷试卷含解析.doc
- 河北省石家庄市一中、唐山一中等“五个一”名校2025届高考历史四模试卷含解析.doc
- 江西省南昌市进贤一中2025届高考生物考前最后一卷预测卷含解析.doc
- 甘肃省白银市会宁县第四中学2025届高三第二次模拟考试历史试卷含解析.doc
- 宁夏银川市宁夏大学附属中学2025届高考化学押题试卷含解析.doc
最近下载
- 解码国家安全智慧树知到期末考试答案2024年.docx
- 话剧小品《一九四二》台词剧本完整版.docx
- 一种ZIF-90负载可切换超润湿性的聚丙烯腈膜及其制备方法和应用.pdf VIP
- EN 14363-2016+A1-2018铁路设施 — 铁路车辆运行特性的验收试验和模拟 — 运行性能试验和稳定性试验(中文版).doc
- 07并网逆变器现场检查测试记录表.doc
- (外科学课件)27-胆道疾病.ppt
- 对外汉语综合课课堂导入考察和分析_吴丽君.pdf
- DB32_T 3289-2017菊芋贮藏保鲜技术规程.docx
- 口腔颌面外科学口腔颌面外科检查及门诊病历书写【66页】.pptx
- 赵亚初三数学学法指导课件精典课件.ppt
文档评论(0)