visual_basic程序设计语言_(2010年版)_课后答案.doc

课后答案网，用心为你服务！ 第一章 1、B 2、A 3、B 4、答：属性：红色、充满氢气；事件：松手、针刺；方法：飞走、爆破。 5、答：事件是指对象能够识别并作出反映的外部刺激。事件驱动又称消息驱动， 事件驱动程序设计是指每个事件对应有相应的程序代码，仅在该事件发生时， 该段代码才会被执行。事件发生的顺序决定了代码执行的顺序，因此每次执 行应用程序时，程序代码并不是按照程序编写的顺序来执行的。 6、答：VB是一个包括界面设计、程序编码、调试、编译并创建可执行程序的 集成开发环境。VB的集成开发环境的主界面中包含：标题栏、菜单栏、工 具栏、控件箱、工程资源管理器、属性窗口、 “窗体布局”窗口、窗体设计 器、代码编辑器等元素组成。 7、答： VB菜单条通常情况下有：文件、编辑、视图、工程、格式、调试、运 行、查询、图表、工具、外接程序、窗口、帮助等13项菜单项组成。 8、答：工具栏可自行定义。标准工具栏中通常情况下有：添加标准工程、 添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、 撤消、重复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗 口、对象浏览器、工具箱、数据视图窗口、可视化元件管理器等按钮组成。 9、答：创建VB应用程序的一般步骤为：创建界面；设置窗体和控件属性；编 写代码；保存工程；运行并调试程序；检查并排除错误；创建可执行文件。 10、 Private Sub Command1_Click()Label1.Caption = “I love vb,I hate vb“ End Sub课后答案网，用心为你服务！ 第二章 1、 2、 开始 temp=x x=y 输入x、y 结束 输出新的x 、y y=temp 开始 b>a? 是 否 交换a、b 否 c>a? 是 交换a、c c>b? 交换b、c 是 否 结束 输出a、b、c课后答案网，用心为你服务！ 3、S1 输入待判断自然数： N（N>=2 ）； S2 i=2； S3 判断 i 是否小于 N-1 ，若不是 转 S5 S4 判断 N 除以 i 的余数是否为 0,如果不是则 i=i+1 转 S3 ； S5 判断 i 是否等于 N，若是 输出“ 是素数” ，否 则输出“ 不是素数” 。 4、S1 输入待判断自然数： N； S2 将 N 转换成字符 S ， 计 算 S 的长度 K； S3 i=1； S4 判断 i 是否小于 K-1 ，若不是 转 S6； S5 判断 S 中的第 i 位和第 K-i+1 位是否相等,如果是则 i=i+1 转 S4，如果不 是则转 S6； S6 判断 i 是否是中 间位数，若是输出“ 是回文数” ，否 则输出“ 不是回文数” 。 5、S1 输入待判断自然数： a ； S2 i=1； S3 判断 i 是否小于 a-1，若不是 转 S5 S4 判断 a 除以 i 的余数是否为 0,如果是则保留因子 i ，否 则 i=i+1 转 S3； S5 输出所有因子。 6、 开始 边长>0? 是否能组 成三角形 计算 输出 出错信息 结束 是 否 是 否课后答案网，用心为你服务！ 第三章 1、窗体的属性主要分为杂项、外观、行为、字体、位置等五类。Caption是窗体 标题，出现在窗体标题栏的文本内容；而Name是窗体名称，在程序代码中被 作为窗体的标识名。 2、ABDE 4、改变窗口的工作状态会引发Activate事件，改变窗口大小会引发resize事 件。 5、forecolor和backcolor属性首先选择系统中的选项，然后在调色板中设置相 应的颜色；font属性设置好以后，在窗体上放置的任何控件都会继承窗体的 font属性。 6、C 7、Label、optionbutton、checkbox、commandbutton有caption属性，没有 text属性；text、combobox有text属性，没有caption属性 8、对象的属性可以在设计界面时在属性窗口中和运行中在代码中设置；属性窗 口中的属性列表并没有包括对象的所有属性。 9、picturebox、frame等 10、optionbutton和checkbox。Optionbox的Value可以取true－选中和 false－未选中，checkbox的Value可以取0－未选中，1－选中，2－变灰， 表示暂时不能访问。 11、text、commandbutton可以获得焦点。在设计界面时第一个放在窗体上的文 本框或命令按钮将得到焦点。 12、C 13、把Value的值设为2，表示暂时不能访问复选框，点击复选框后就可以访问 了，而把enabled属性设为false则是复选框变灰，完全不能访问。若把一 个控件的Visible属性设为false则在程序运行时看不到该控件。 14、用additem来添加列表项，用removeitem删除已有的列表项，用clear删 除所有列表项。 15、 课后答案网，用心为你服务！ 16、 Private Sub Check1_Click()If Check1.Value = 1 ThenLabel2.Font.Italic = TrueElseIf Check1.Value = 0 ThenLabel2.Font.Italic = FalseEnd If End Sub Private Sub Check2_Click()If Check2.Value = 1 ThenLabel2.Font.Bold = TrueElseIf Check2.Value = 0 ThenLabel2.Font.Bold = FalseEnd If End Sub Private Sub Command1_Click()End End Sub Private Sub Option1_Click()If Option1.Value Then Label2.Font.Size = 12Label2.Refresh End Sub Private Sub Option2_Click()课后答案网，用心为你服务！ If Option2.Value Then Label2.Font.Size = 14Label2.Refresh End Sub Private Sub Option3_Click()If Option3.Value Then Label2.Font.Size = 16Label2.Refresh End Sub Private Sub Option4_Click()If Option4.Value Then Label2.Font.Name = “宋体“Label2.Refresh End Sub Private Sub Option5_Click()If Option5.Value Then Label2.Font.Name = “隶书“Label2.Refresh End Sub Priva