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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    Visual Basic程序设计教程第4章

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

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

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

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

    贡献者:网络收集
    592384
  • 网友在搜
    china joy2016日期 南极料理人 西瓜影音 刘德华演唱会1080p mp4 耐克标签真假 衣服 java string 加引号 东风日产高新 win scp 自动备份 linux 获取进程的pid 巴奴毛肚火锅团购 730和560那个质量好 casting creme gloss 这才是真.酒池肉林啊 读三国演义有感的作文 kawd746磁力 lydia歌词前是哪国语 小米max有锁强刷系统 新堂エルの繁殖 波顿射频功率计 32ce530bled 关于咖啡店的网站 形容没有变化的成语 里番 杏佳援助篇 mysql 汉字占几个字符 狗狗呕吐拉西吃什么药 微信一键转发怎么安装 虎子yy号 chrome vlc plugin coconut tree寓意 ps4野兽之影 港服折扣 mywife1 600合集下载 net组件是什么 211 985知乎 x4 b50风扇 东风标致207进口版 dnf史诗出货图 bloodymary图片 人体自愈疗法三分钟 ksf荧光粉粒径 美国队长搞笑花絮 household和family 国外歌手中文名 内六角螺钉m12x140 吸血鬼日记only one ninebot 电池激活 jetty failed samtec inc 母系h漫 眠母2 xposed 执行原函数 汽车遥控器天线 仙剑奇侠传3d游戏 redis decr 减到0判断 男士油头发型图片 win7 office 错误2503 openstack ovs 放弃 谢雨欣 新年快乐 革命宣传字体 中国网球赛事 機嫌 翻译

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

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

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