VB程序设计课后习题答案综述
VB程序设计概述习题参考答案
第一章 VB程序设计概述习题参考答案
一、选择题
题号 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
答案 A C C B A D B C C C A B C A D
题号16 17 18 19 20 21 22 23
答案 D A B B B A D B
二、填空题
1. 视图，工具箱
2. 工具栏
3. 标题栏
4. 学习版，专业版，企业版
5. 运行
三、简答题
1. 只要能运行Windows9x或Windows NT并具有140MB以上的硬盘空间即可。
2. 要再安装Visual Basic6.0。
因为安装VB6.0时，有些VB程序系统自动安装在Windows98目录下，所以一旦删除Windows98子目录，就必须再安装VB6.0。
3. 在启动VB6.0的启动封面上，能显示对应的版本。
4. 代码窗口的打开方法：
（1）热键F7 （2）“视图”—> “代码窗口”
（3）在窗体窗口中双击任一控件或窗体本身
（4）从工程窗口中选择窗体或模块后单击“查看代码”按钮。
5. 单击要操作窗口的“关闭”按钮时，则不显示该窗口；选择“视图”菜单的对应的窗口命令显示所需的窗口。
6. VB的特点：
（1）具有面向对象的可视化设计工具;
（2）事件驱动的编程机制;
（3）提供了易学易用的应用程序集成开发环境;
（4）结构化的程序设计语言;
（5）支持多种数据库系统的访问;
（6）Active技术;
（7）VB 6.0在开发环境上、网络功能等的增强;
（8）完备的help联机帮助功能。
VB课后练习答案.doc
VB课后练习答案P12第一章课后练习答案:一、选择题二、填空题第二章（P39）选择题答案：填空题答案：1.Cmdl, Click2.Text 1.Text二"Hello"P64第三章课后练习答案一、选择题二、填空题1.(Y Mod 4=0 And Y Mod 10000) Or Y Mod 400=0 2.a<>0 And b*2-4*a*c>=0 3.X Mod 5=0 And X Mod 2=0 或 Tnt(x/5)=X/5 And Int(X/2)=X/2 4. 注意：返回的均是字符型。
第四章课后答案：P79一、选择题答案为：$$41.50010二、填空题三、程序设计题（提示）1、鸡的头数为x,兔的头数为y,则可列方程式:\x-\- y = h （兀 * 2 + y * 4 =于求得x, y 的值再在窗体上输出结果。
2、 利用Format 格式函数，再通过窗体的Print 将格式化后的信息输出到窗体上。
3、 厶员I 的周长=2加" $岡的面积=加25、通过Inputbox 函数或用文本框输入三边和圆的半径a,b,c, r,利用公式：. a + b + cn 二 ---------2 S 三角形面积=Jh （h - - b ）（h - c ）P97第五章课后练习答案:第9题| D一、选择题答案D 改为:30二、填空题第］题Y Mod 4二0 And Y Mod 100二0 Or Y Mod 400二0 第2题笫3题笫4题Private Sub Command l_Click()X=Val(Textl.Text)Select Case XCase Is>200. Isv-10()Print “xv 100 Or x>200"Case ls<=0Y=l()()-XCase Isv二100Y=100+XCase Is<=200Y=400End SelectText2.Text=yEnd Sub三、程序设计题(提示)1、判断条件：假设一个整数为xX Mod 3=0 Or x Mod 5=0 或x/3=x\3 Or x/5=x\52、选项按钮的知识点在P182,利用该控件的Wlue属性判断是否选中该项。
VB程序设计教程课后参考答案概要
VB程序设计教程课后参考答案习题一一、填空题1．对象、事件驱动2．窗体、控件3．属性4．属性窗口、编程设置5．事件过程6．对象名、下划线、事件名7．Form_click8．Print form1.print “我的VB”9．主窗口、属性、工具箱、代码、窗体、工程资源管理10．菜单、快捷键二、选择题1．C 2. A 3. B 4. B 5. D 6. B C 7. A 三、简答题（略）习题二一、选择题1. D2. C3. C4. B5. C6. B7. C8. B 9. A 10. B 11. B 12. C 13. D 14. B15. A 16. A 17. A 18. A 19. B 20. C 21. A22. B 23. B 24. A 25. C 26. A 27. B 28. B29. C 30. B 31. D 32. D 33. C二、填空题1．Controlbox、Maxbutton、Minbutton2．Multiline TRUE3．******4．单文档界面（SDI）多文档界面（MDI）5．窗体显示6．Passwordchar7．_change()三、编程题（略）习题三一、基础知识题（略）二、填空题1．整型、长整型、单精度、双精度2．(x mod 10)*10+x\103．Sin(3.14*15/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)4．(a+b)/(1/(c+5)-c*d/2)5．X mod 5=0 or x mod 9=06．False7．-4、3、－3、3、－4、48．CDEF10．TRUE11．变量、属性12．‘_ :13．(略)14．“”＃15．Public、通用/模块、Dim、static、private16．+ 、&、+17．Now() 、time()、日期18．Inputbox()、字符串、val()19．Msgbox()三、选择题1．B 2. C 3. A 4. B D此题有误 5. B 6. A7. D 8. B 9. B 10. C 11. D 12. B13. C 14. B 15. A 16. C 17.A 18. D19. A 20. D 21. A 22. C 23. C 24. D25. A 26. D 27. D 28. B 29. C 30. B31. C 32. B 33. C D此题有误34. C 35. A36. D 37. C 38. A 39. B 40. A 41. C42. C 43. D 44. C 45. D 46. A四、编程题1.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%, delta%Dim x1#, x2#, x#a = Val(InputBox("please input data to a:", "info", 1))b = Val(InputBox("please input data to b:", "info", 1))c = Val(InputBox("please input data to c:", "info", 1))If a = 0 And b <> 0 Thenx = -c / bPrint "所构成的方程是：" & b & "x" & "+" & c & "=0"Print "该一元一次方程的根是：", xEnd IfIf a = 0 And b = 0 ThenPrint "很抱歉，不能构成合法的方程！"End IfIf a <> 0 Thendelta = b * b - 4 * a * cIf delta >= 0 Thenx1 = (-b + Sqr(delta)) / (2 * a)x2 = (-b - Sqr(delta)) / (2 * a)Print "所构成的方程是：" & a & "x2" & "+" & b & "x" & "+" & c & "=0"Print "该方程的根是："Print "第一个根是：", x1Print "第二个根是：", x2Else2Print "该方程有两个虚根："Print "第一个虚根是：" & -b / (2 * a) & "+" & Sqr(Abs(delta)) / (2 * a) & "i"Print "第二个虚根是：" & -b / (2 * a) & "－" & Sqr(Abs(delta)) / (2 * a) & "i" End IfEnd IfEnd Sub2.Option ExplicitPrivate Sub Command1_Click()Dim i%, s%s = 0For i = 1 To 99 Step 2s = s + iNextPrint sEnd Sub3.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#s = 0For i = 1 To 100s = s + 1 / i * (-1) ^ (i + 1)NextPrint sEnd Sub4.Option ExplicitPrivate Sub Command1_Click()Dim i%, n%Dim t#, s#n = Val(InputBox("please input data:", "info", 5))s = 0t = 1For i = 1 To nt = t * is = s + tNextPrint sEnd Sub5.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%Dim p#, s#a = Val(InputBox("please input data to a:", "info", 3))b = Val(InputBox("please input data to b:", "info", 4))c = Val(InputBox("please input data to c:", "info", 5))If (a + b > c And Abs(a - b) < c) Or (a + c > b And Abs(a - c) < b) Or ((b + c) > a And Abs(b - c) < a) Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print "三角形的面积是：" & sElsePrint "很抱歉，不能构成合法的△三角形！"End IfEnd Sub6.Option ExplicitPrivate Sub Command1_Click()Dim ji%, tu%For ji = 1 To 27For tu = 1 To 27If ji * 2 + tu * 4 = 78 And ji + tu = 27 ThenPrint "鸡的个数是：" & jiPrint "兔的个数是：" & tuEnd IfNextNextEnd Sub7.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#, t#s = 10t = 10For i = 1 To 7t = t * 0.4s = s + t * 2NextEnd Sub8.Option ExplicitPrivate Sub Command1_Click()Dim i%, fs%, max%, min%, s%Dim ave#fs = Val(InputBox("please input score:", "info", 90))s = fsmax = fsmin = fsFor i = 2 To 7fs = Val(InputBox("please input score:", "info", 90))If max < fs Thenmax = fsEnd IfIf min > fs Thenmin = fsEnd Ifs = s + fsNextave = (s - max - min) / 5Print "该运动员的平均成绩是：" & aveEnd Sub9. ‘同学们，这道题方法很多，主要考察你对选择结构的理解，我给出其中一种方法。
VB程序设计课后习题答案
VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后，误把Windows子目录删除。
当重新安装Windows后，是否需要再次安装VB6.0？答：要重新安装的。
因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。
3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。
4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。
5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装Visual Basic 6.0后，帮助系统是否也已安装？答：没有。
VB6.0的帮助系统在两张光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用Visual Basic 6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定内容有关的帮助信息。
VB程序设计教材习题及参考解答
第 1 章概述一、叙述题1．简述VB具有哪些特点。
（1）面向对象的可视化设计工具（2）事件驱动的编程机制（3）易学易用的应用程序集成开发环境（4）结构化的程序设计语言（5）充分利用Windows资源（6）开放的数据库功能与网络支持2．简述事件驱动的程序设计原理。
解答：VB程序的运行没有固定的顺序，它通过事件来激活某个对象，随着该对象的活动，会引发新的事件，这个事件又可能使另一个对象激活，对象之间就是以这种方式联系在一起的。
每个事件都可以通过一段程序（称为“事件过程”）来响应，在事件发生时，系统将自动执行相应的事件过程，用以实现指定的操作并达到运算、处理的目的。
为不同对象响应不同事件编写的事件过程构成了一个完整的应用程序，这就是VB事件驱动的程序设计原理。
3．VB的集成开发环境由哪些元素组成？解答：标题栏、菜单栏、工具栏、工具箱、窗体窗口、代码窗口、工程资源管理器窗口、属性窗口及窗体布局窗口等。
4．VB集成开发环境的工具栏能否自行定义？标准工具栏中包含一些什么按钮？解答：VB集成开发环境的工具栏可以自定义，方法是：用鼠标右击标准工具栏的任意位置，可以打开或关闭其余工具栏。
标准工具栏中包含的按钮有：添加Standard EXE工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤销、重复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口、可视组件管理器及窗体位置与大小等。
5．当创建只有一个窗体的应用程序后，该工程涉及多少个要保存的文件？若要保存该工程中的所有文件，应先保存什么文件？后保存什么文件？解答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
6．简述用VB开发应用程序的一般步骤。
（1）创建应用程序界面（2）设置界面上各个对象的属性（3）编写对象响应事件的程序代码（4）保存工程（5）运行和调试应用程序（6）创建可执行程序二、单选题1．D VB是一种面向对象的可视化程序设计语言。
visual_Basic程序设计教程_课后习题答案及练习
"VB程序设计"综合复习资料第一章 Visual Basic程序设计概述一、填空题1、VisualBasic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程〞菜单下的__________命令，可选择并添加Active*控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是〔〕A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是〔〕A．具有标准工具箱B．一个工程文件由假设干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、以下不能翻开属性窗口的操作是〔〕A．执行“视图〞菜单中的“属性窗口〞命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口〞按钮4、以下可以翻开立即窗口的操作是〔〕A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是〔〕A．可视化 B．面向对象 C．面向图形 D．事件驱动三、简答题1、代码窗口主要包括哪几局部？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的根本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能承受焦点。
VB程序设计课后习题答案
VB程序设计课后习题答案VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后，误把Window子目录删除。
当重新安装Window后，是否需要再次安装VB6.0？答：要重新安装的。
因为安装VB6.0时，有些VB程序被系统自动安装在Window目录下，所以一旦删除Window子目录，就必须重新安装VB6.0。
3、ViualBaic6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。
4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。
5、ViualBaic6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装ViualBaic6.0后，帮助系统是否也已安装？答：没有。
VB6.0的帮助系统在两张光盘上，即MSDNLibrary，其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用ViualBaic6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDNLibrary查阅器，直接显示与选定内容有关的帮助信息。
vb课后练习答案习题解答
v b课后练习答案习题解答(1)(共3页)--本页仅作为文档封面，使用时请直接删除即可----内页可以根据需求调整合适字体及大小--第1章程序设计语言与程序设计1．1填空题1．程序设计语言是由（）、（）和（）构成的指令系统。
答案：字、词、语法规则2．程序设计语言从机器执行角度可以分成（）和（）两大类。
VB语言是一种（）程序设计语言。
答案：低级语言、高级语言、事件驱动3．程序是解决特定问题的指令序列，主要完成（）和（）两方面工作。
答案：4．使用可视化程序设计语言设计应用程序，主要完成（）和（）两部分工作。
答案：数据描写、数据处理5．源程序中的错误一般分为（）错误、（）错误和（）错误等三种。
答案：编译、运行、逻辑6．建立一个VB工程要做的工作包括（）。
答案：需求分析、界面设计、设计程序、上机调试程序和保存程序11．2 选择题1．把a和b的乘积写成ab的错误属于（）错误。
a) 编译 b) 运行 c) 逻辑 d) 编译和运行答案：a2．用户在什么时候都可以按（）键来查看与当前进行的工作相关的帮助。
a)Held b)F1 c)ESC d)F10答案：b3．窗体文件的扩展名为（）。
a).vbp b).bas c).exe d).frm答案：d4．指示一个窗体位置的值是窗体的（）。
a)对象 b)事件 c)属性 d)方法答案：c5．下面选项中不能运行VB程序的操作是（）。
a) 双击窗体 b) 单击“启动”按钮图标c) 从菜单栏运行菜单中选“全编译执行”菜单命令 d) 按F5键答案：a1．3 解答题1．低级语言和高级语言的各自特点是什么答：低级语言包括机器语言和汇编语言。
它们都包含一些指令。
机器语言指令是由０和１构成，它能直接被机器识别和执行。
汇编语言是由一些特定的2助记符代表指令，用汇编语言编写的程序只需经过简单的翻译就可以被机器执行。
低级语言的特点是程序执行的速度快，运行效率高，但难学、难记、难阅读，程序设计难度大，非专业人员难以涉足。
最新VB程序设计课后习题答案资料
VB课后习题解答第一、二章:1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后，误把Windows子目录删除。
当重新安装Windows后，是否需要再次安装VB6.0 ？答：要重新安装的。
因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。
3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。
4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。
5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”一＞“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB98& 安装Visual Basic 6.0后，帮助系统是否也已安装？答：没有。
VB6.0的帮助系统在两张光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用Visual Basic 6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定内容有关的帮助信息。
VB课后习题答案汇总
课后习题参考答案第1章Visual Basic 6.0一、判断题1－－5：√×√×√ 6――10：××√×√ 11――13：√××二、选择题1――5：ADBBB 6――10：.CACDB三、填空题1、图片框和框架2、对象3、控件屏幕4、Load5、Load Activate四、程序设计题1、Private Sub Command1_Click()Print Text1.TextEnd SubPrivate Sub Command2_Click()EndEnd Sub2、Private Sub Command1_Click()Form1.FontSize = Form1.FontSize + 3Print "青春无悔"End SubPrivate Sub Command2_Click()FontSize = FontSize - 3Print "青春无悔"End SubPrivate Sub Command3_Click()Form1.FontBold = TruePrint "青春无悔"End SubPrivate Sub Command4_Click()FontBold = FalsePrint "青春无悔"End Sub3、Private Sub Command1_Click()Text1.Visible = FalseEnd SubPrivate Sub Command2_Click()Text1.Visible = TrueText1.FontName = "楷体_gb2312"Text1.FontSize = 15Text1.Text = "我学会了创建一个应用程序了！"End Sub第二章判断题：1~5错错错错错第3章顺序结构程序设计一、思考题略二、程序阅读题1．A=2 B=1 C=22．123．BABCBACBC4． 1 2 False5．1-12-123-1234-三、选择题1.B2.D3.B4.B5.D6.C四、程序设计题１．Private sub form_click()Dim r!,s!R=val(inputbox(“r=”))S=3.14159*r*rPrint “s=”;sEnd sub2．Private sub form_click()Dim x as singleX=val(inputbox(“x=”))Print fix(x*x*1000)/1000,fix(sqr(x)*1000)/1000End sub第4章选择结构程序设计一、判断题1.错2.错3.错4.错5.对二、选择题1．A 2. D 3.A 4.B 5.A 6.A三、程序阅读题1．X=3 y=72.w=4w=13w=135w=313.X_`a12 Uvw&4.12 9四、程序填空题1．(1) chr(keyascii) (2) chr(keyascii)=”)”(3)count1=count1-1 (4)count1=0 (5)count1>02．(1) max (2)min (3)c>max (4)c<min3.(1)x mod 3=2 and x mod 5=3 and x mod 7=4 then(2)text1.setfocus (3) text1.selstrat=0 (4)text1.sellength=len(text1.text)五、1.Private Sub Command1_Click()Dim y As Integery = Val(InputBox("y="))If (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0) Then Print "是闰年"ElsePrint "不是闰年"End IfEnd SubPrivate Sub Command1_Click()Dim y As Integer,y1 as stringy = Val(InputBox("y="))If (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0) Then Y1= "是闰年"ElseY1= "不是闰年"End If? y,y1End SubPrivate Sub Command1_Click()Dim y As Integer,y1 as stringy = Val(InputBox("y="))Y1= "不是闰年"If (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0) Then Y1= "是闰年"End If? y,y1End Sub2.Private Sub Command1_Click()Dim a%, b%, c%, x!,s!a = Val(InputBox("a="))b = Val(InputBox("b="))c = Val(InputBox("c="))If a + b > c And a + c > b And b + c > a Thenx = (a + b + c) / 2s = Sqr(x * (x - a) * (x - b) * (x - c))Print "s="; sElsePrint "不是三角形,重输a,b,c"End IfEnd SubPrivate Sub Command1_Click()Dim a%, b%, c%, x!,s!,t%a = Val(InputBox("a="))b = Val(InputBox("b="))c = Val(InputBox("c=")) ‘a,b,c=3,4,5t=0If a + b > c And a + c > b And b + c > a Thenx = (a + b + c) / 2s = Sqr(x * (x - a) * (x - b) * (x - c))t=1End IfIf t=0 then? “不是“endifEnd Sub3.Private Sub Command1_Click()Dim x!, y!x = Val(InputBox("x="))y = x * x - x – xIf x < 0 And x <> -3 Theny = x * x + x - 6ElseIf 0 <= x And x < 10 And x <> 2 And x <> 3 Then y = x * x - 5 * x + 6End IfPrint "x="; x, "y="; yEnd SubPrivate Sub Command1_Click()Dim x!, y!x = Val(InputBox("x="))If x < 0 And x <> -3 Theny = x * x + x – 6elseIf 0 <= x And x < 10 And x <> 2 And x <> 3 Theny = x * x - 5 * x + 6elsey=x^2-x-1End IfPrint "x="; x, "y="; yEnd SubPrivate sub form_click()Dim y%,z%,dj%,p!,t!Y=val(inputbox(“月”))Z= val(inputbox(“订票数”))Dj= val(inputbox(“票价”))Select case ycase 7,8,9If z>=20 then p=0.15 else p=0.05case 1 to 5,10,11If z>20 then p=0.3 else p=0.2Case elseP=0.2End selectT=z*dj*p? tend sub5.private sub form_click()dim m1%,m2%,m3%,dj$m1=val(inputbox(“m1=”)): m2=val(inputbox(“m2=”)): m3=val(inputbox(“m3=”))if (m1+m2+m3)/3>=95 or ( a=100 and b=100 and c>=80) or ( a=100 and c=100 and b>=80) or ( c=100and b=100 and a>=80) thendj=”一等”elseif (m1+m2+m3)/3>=90 or ( a=100 and b>=75 and c>=75) or ( b=100 and a>=75 and c>=75) or ( c=100 and b>=75 and a>=75) thendj=”二等”elseif a>=75 and b>=75 and c>=75 thendj=”三等”elsedj=”没有”endif? “dj=”;djend sub第5章 循环结构程序设计1．判断题×√√√××√×2．选择题BBBBCC3.填空题（1）7（2）Do/Loop For/Next While/Wend（3）-364.程序阅读题（1） （2）（3）4 （4）5．程序填空题（1）①sign=1 ②For i=2 to 19（2）①Len(str1) ②length-1 ③Mid(str1,i,2) ④Sum=0（3）①I mod 7=5 and i Mod 5 = 3 And i Mod 3=2 ②i<1000（4）①last_one = last_two ②last_two = this_one ③i=i+1 ④i-2（5）①I>int(sqr(m)) ②Int(Sqr(n-m))6．编程题（1）Private Sub Form_Click()Dim i As Integer, j As IntegerDim s As Double, Sum As Doubles = 188 68861 2 3 4 Sum=10# # # # # ## # # # ## # # ## # ## ##For i = 1 To 11 Step 2For j = 1 To is = s * jNext jSum = Sum + sNext iPrint SumEnd Sub（2）Private Sub Form_Click()Dim m%, n%, mn%, r%, t%m = Val(InputBox("m="))n = Val(InputBox("n="))If n <= 0 Or m <= 0 ThenMsgBox "数据有误"EndEnd Ifmn = m * nIf m < n Thent = m: m = n: n = tEnd IfDo While (n <> 0)r = m Mod n: m = n: n = rLoopForm1.Print "最大公约数="; mForm1.Print "最小公倍数="; mn / m End Sub（3）Private Sub Form_Click()Dim i%, j%For i = 1 To 5Print Spc(20 - i);For j = 1 To 2 * i - 1Print Trim(Str(i));Next jPrintNext iFor i = 4 To 1 Step -1Print Spc(20 - i);For j = 1 To 2 * i - 1Print Trim(Str(10 - i));PrintNext iEnd Sub（4）Private Sub Form_Click()Dim x As IntegerDim y As IntegerDim z As IntegerFor x = 0 To 100For y = 0 To 100 - xz = 100 - x - yIf 5 * x + 3 * y + z / 3 = 100 Then Print x, y, zNext yNext xEnd Sub（5）Private Sub Form_Click()Dim x As Single, y As Single, a As Single, i As Integerx = Val(InputBox("输入x:"))a = 1: y = a: i = 0While a >= 0.00001i = i + 1: a = a * x / i: y = y + aWendPrint "y="; yEnd Sub第六章答案一、判断题1．错2．错3．错4．错（可以为小数，不过仍然是当作整数来处理）5．错6．错二、选择题1．C2．C3．A4．D三、程序填空1．（1）N-1 （2）T = A(J): A(J) = A(J + 1): A(J + 1) = T（3）Print A(I)2．（1）a(i, j) = 1 （2）Print四、程序阅读1．52．1 2 3 41 2 3 41 2 3 41 2 3 41 1 1 12 2 2 23 3 3 34 4 4 43．（前面空4个空格）1 12 11 102 13 16 93 14 15 84 5 6 7第7章过程判断题：1、对2、错3、错4、错5、对6、对7、错选择题：1．B 2、D 3、D 4、C 5、A程序阅读题：1、y=5 a=52、n=1 z=4y=15 a=10 n=2 z=7y=30 a=15 n=3 z=103、32 644、2 2 216 648 644 645、A1=10 B1=20A2=20 B2=10程序填空题：1、（1）hwstring(str) （2）"" （3）As Boolean（4）n=len(strtxt) (5) True （6）False2．（1）Xsch(Nman,Nkcen) （2）n（3）sum=sum+x(i,j) （4）tt/n （5）x(i,m+1)<1.2*ver and x(i,m+1)>=1.1*ver 3．（1）number（i）（2）Byval n as Integer （3）number= number+7*10^ (i-1)4．（1）temp=1 （2）temp （3）nFactor( i ) （4）sum 程序设计题：1、具体程序为：Function Maxnum(ByRef a() As Integer, ByVal n As Integer) As IntegerDim i As IntegerMaxnum = a(1)For i = 2 To nIf a(i) > Maxnum Then Maxnum = a(i)Next iEnd FunctionFunction Avenu(ByRef a() As Integer, ByVal n As Integer) As SingleDim i As Integer, sum As IntegerFor i = 1 To nsum = sum + a(i)Next iAvenu = sum / nEnd FunctionSub Sortrnum(ByRef a() As Integer, ByVal n As Integer)Dim i As Integer, j As Integer, k As IntegerDim temp As IntegerFor i = 1 To nk = iFor j = i + 1 To nIf a(k) > a(j) Then k = jNext jIf i <> k Thentemp = a(i)a(i) = a(k)a(k) = tempEnd IfNext iEnd SubPrivate Sub Form_Click()Dim b(10) As Integer, i As IntegerFor i = 1 To 10b(i) = InputBox("请输入整数", "输入")Next iCall Sortrnum(b(), 10)Print "从小到大排序为："For i = 1 To 10Print b(i);NextPrintPrint "最大数为："; Maxnum(b(), 10)Print "平均数为："; Avenu(b(), 10)End Sub2、具体程序为：Function fe(n%, x!) As SingleDim temp As Single, i As Integerfe = 1temp = 1For i = 1 To ntemp = temp * x / ife = fe + tempNext iEnd FunctionPrivate Sub Form_Click()Dim n As Integer, x As Singlen = Val(InputBox("请输入n", "输入"))x = Val(InputBox("请输入x", "输入"))Print "e的值为："; fe(n, x)End Sub3、具体程序为：Sub sort(a() As Single, n As Integer)Dim i As Integer, j As Integer, k As Integer Dim temp As SingleFor i = 1 To nk = iFor j = i + 1 To nIf a(k) < a(j) Then k = jNext jIf i <> k Thentemp = a(i)a(i) = a(k)a(k) = tempEnd IfNext iEnd SubPrivate Sub Form_Click()Dim a(10) As Single, i As IntegerFor i = 1 To 10a(i) = Val(InputBox("请输入数据", "输入")) Next iCall sort(a(), 10)Print "从大到小为："For i = 1 To 10Print a(i);If i Mod 5 = 0 Then PrintNext iEnd Sub第8章 常用控件参考答案：一、判断题1、×2、×3、√4、√5、×6、×7、×8、×9、× 10、×11、× 12、√ 13、× 14、√ 15、√二、单选题1、A2、B3、A4、C5、B6、D7、A8、B9、C 10、C11、A 12、A 13、C 14、B 15、A三、填空题1、Autosize WordWrap2、Enabled Visible3、文本框和列表框4、拖动滚动框5、Change6、Command1.Setfocus7、Timer8、MaxLength 9、AddItem 10、定时器屏蔽123 45.五、程序填空题1、(1) Label1.left (2) –Label1.Width2、(1) List1.ListIndex<0 （或者List1.ListIndex = -1） (2) List1.RemoveItem List1.ListIndex(3) Text1.Text=”” (4) List1.AddItem Text1.Text3、(1) 1 to 2*I-1 (2) Command2.Enabled=True(3) Command2.Enabled=False4、(1) ndec<>0 (2) ndec mod 16 (3) ai=ndec(4) end (5) ai & shex (6)shex5、(1) Timer1.Enabled=True (2) x \ 3600 (3) (x-h*3600)\60(4) x=x+16、(1) m<len(str1)/2 (2) mid (str1,m+1,1) (3)mid (str1,len(str1)-m,1)六、程序设计题1、 Private Sub Command1_Click()If Text1.Text = "" ThenMsgBox "请先输入添加项"ElseList1.AddItem Text1.TextEnd IfEnd SubPrivate Sub Command2_Click()If List1.ListIndex < 0 Then ‘或者if list1.listindex=-1 then MsgBox "请选择一删除项"ElseList1.RemoveItem List1.ListIndexEnd IfEnd SubPrivate Sub Command3_Click()If List1.ListIndex < 0 ThenMsgBox "请选择一修改项"ElseText1.Text = List1.TextEnd IfCommand4.Enabled = TrueEnd SubPrivate Sub Command4_Click()Dim a As IntegerIf List1.Text = Text1.Text ThenMsgBox "请先修改此项"Elsea = List1.ListIndexList1.RemoveItem List1.ListIndexList1.AddItem Text1.Text, aEnd IfEnd SubPrivate Sub Form_Load()Command4.Enabled = FalseEnd Sub2、 Dim a As IntegerPrivate Sub Command1_Click()a = Int(Rnd * 100) + 1End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Static i As IntegerIf KeyAscii = 13 ThenIf Val(Text1.Text) > a ThenLabel1.Caption = "太大了，请重输"i = i + 1ElseIf Val(Text1.Text) = a ThenLabel1.Caption = "恭喜你，你答对了！"i = 0Command1_ClickElseLabel1.Caption = "太小了，请重输！"i = i + 1End IfIf i > 10 ThenMsgBox "你失败了！"EndEnd IfEnd IfEnd Sub3、Private Sub Command1_Click()Dim n As Integer: n = Len(Text1.Text)Dim s(1 To 1000) As String, i As Integer, j As Integer, t As String,a As StringFor i = 1 To ns(i) = Mid(Trim(Text1.Text), i, 1)Next iFor i = 1 To n - 1For j = i + 1 To nIf s(i) > s(j) Thent = s(i): s(i) = s(j): s(j) = tEnd IfNext j, iFor i = 1 To n: a = a + s(i): Next iPrint aCommand1.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click(): End: End SubPrivate Sub Form_Load()Text1.MaxLength = 200Command2.Enabled = False: Command1.Enabled = TrueEnd Sub4、Dim a(1 To 1000) As String, b(1 To 1000) As String, c(1 To 1000) As Double, d(1 To 1000) As DoublePrivate Sub Combo1_click()Text1.Text = a(Combo1.ListIndex + 1)Text2.Text = b(Combo1.ListIndex + 1)Text3.Text = c(Combo1.ListIndex + 1)Text4.Text = d(Combo1.ListIndex + 1)End SubPrivate Sub Command1_Click()Combo1.AddItem Text1.Texta(Combo1.ListCount) = Text1.Textb(Combo1.ListCount) = Text2.Textc(Combo1.ListCount) = Val(Text3.Text)d(Combo1.ListCount) = Val(Text4.Text)End SubPrivate Sub Command2_Click()For i = Combo1.ListIndex + 1 To Combo1.ListCount - 1a(i) = a(i + 1)b(i) = b(i + 1)c(i) = c(i + 1)d(i) = d(i + 1)Next ia(i) = ""b(i) = ""c(i) = 0d(i) = 0Combo1.RemoveItem Combo1.ListIndexText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Form_Load()Dim i As IntegerCombo1.AddItem "张三"Combo1.AddItem "李四"Combo1.AddItem "王五"a(1) = "张三": a(2) = "李四": a(3) = "王五"b(1) = "浙江林学院": b(2) = "浙江工业大学": b(3) = "浙江大学"c(1) = : c(2) = : c(3) =d(1) = : d(2) = : d(3) =End Sub5、Private Sub Check1_Click()If Check1.Value = 1 ThenLabel1.FontBold = TrueElseLabel1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check1.Value = 1 ThenLabel1.FontItalic = TrueElseLabel1.FontItalic = FalseEnd IfEnd SubPrivate Sub Option1_Click()Label1.FontName = "宋体"End SubPrivate Sub Option2_Click()Label1.FontName = "楷体_gb2312"End Sub6、Private Sub Command1_Click()Dim a As String, i As Integer, n As IntegerDim s As Integer, q As Integer, l As Integern = Len(Text1.Text)For i = 1 To na = Mid(Text1.Text, i, 1)If a >= "a" And a <= "z" Thens = s + 1 '大写个数ElseIf a >= "A" And a <= "Z" Thenq = q + 1 '小写个数ElseIf a >= "0" And a <= "9" Thenl = l + 1End IfNext iText2.Text = sText3.Text = qText4.Text = lEnd SubPrivate Sub Form_Load()Text1.SetFocusEnd Sub7、Private Sub Form_Click()Dim i As Integer, j As Integer, t As IntegerFor i = 0 To List1.ListCount - 1List3.AddItem List1.List(i)Next iList1.ClearDo While List2.ListCountList3.AddItem List2.List(0)List2.RemoveItem 0LoopFor i = 0 To List3.ListCount - 2For j = i + 1 To List3.ListCount - 1If List3.List(i) > List3.List(j) Thent = List3.List(i): List3.List(i) = List3.List(j): List3.List(j) = tEnd IfNext j, iEnd SubPrivate Sub Form_Load()Dim i As Integer, n As Integern = InputBox("")For i = 1 To nList1.AddItem Int(Rnd * 90) + 10List2.AddItem Int(Rnd * 90) + 10Next iEnd Sub第9章对话框和菜单1．判断题：×√√(题中应把flag改为flags)√√××√√×××√××2．选择题：DDCCD BDCCB3．填空题1.－2.一级子菜单3.将顶级菜单设置为不可见4.popupmenu pmenu,0,x,y5.showfont6.工程、部件7.click8.代码窗口，click9.下拉式，弹出式打开/另存为、颜色，字体、打印、帮助4. 程序阅读题打开对话框2、*.txt3、allfiles*.exe*.txt*.doc4、Checking，No File Selectd，重试（R），取消5. 程序填空题“c:\winnt”commondialog1.showopen,loadpicture(commondialog1.filename)6. 程序设计题1、界面如图：代码如下：Private Sub Command1_Click()CommonDialog1.FileName = ""CommonDialog1.Flags = 4096CommonDialog1.Action = 1If CommonDialog1.FileName = "" ThenMsgBox "No File Selectd", 5 + vbExclamation, "Checking"ElseList1.AddItem CommonDialog1.FileNameEnd IfEnd Sub2、代码如下：Private Sub a_Click()CommonDialog1.ShowColorText1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub b_Click()CommonDialog1.Flags = 1CommonDialog1.ShowFontText1.FontSize = CommonDialog1.FontSizeEnd SubPrivate Sub c_Click()CommonDialog1.Flags = 1CommonDialog1.ShowFontText1.FontName = CommonDialog1.FontNameEnd SubPrivate Sub d_Click()EndEnd Sub第10章图形操作和图形控件一、判断题×√×××√×√××二、选择题BAADACAA三、填空题(1)pic1.Circle (pic1.ScaleLeft + pic1.ScaleWidth / 2, pic1.ScaleTop + pic1.ScaleHeight / 2), 700(2)在图片框picture1中，以(800,1000)为圆心画一个半径为500的圆(3)Form1.Scale (-200, 250)-(300, -100)(4)Autosize stretch四、程序阅读题1、窗体宽和高的1/4为起点，画一个边长为1000的正方形，并画出其正向对角线2、在图片框中交替画出实心和空心的矩形，空心矩形是黄色边框。
VB程序设计课后习题答案(科学出版社)(1)
同步练习1二、选择题01——05 CADAB06——10 ACDAB11——15 CBDBB同步练习2二、选择题01——05 ABDCA06——10 CACBC11——15 DADAD16——20 BDBBB三、填空题1．可视2．LEFT、TOP、WIDTH、HEIGHT3．按字母顺序4．查看代码5．工具、编辑器6．FORM窗体、FONT7．MULTILINE8．在运行时设计是无效的9．工程、工程属性、通用、FORM1.SHOW 10．TABINDEX、0同步练习3二、选择题01——05 BCADB06——10 ADBBC11——15 DBCBA16——20 BAABB三、填空题1．整型、长整型、单精度型、双精度型2．SIN(30*3.14/180)+SQR(X+EXP(3))/ABS(X-Y)-LOG(3*X) 3．164、今天是：3-194．FALSE5．-4、3、-3、3、-4、46．CDEF7．(X MOD 10)*10+X\108．(35\20)*20=20( 35 \ 20 )* 20 = 209．X MOD 3=0 OR X MOD 5=010．27.6、8.2、8、1、100、397、TRUE、FALSE同步练习4一、选择题01——05 DBCAD06——10 CBBAB11——15 D25BAC16——20 CBACB21——25 DAABC二、填空题1．正确性、有穷性、可行性、有0个或多个输入、有1个或多个输出2．1 2 33．X>=74．X<AMIN5．10246．117．128．6、I、”*”;9．0、100、I+110．2*I、6、”*”;三、编程题1．编程求n！，n从键盘输入。
Private Sub Form_Click()Dim n%, s%, i%n = Val(InputBox("请输入n的值："))s = 1For i = 1 To ns = s * iNext iPrint n; "!="; sEnd Sub2．编程求100以内的全部质数。
VB 课后习题参考答案
第1章 习题参考答案一、思考题 略二、选择题1. C2. B第2章 习题参考答案一、判断题二、填空题1． 窗体font2． 不能在代码中设置 3． selstart 4． Locked5． TabIndex 、 0 6． vbModal 或 17． Activate 、 Deactivate 8．PictureBox 和 Frame -三、选择题第3章 习题参考答案一、思考题1、double2、 xyC@abc ， 15eyd ， Is ， #END X8[P]3、变量有 (1) (4) (6) (8)，常量有 (2)字符串型 (3)逻辑型 (5)字符串型 (7)字符串型 (9)日期型 (10)实型 4、 fe d cb a++5、 (1) 26 (2) 3.75 (3) 36、写出下列Visual Basic 表达式的值：(1) False (2) True (3) True (4) False (5) True(6) True (7) False (8) False7、将下列命题用Visual Basic布尔表达式表示：(1) z>x and z>y (2) abs(a)<=abs(b+2) or a > b+2(3) p mod q=0 (4) x<-5 or x>-2 and x<2 or x>5(5) x<z and y>z or x>z and y<z (6) a<b and a mod 2=08、写出下列函数的值：(1) -4 (2) 换行符(3) –3 (4) -1 (5) hello(6) ello (7) 16 (8) “-459.65” (9) 5二、填空题1．整型、长整型、双精度型、双精度型2．(X mod 10)*10+X\103．sin(1/4*3.14)+sqr(x+2*exp(y))/abs(x-y)4．(a+b)/(c*d-sqr(1-a^2))5．x mod 5=0 or x mod 9=06．False7．-3 、 2 、-2 、 28．CDEF9．x>0 and y>0 or x<0 and y<0 或x*y>010．s>=”A” and s<=”Z” or s>=”a” and s<=”z”三、选择题四、编程题1、Private Sub Form_Click()Dim x%, Ten%, hundred%x = Val(Text1.Text)Ten = (x \ 10) Mod 10hundred = x \ 100Print "百位数是: " & hundredPrint "十位数是: " & TenEnd Sub2Private Sub Form_Click()Dim char As String * 1Form1.CurrentX = Rnd * Form1.ScaleWidthForm1.CurrentY = Rnd * Form1.ScaleHeightchar = Chr(Int(Rnd * 16) + 65)Print charEnd Sub第4章习题参考答案一、判断题二、选择题三、程序阅读写出下列各段程序执行后的输出结果。
vb课后练习答案习题解答（2）
vb课后练习答案习题解答（2）第2章基本数据类型与表达式2．1 填空题1．程序设计语言中（）是语言的最基本符号，（）是具有语法意义的最小语法单位。
答案：字符、单词2．（）用于标记用户自定义的常量、类型、变量、控件、过程、函数等名字。
答案：标识符3．整型数据占（）字节的内存空间。
长整型数据占（）个字节的内存空间。
单精度浮点型数据占（）个字节的内存空间。
双精度浮点型数据占（）个字节的内存空间。
日期型数据占（）个字节的内存空间。
答案：2、4、4、8、84．100% 表示100为（）型数据；100！表示100为（）型数据；100＠表示100为( )型数据.答案：整、单精度浮点、货币5．符号常量在某一过程中说明，则该符号常量只能在（）内有效。
答案：该过程内6．若一个整型变量说明了之后没有给它赋值，则它的值为（）。
答案：07．在VB中可以把类型说明符放在变量名的（）来说明变量的类型。
答案：末尾8．为了使VB的编译程序自动检查变量声明，遇到未经说明的标识符发出错误警告信息，在程序中要加上（）语句。
答案：Option Explicit9．对含有多种运算的表达式，各种运算之间的顺序为（）→（）→（）→（）。
答案：函数运算、算术运算、关系运算、逻辑运算10．把1234.567的小数部份四舍五入转换为整数，可使用函数（）。
答案：Cint(1234.567)11．将x四舍五入到百位（例如，若x=23874.52应舍入成23900），可使用表达式（）。
答案：Int(x / 100 + 0.5) * 10012．将x从十位截断（例如，x=23874.52应截成23800）可使用表达式（）。
答案：Fix(x / 100) * 100或者Int(x/100)*100或者Cint(x\100-0.5)*10013．设X为数值变量，求X的常用对数可使用的表达式是（）。
答案：Log(X)/Log(10)14．要从字符串“Visual BASIC 6.0”中截取子字符串“BASIC”可使用函数（）。
vb程序设计课后习题答案
vb程序设计课后习题答案VB程序设计课后习题答案在学习VB程序设计课程的过程中，课后习题是巩固知识、提高能力的重要环节。
通过认真完成课后习题，我们不仅可以加深对知识点的理解，还可以提高编程能力和解决问题的能力。
下面我将为大家分享一些VB程序设计课后习题的答案，希望能够对大家的学习有所帮助。
1. 编写一个VB程序，实现输入两个数，计算它们的和并输出。
```Private Sub btnCalculate_Click()Dim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = Val(txtNum1.Text)num2 = Val(txtNum2.Text)sum = num1 + num2lblResult.Caption = "结果为：" & sumEnd Sub```2. 编写一个VB程序，实现输入一个数，判断它是奇数还是偶数并输出。
Private Sub btnJudge_Click()Dim num As Integernum = Val(txtNum.Text)If num Mod 2 = 0 ThenlblResult.Caption = "这是一个偶数"ElselblResult.Caption = "这是一个奇数"End IfEnd Sub```3. 编写一个VB程序，实现输入一个数，计算它的阶乘并输出。
```Private Sub btnFactorial_Click()Dim num As IntegerDim result As IntegerDim i As Integernum = Val(txtNum.Text)result = 1For i = 1 To numresult = result * iNextlblResult.Caption = "结果为：" & resultEnd Sub```通过以上几个例子，我们可以看到，VB程序设计课后习题涵盖了基本的输入输出、运算符的使用、条件判断和循环等知识点。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后，误把Windows子目录删除。
当重新安装Windows后，是否需要再次安装VB6.0？答：要重新安装的。
因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。
3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。
4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。
5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装Visual Basic 6.0后，帮助系统是否也已安装？答：没有。
VB6.0的帮助系统在两张光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用Visual Basic 6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定内容有关的帮助信息。
10、什么是类？什么是对象？什么是事件过程？答：类是同类对象集合的抽象，它规定了这些对象的公共属性和方法；对象是类的一个实例，对象包含三个要素：属性、方法和事件。
当在对象上发生了事件后，应用程序就要处理这个事件，而处理的步骤就是事件过程。
11、属性和方法的区别是什么？答：属性是对象的特征，方法是对象的行为。
前者有值，可以被赋值或引用；后者没有值，表示能够执行的操作。
12、当标签边框的大小由Caption属性的值进行扩展或缩小时，应对该控件的什么属性进行何种设置？答：将该控件的Autosize属性值设置为true。
13、在VB6.0中，命令按钮的显示形式可以有标准的和图形的两种选择，它们通过什么属性来设置？若选择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，应怎样修改？答：命令按钮的显示形式通过将Style属性值设置为Graphical来实现。
通过Picture属性来装入图形。
不能显示图形是因为Style属性值被设置为Standard，只要将其改为Graphical，并且将Caption的值设置为空即可。
14、如果文本框要显示多行文字，应对什么属性设置为何值？答：将MultiLine属性的值设置为True。
15、标签和文本框的区别是什么？答：在程序运行时，标签只能显示文字，不能输入文字，显示文字通过对Caption属性赋值来实现；而文本框既能显示文字，也能输入文字，这通过text属性来实现。
16、要让文本框获得焦点的方法是什么？答：SetFocus方法。
17、简述文本框的Change和KeyPress事件的区别答：相同点是当在文本框输入内容时，同时激发上述两个事件；不同点是Keypress事件可通过参数KeyAscii 返回所按键的编码值，可依此判断数据输入的正确性或数据输入结束与否，因而该事件使用较多；change 事件还可以发生在程序改变文本框的text属性时。
18、当某文本框输入数据后（按了回车键），经判断后认为是数据输入错，应怎样删除原来文本框中的数据？答：假定文本框的名称为Text1，则事件过程如下：Private Sub Text1_KeyPress(KeyAscii As Integer )if KeyAscii = 13 thenif 出错条件判断成立thenText1=””end if……end ifend sub注意：删除刚输入的字符，通过KeyAscii=0语句实现；焦点定位文本框对象采用SetFocus方法。
19、在程序运行前，对某些控件设置属性值，除了在窗体中直接设置外，还可以通过代码设置，这些代码一般存放在什么事件中？如果要将命令按钮定位在窗体的中央，试写出事件过程代码。
答：这些代码一般放在Forem_Load（）事件过程中。
将窗体定位在屏幕的中央，只能在属性窗口中将Form1窗口的StartUpPosition属性值设置为2（表示屏幕中心），该属性不能在运行时设置。
要将按钮定位在窗体的中央，事件过程如下：Private sub Form_Load()Command1.left= Form1.scaleWidth\2-command1.Width\2Command1.Top = Form1.ScaleHeight \ 2 – command1.Height \2End Sub其中，ScaleWidth、ScaleHeight表示窗体的相对宽度和高度。
20、VB6.0提供的大量图形文件存放在哪个目录？若你的计算机上没有安装，应怎样安装这些图形文件？答：存放在Graphics目录下。
在VB6.0的安装盘上可以找到Graphics子目录，将其复制到硬盘上的VB 目录下。
21.略（书上page36）第3章：1、合法的有：（1）单精度（3）单精度（4）双精度（6）整形（7）字符型（9）日期型（10）双精度（12）八进制表示（14）十六进制表示（15）逻辑型（18）单精度数2、合法变量有：（1），（2），（6），（9），（10），（11）3、算术表达式写成VB表达式（1）| x+y | + z5→abs(x+y) +z^5 （2）(a+xy)6→（1 + x * y ）^ 6（3）→(10*x + sqr(3*y) ) / (x * y ) （4）→( -b+sqr(b^2-4*a*c) )/2/a （5）→ 1 / (1/r1+1/r2+1/r3)（6）→sin(45*3.14/180)+ ( exp(10)+ log(10) )/ sqr( x+y+1)4、根据条件写出相应的VB表达式(1) chr( int ( Rnd * 10 +67 ) (2) int ( Rnd * 101 +100 )(3) x * y >0 (4) x%5=0 or x % 7 =0(5) (x mod 10) 10 + x /10 (6)Round(123.2389*100)/100(7) Ucase (c ) >=”A” and Ucase(c )<=”Z” or Lcase (c ) >=”a” and Lcase(c )<=”z”(8) Mid ( s, 5, 6 ) (9) x >=10 and x <20(10) ( x < z and y >z ) or ( x >z and y < z)(11) x>z and y > z5、下出下列表达式的值:（1）123+23 mod 10 \ 7 +Asc(“A”) →188, （2）100+”100” & 100 →200100（3）Int ( 68.555*100+0.5)/100 →68.56（4）已知A$=“87654321”，求表达式Val(Left$(A$,4)+ Mid(A,4,2))的值→876554（5）DateAdd(“m”,1,#1/30/2000#) →2000-2-29（6）Len（”VB程序设计”）→66、略第4章：VB控制语句1、结构化程序设计的三种基本结构是什么？答：顺序结构、选择结构和循环结构。
2、指出下列赋值语句中的错误（包括运行时错误）：（1）10x=sin(x)+y ‘10x是非法变量名（2）c=3+sqr(-3) ‘待求平方根的数为负数（3）c+x+y=c*y ‘赋值符左边是表达式了（4）x=sin(x)/(20 mod 2) ‘分母为零了3、Msgbox函数与InputBox函数之间有什么区别？各自获得什么值？答：两个函数共同之处都显示对话框。
区别：Inputbox函数等待用户在文本框中输入数据，获得的是输入的字符串数据；Msgbox函数等待用户按一按钮，获得的是表示按钮的整数值，以决定程序的流向。
4、要使单精度变量x,y,z分别保留1位、2位、3位小数，并在窗体显示，应使用什么函数？如何编写对应的print方法？答：使用format函数，具体如下：print Format(x,”0.0” )print Format ( y , “ 0.00 “ ) print Format ( z , “ 0.000 “ )5、 语句 if < 表达式> then …… 中的表达式可以是算术、字符、关系、逻辑表达式中的哪些？答：算术、关系、逻辑表达式 6、 指出下列语句中的错误：（1） if x ≥y then print x ‘表达式书写错误，应写成：x>=y （2） if 10<x<20 then x=x+20 ‘表达式书写错，应是：10<x and x<207、按照下列条件，写出相应的条件语句（1）字符型变量中第三个字符是“C ”时，利用Msgbox 显示“yes ”，否则显示“No ” if Mid ( c , 3, 1 ) = “C” then Msgbox “yes” else Msgbox “No” （2）利用if 语句、select case 语句两种方法计算分段函数：答：private sub command1.click() x=val( text1) if x > 20 theny = x * x + 3 * x +2 elseif x>=10 then y = sqr ( 3 * x ) – 2 elseif x>0 theny= 1 / x + Abs ( x ) end if print y end sub（3）利用if 语句和iif 函数两种方法求三个数x,y,z 中的最大值并存入变量max 中。