VB课后习题参考答案(最全)

第一章1、B2、A3、B4、答：属性：红色、充满氢气；事件：松手、针刺；方法：飞走、爆破。5、答：事件是指对象能够识别并作出反映的外部刺激。事件驱动又称消息驱动，事件驱动程序设计是指每个事件对应有相应的程序代码，仅在该事件发生时，该段代码才会被执行。事件发生的顺序决定了代码执行的顺序，因此每次执行应用程序时，程序代码并不是按照程序编写的顺序来执行的。6、答：VB是一个包括界面设计、程序编码、调试、编译并创建可执行程序的集成开发环境。VB的集成开发环境的主界面中包含：标题栏、菜单栏、工具栏、控件箱、工程资源管理器、属性窗口、“窗体布局”窗口、窗体设计器、代码编辑器等元素组成。7、答：VB菜单条通常情况下有：文件、编辑、视图、工程、格式、调试、运行、查询、图表、工具、外接程序、窗口、帮助等13项菜单项组成。8、答：工具栏可自行定义。标准工具栏中通常情况下有：添加标准exe工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤消、重复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口、可视化元件管理器等按钮组成。9、答：创建VB应用程序的一般步骤为：创建界面；设置窗体和控件属性；编写代码；保存工程；运行并调试程序；检查并排除错误；创建可执行文件。10、PrivateSubCommand1_Click()Label1.Caption="Ilovevb,Ihatevb"EndSub第二章1、2、3、S1输入待判断自然数：N（N>=2）；S2i=2；S3判断i是否小于N-1，若不是转S5S4判断N除以i的余数是否为0,如果不是则i=i+1转S3；S5判断i是否等于N，若是输出“是素数”，否则输出“不是素数”。4、S1输入待判断自然数：N；S2将N转换成字符S，计算S的长度K；S3i=1；S4判断i是否小于K-1，若不是转S6；S5判断S中的第i位和第K-i+1位是否相等,如果是则i=i+1转S4，如果不是则转S6；S6判断i是否是中间位数，若是输出“是回文数”，否则输出“不是回文数”。5、S1输入待判断自然数：a；S2i=1；S3判断i是否小于a-1，若不是转S5S4判断a除以i的余数是否为0,如果是则保留因子i，否则i=i+1转S3；S5输出所有因子。6、第三章1、窗体的属性主要分为杂项、外观、行为、字体、位置等五类。Caption是窗体标题，出现在窗体标题栏的文本内容；而Name是窗体名称，在程序代码中被作为窗体的标识名。2、ABDE4、改变窗口的工作状态会引发Activate事件，改变窗口大小会引发resize事件。5、forecolor和backcolor属性首先选择系统中的选项，然后在调色板中设置相应的颜色；font属性设置好以后，在窗体上放置的任何控件都会继承窗体的font属性。6、C7、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、C13、把Value的值设为2，表示暂时不能访问复选框，点击复选框后就可以访问了，而把enabled属性设为false则是复选框变灰，完全不能访问。若把一个控件的Visible属性设为false则在程序运行时看不到该控件。14、用additem来添加列表项，用removeitem删除已有的列表项，用clear删除所有列表项。15、16、PrivateSubCheck1_Click()IfCheck1.Value=1ThenLabel2.Font.Italic=TrueElseIfCheck1.Value=0ThenLabel2.Font.Italic=FalseEndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenLabel2.Font.Bold=TrueElseIfCheck2.Value=0ThenLabel2.Font.Bold=FalseEndIfEndSubPrivateSubCommand1_Click()EndEndSubPrivateSubOption1_Click()IfOption1.ValueThenLabel2.Font.Size=12Label2.RefreshEndSubPrivateSubOption2_Click()IfOption2.ValueThenLabel2.Font.Size=14Label2.RefreshEndSubPrivateSubOption3_Click()IfOption3.ValueThenLabel2.Font.Size=16Label2.RefreshEnd