电大visual_basic程序设计作业答案

《电大visual_basic程序设计作业答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VisualBasic程序设计作业1一、选择题1．D2．B3．C4．C5．B6．D7．A8．B9．A10．C11．C12．C13．B14．D15．A二、填空题1．视图工具箱2．对象事件3．.vbp.frm4．窗体控件菜单5．完成某种特定的功能对象名.方法名Form1.Show6．MultilineTrue7．40008．AutoSizeTrue9．窗体布局窗口10．txtshow.text="GOODWORK！"11．Click()、frm1.show12．单击双击装载多响应某个事件后所执行的程序代玛cmd1Click13．完成某种特定的功能对象名.方法名Form1.

2、Show14．工具选项选项自动语法检测15．TimerIntervalms三、问答题1．参考答案答：可视化编程是目前最直观的一种编程方法，人们一般用Visual一词表示它。之所以叫做“可视”，是指你无需编程，仅通过直观的操作方式即可完成界面的设计工作。因此，可视化语言是目前最好的Windows应用程序开发工具。在这种语言中引入了控件的概念，每个控件都有若干方法和事件，并通过一系列的属性来控制控件的外观。利用这些控件，编程过程就如同画画，随意点几下鼠标，一个按钮就完成了，这些工作在使用传统编程语言的情况下，需要编写大量复杂的程序代码才能实现。可视化编程主要用到了事件驱动

3、机制，其原理是：当应用程序运行后，程序处于等待状态，当某个事件发生后，程序就去执行此事件的事件过程，当这个事件过程执行完后，应用程序又处于等待另一个事件发生的状态。2．参考答案答：对象是代码和数据的封装体，在VB中，“数据”表现为属性，“代码”则表现为事件和方法。建立一个对象后，其操作通过与该对象的有关属性、事件和方法来描述。属性是一个对象的基本特性，每个对象都有它自己的属性。通过修改对象的属性，可以改变对象的外观和功能。方法就是要对象执行的动作，一般可以将它理解为VB提供的一种特殊的过程和函数。其特殊性在于，这些过程和函数是封装在对象内部的，是在对象上实施的某种操作

4、功能。事件就是在对象上所发生的事情。对象的事件是由VB预先设置好的、能被对象识别的动作。用户不能建立新的事件，但可以根据需要对事件进行编程。从非严格意义上讲，可以将事件理解为一种特殊的方法。153．参考答案答：传统的面向过程的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码，程序从第一行代码开始执行并按应用程序中预定的路径执行，用户无法改变程序的执行流程。在事件驱动的应用程序中，程序的执行发生了根本的变化，代码不是按照预定的路径执行，而是在响应不同的事件时执行不同的代码片段。每个对象都有一个相应的事件集，每个事件发生都要执行一段程序代码。事件可以由用

5、户操作触发，也可以由操作系统或其它应用程序的消息触发，甚至可由应用程序本身的消息触发。这些事件的顺序决定了代码执行的顺序，因此，应用程序每次运行所经过的代码路径是不确定的，它的执行流程由用户来决定。在程序设计时，不需要指出先执行哪部分代码，或按什么顺序执行代码，只需编写针对某个事件的程序代码即可。4．参考答案答：事件驱动是VB应用程序的基本机制，其基本过程是：（1）启动应用程序，装载和显示窗体。（2）窗体或窗体上的控件等待事件的发生。事件可由用户引发（例如键盘操作或鼠标点击）、可由系统引发（例如定时器控件）、也可由代码间接引发（例如当代码装载其他窗体时产生的Load事

6、件）。（3）当某个事件发生后，执行其对应的事件过程代码。（4）重复执行第2和第3步。直到遇到End语句或单击“结束”按钮停止程序的运行。四、程序设计题1．PrivateSubForm_Load()Text1.Text="VB程序设计"Text1.FontSize=16EndSubPrivateSubCommand1_Click()Text1.Visible=FalseEndSubPrivateSubCommand2_Click()Text1.Visible=TrueEndSub2．PrivateSubCommand1_Click()Text1.Text=""Text2

7、.Text=""[Text3.Text=""EndSubPrivateSubCommand2_Click()IfText1Text=""OrText2.Text=""OrText3.Text=""ThenMsgBox"成绩输入不全！"ElseText4.Text=(Val(Text1.Text)+Val(Text2.Text)+Val(Text3.Text))/3EndIfSubEnd15PrivateSubCommand3_Click()UnloadMeEndSub3．PrivateSubCommand1_Click()IfText1.Text="