VB程序设计答案
《VB程序设计》课后题答案
第二章一、问答题1.叙述建立一个完整的应用程序的过程。
答：界面设计编写事件过程代码运行、调试保存文件2.当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
问该工程涉及到几个文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及到两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求把窗体文件先保存。
3.假定在W indows环境中，要保存工程文件时，若不改变目录名，则系统默认的目录是什么？答：VB984．当标签框的大小由Caption属性的值进行扩展和缩小，应对该控件的什么属性进行何种设置？答：将标签的Autosize设置为True.5．VB6.0提供的大量图形文件在哪个目录下？若你的计算机上没有安装，则怎样安装这些图形文件？答：VB6.0提供的图形文件在Graphics目录。
6．在VB6.0中，命令按钮的显示形式可以有标准和图形两种选择，这通过什么属性来设置？若选择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，怎样改正？答：按钮Style的属性设置为Graphical（或1）。
通过Picture属性来装入图形。
不能显示图形是因为Style的属性设置为Standard（或0），只要改为Graphical（或1），一般还将Caption 属性的值设置为空。
7．标签和文本框的区别是什么？答：文本是否可编辑。
8．当窗体上有三个文本框和一个命令按钮，若程序运行时，需把焦点定位在第三个文本框处，应对何控件的什么属性进行何种设置？答：应对Text3控件进行Text3.TabIndex=0的设置。
9．简述文本框的change与keypress事件的区别。
答：文本框内容变化，change与keypress事件都会发生，所不同的是Keyprees还将返回一个Keyasii参数10.当某文本框输入数据后（按了回车键），进行判断认为数据输入错，怎样删除原来数据？怎样使焦点回到该文本框重新输入？答：假定文本框的名称为Text1，则事件过程如下：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf 出错条件判断成立ThenText1＝””…先删除原来数据Text1.SetFocus …焦点回到Text1End If……End IfEnd Sub11.在程序运行前，对某些控件设置属性值，除了在窗体中直接设置外，还可以通过代码设置，这些代码一般放在什么事件中？例如，程序要将命令按钮定位在窗体的中央，请写出事件过程。
vb程序设计试题及答案
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
vb程序设计教程参考答案
1、B2、A3、B4、答：属性：红色、充满氢气；事件：松手、针刺；方法：飞走、爆破。
5、答：事件是指对象能够识别并作出反映的外部刺激。
事件驱动又称消息驱动，事件驱动程序设计是指每个事件对应有相应的程序代码，仅在该事件发生时，该段代码才会被执行。
事件发生的顺序决定了代码执行的顺序，因此每次执行应用程序时，程序代码并不是按照程序编写的顺序来执行的。
6、答：VB是一个包括界面设计、程序编码、调试、编译并创建可执行程序的集成开发环境。
VB的集成开发环境的主界面中包含：标题栏、菜单栏、工具栏、控件箱、工程资源管理器、属性窗口、“窗体布局”窗口、窗体设计器、代码编辑器等元素组成。
7、答： VB菜单条通常情况下有：文件、编辑、视图、工程、格式、调试、运行、查询、图表、工具、外接程序、窗口、帮助等13项菜单项组成。
8、答：工具栏可自行定义。
标准工具栏中通常情况下有：添加标准exe工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤消、重复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口、可视化元件管理器等按钮组成。
9、答：创建VB应用程序的一般步骤为：创建界面；设置窗体和控件属性；编写代码；保存工程；运行并调试程序；检查并排除错误；创建可执行文件。
10、Private Sub Command1_Click()Label1.Caption = "I love vb,I hate vb"End Sub1、2、3、S1 输入待判断自然数： N（N>=2）；S2 i=2；S3 判断i是否小于N-1，若不是转S5S4 判断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是否是中间位数，若是输出“是回文数”，否则输出“不是回文数”。
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查阅器，直接显示与选定内容有关的帮助信息。
VisualBasic程序设计教程第三版课后习题答案
《VB程序设计》综合复习资料第一章Visual Basic程序设计概述一、填空题1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。
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程序设计及参考答案一、单选题（共20分，每小题1分）1、要改变控件的宽度，应修改该控件的（）属性。
（A）TOP （B）width （C）Left （D）Height2、将命令按钮Command1设置为不可见，应修改该命令按钮的（）属性。
（A）Visible （B）Value （C）Caption （D）Enabled3、（）对象具有clear方法。
（A）图片框（B）窗体（C）复选框（D）列表框4、启动VB后，就意味着要建立一个新（）。
（A）窗体（B）文件（C）工程（D）程序5、下列（）对象不具有Clear方法。
（A）列表框（B）组合框（C）剪贴框（D）图片框6、组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style 属性值应为（）（A）0 （B）1 （C）2 （D）37、下列可调整图片框的大小以适合图片的属性是（）（A）Stretch （B）autosize （C）picture （D）oledropmode 8、要想清除文本框中的内容则可利用（）进行。
（A）Caption （B）Text （C）Clear （D）Cls9、在文本框控件中将Text的内容全部显示为所定义的字符的属性是（）。
（A）Password （B）PasswordChar（C）需要编程来实现（D）以上都不是10、Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是（）。
（A）从主程序开始执行（B）按过程顺序执行（C）事件驱动（D）按模块顺序执行11、下列四项中合法的变量名是（）。
（A）a-bc （B）a_bc （C）4abc （D）integer12、无论何种控件，共同具有的属性是（）（A）Text （B）Name （C）Caption （D）ForeColor13、有程序代码如下：Text1.Text = "Visual Basic程序设计"则Text1、Text ，和"Visual Basic程序设计"分别代表（）。
VB语言程序设计-4套作业参考答案
第1套您已经通过该套作业,请参看正确答案1、与传统的程序设计语言相比，Visual Basic语言最突出的特点是（）。
A．结构化程序设计B．程序开发环境C．事件驱动编程机制D．程序调试技术参考答案：C您的答案：C2、Visual Basic集成环境的主窗口中不包括（）。
A．标题栏B．菜单栏C．状态栏D．工具栏参考答案：C您的答案：C3、Visual Basic窗体设计器的主要功能是（）。
A．建立用户界面B．编写源程序代码C．画图D．显示文字参考答案：A您的答案：A4、下列叙述中正确的是（）。
A．只有窗体才是VB中的对象B．只有控件才是VB中的对象C．控件和窗体都是VB中的对象D．控件和窗体都不是VB中的对象参考答案：C您的答案：C5、为了把窗体上的某个控件变为活动的，应执行的操作是（）。
A．单击窗体的边框B．单击该控件的内部C．双击该控件D．双击窗体参考答案：B您的答案：B6、确定一个控件在窗体上的位置的属性是（）。
A．Width或HeightB．Width和HeightC．Top或LeftD．Top和Left参考答案：D您的答案：D7、在窗体上面画一个名称为Text1的文本框，然后编写如下的事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer)......End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是（）。
A．单击鼠标B．双击文本框C．鼠标滑过文本框D．按下键盘上的某个键参考答案：D您的答案：D8、为了装入一个VB应用程序，应当（）。
A．只装入窗体文件(.frm)B．只装入工程文件(.vbp)C．分别装入工程文件和标准模块文件(.bas) D．分别装入工程文件、窗体文件和标准模块文件9、当窗体最小化时缩小为一个图标，设置这个图标的属性是（）。
A．MouseIconB．IconC．PictureD．MousePoint参考答案：B您的答案：B10、为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB计算机答案第1章Visual Basic简介1. 要使计算机能够按人的要求完成一系列的操作，就要求计算机能够理解并执行人们给出的各种命令，因此就需要在人和计算机之间制定一种二者都能识别的特定的语言，这种特定的语言就是程序设计语言。
使用程序设计语言编写的、用来使计算机完成一定任务的、一系列命令的集合构成程序，编写程序的工作则称为程序设计2. 机器语言可以在计算机上直接运行。
3. 翻译程序的作用是将源程序翻译成计算机能够理解并直接执行的目标程序；对高级语言源程序进行翻译可以有解释方式和编译方式。
解释方式不生成可执行程序。
4. 算法是指计算机解题的方法和步骤。
5. 可视化界面设计指的是：把设计界面的复杂性向编程人员隐蔽起来，编程人员不需要编写大量的代码来描述界面，只需要使用系统提供的工具在界面上直接把各种对象“画”出来，并设置这些对象的一些属性就可以了；事件驱动的编程机制指的是：编写程序时，针对不同对象的不同事件编写相应的代码段，每一个代码段只有当运行时在相应对象上发生相应的事件才被执行。
6. Visual Basic的3种工作模式是：设计模式、运行模式、中断模式。
7. Visual Basic中的控件可以分为3大类：内部控件、ActiveX控件、可插入对象。
8. ActiveX控件文件的扩展名是OCX。
9. 工程组文件的扩展名是vbg；工程文件的扩展名vbp；窗体文件的扩展名frm；标准模块文件的扩展名bas；类模块文件的扩展名cls。
10. 在代码窗口的对象下拉列表中，窗体的名称总是显示为Form。
11. 在Visual Baisc中，要获取上下文相关帮助，只需要在上下文相关位置按F1键。
第2章Visual Basic简单工程的设计一、填空题1. 对象名.属性名 = 属性值2. Myform.BackColor = vbBlue3. 发生某一事件时要执行的代码；cmd1；Click；Form_Load4. 对象名.方法名；Form1.Show；Picture1.Cls5. 中央6. Ctrl7. Ctrl;Shift8. Shift+“方向箭头”; Ctrl+“方向箭头”9. vbp10. 窗体11. F512. 工程；工程1属性（“工程1”为当前工程名）13. Top；Left；Width；Height二、选择题1．C 2．C 3．B 4．C 5．C6．D 7．B 8．A；D 9．B 10．B11．C 12．B 13．A 14．B 15．D16．A 17．A 18．A 19．D;D 20．B21．C 22．B 23．B 24．A 25．C26．D 27．D 28．C 29．C 30．C31．D第3章Visual Basic程序设计代码基础一、选择题1．A 2．D 3．C 4．D 5．A6．B 7．C 8．B 9．B；C；D；G；H；J；L；N；O；P10．C 11．C 12．B 13．A；B 14．A；B15．B 16．B；E 17．A 18．C 19．D二、求表达式的值1. 02. -173. -0.24. 105. how6. jing7. HAI8. 69. 12344510. BASIC11. 312. 12.313. 3 77.714. 115. 0.516. 617. 118. 419.（1）"5,459.40"（2）"335"（3）"0.67"（4）".67"（5）"hello"（6）"THIS IS IT"20. "1234"；"1234"；"1234"；46；46；"1234"21. True22. True三、写出下列代数式对应的Visual Basic表达式。
1. (-a) ^ 2 / (b + c / d)2. 2 * Sin(a) * Cos(2 *3.1416 - a)3. Sqr(a ^ 2 + b ^ 2 - a * a * b * Cos(a))4. (x + y) ^ 3 * (t + u) ^ 2 / (t * (x - y))5. a ^ (b * c) + c ^ (a * b)6. 5 ^ (1 / 3) * Cos(60 * 3.14 / 180)7. Cos(w) ^ 3 - 3 * Cos(w) * Sin(w) ^ 38. (Log(50) / Log(10) - Log(20)) / (9 * Exp(5))9. X1 - Abs(a) + Log(10) + Sin(X2 + 2 * 3.1416) / Cos(57 * 3.1416 / 180)10. Sin(3.1416 - t) ^ (2 / 3) / (a * b)四、写出下列条件对应的Visual Basic关系表达式或布尔表达式。
1. T > 1.7 And W < 62.52. A + B > C And B + C > A And C + A > B3. (A = 0 Or B = 0)And(A * B <> 0)4. X <= -5 Or X >= 55. X >= -5 And X <= 56. Abs(A) >= B And A <> C7. X < 100 And X >= 08. (Y Mod 4 = 0 And Y Mod 100 <> 0) Or Y Mod 400 = 09. A <> 0 And B ^ 2 - 4 * A * C >= 010. Y Mod 5 = 0 And Y Mod 2 = 0五、简答题1. Dim X1 As Single, X2 As Single, I1 As Integer, I2 As Integer, S1 As String, S2 As String, BAs Boolean2. Type SalaryENo As StringEname As StringESalary As SingleEnd TypeDim Department1 As Salary第4章Visual Basic的控制结构一、选择题（除了特别注明“多选”外，其余均为单选题）1．A；D；E；F 2．B 3．C 4．C 5．D6．B 7．C 8．B 9．A；B 10．B11．D 12．D 13．C 14．C二、判断程序执行结果1. 32. 2 23. 1 23 54. 3 35. A( 17.4 )6. -17. he is ang8. 1 2 False9. 12332110. 44411. -3 312. 30 1013. False14. I= 215. I= 116. A17. **0**18. 7 2219. 2 3 520. 1 621. 122333444455555666666777777722. 123. 10 524. I= 7A= 1125. M1= 120 M2= 626. 3 2127. 2 4 -3 328. 1129. 14 6 330. ************************************31. ***************32. 633. 1034. 0 93 186 279 369 36第5章数组一、选择题1．C 2．A 3．B 4．D 5．C6．C 7．B；D 8．B二、填空题1. Dim A(1 To 5, -2 To 6) As String2. A(-1,-1) A(-1,0) A(-1,1)A(0,-1) A(0,0) A(0,1)A(1,-1) A(1,0) A(1,1)A(2,-1) A(2,0) A(2,1)3. 过程级；ReDim4. Dim StdAddress(1 To 100) As address5. Dim StdAddress(1 To 100) As addressStdAddress(1).Name = "李军"StdAddress(1).telno = "66112233"StdAddress(1).email = "lijun@ "三、判断程序或程序段的执行结果1. 12 202. bdf3. 14. 0 2 2 35. 1 2 1 4 46. 0 0 0 0 0 12 14 16 18 207. 1 2 3 4 5 12 14 16 18 208. 159. 4210. 1 2 3 2 4 611. 1 0 10 1 01 0 112. 1 2 3 43 4 5 65 6 7 813. 20 25 30 35 40第6章常用算法及应用程序举例程序填空（在程序中的划线位置填上适当内容，完成题目所要求的功能）1. （1）Max （2）Min （3）c > Max （4）c < Min2. （1）N Mod 2 <> 0 （2）C * (-1) （3）I + 1 （4）I <= N3. （1）K（2）Flag = 04. （1）B （2）D （3）A （4）B （5）C5. （1）C （2）B （3）A6. （1）A() （2）N （3）I+1 （4）A(J) （5）T7. （1）ReDim A(N) （2）P>N Or P<1 （3）P+1 （4）D8. （1）YO < Y(I) （2）I+1 （3）Text1.Text9. （1）X > A(10) Or X < A(1) （2）X=A(I) （3）9 （4）"数据没找到"10. （1）a() （2）a(n, n) （3）j - i + 1 （4）i - j + 1（5）Picture1.Print （6）1 To n （7）1 To i （8）1 To n（9）i To n （10）1 To n （11）n + 1 - i To n (12) 1 To n（13）1 To n + 1 – i第7章过程一、选择题（除了特别注明“多选”外，其余均为单选题）1．C 2．B；C；D 3．C 4．C；D；E 5．A、C6．C 7．C 8．B 9．A 10．A11．C 12．D 13．C 14．B；A 15．D16．D 17．A 18．D 19．D二、判断程序或程序段的执行结果1. 702. 3 34 73. 3 5 7 9 11 13 15 17 19 214. Tom5. 316. 3207. 218. 23 479. 1 1 11 2 32 2 21 2 33 3 31 2 310. 35；20第8章常用控件选择题（除了特别注明“多选”外，其余均为单选题）1．C 2．C 3．D 4．B 5．C6．A 7．C 8．B 9．C、D 10．B11．A、D 12．G；I；C；B；E 13．B、D 14．A15．B、D 16．C 17．B；C；A 18．C；D 19．B20．A 21．C 22．F；B；H；D 23．B 24．A25．D 26．A第9章界面设计一、填空题1. 下拉式；弹出式；窗体；菜单编辑器2. 标题；-3. 文件(&F)4. 顶5. Caption；Name；Index；Checked；Enabled；Visible6. Click7. Load；Unload8. 菜单编辑器；顶9. MouseDown；PopupMenu10. 快捷菜单的顶级菜单名称弹出式菜单的上框中央位于鼠标的单击位置弹出式菜单的菜单项可以响应鼠标左、右键单击弹出式菜单中要显示为黑体的菜单项控件的名称为PMENU311. ToolTipText12. Microsoft Windows Common Controls 6.0；ToolBar13. Align14. ImageList15. Toolbar1.Buttons(4).Enabled = False16. 样式17. Toolbar1.Buttons(2).ButtonMenus(3).Enabled = False18. 1 – Fixed Single19. 模式；无模式20. Show21. 将窗体Form2做为无模式对话框显示；将窗体Form3做为模式对话框显示22. Form2.Show vbModeless, Form323. Microsoft Common Dialog Controls 6.024. C1.ShowColor；C1.ShowFont二、选择题（除了特别注明“多选”外，其余均为单选题）1．B、D、F 2．C 3．D 4．B、C 5．D第10章图形操作填空题1. 左上角；右；下；缇2. ScaleMode；Picture1.ScaleMode = vbInches3. Picture1.ScaleLeft = -10Picture1.ScaleTop = 104. 205. （1，1）；（3，-1）6. Form1.Scale (0, 4)-(4, 0)7. Form1.CurrentX = 2Form1.CurrentY = 28. Picture1.BackColor = RGB(50, 100, 25)9. Shape10. BorderStyle11. x1,y1,x2,y212. (200, 300)13. (200, 200)；(400, 400)14. Line (100, 100)-(500, 500), vbRed, BLine (100, 100)-(500, 500), vbRed, BF15. Circle (0, 0), 0.5, vbRedCircle (0, 0), 0.5, vbRed, 0, 3.1415926 / 2Circle (0, 0), 0.5, vbRed, -0.00001, -3.1415926 / 2Circle (0, 0), 0.5, vbRed, , , 2 : Circle (0, 0), 0.5, vbRed, , , 0.5 16. Form1.FillStyle = 0Form1.FillColor = vbYellow17. ForeColor18. DrawWidth19. DrawStyle20. AutoRedraw21. Paint22. Resize23. 绿色；红色；蓝色24. 最下25. Label1.ZOrder 026. SavePicture Picture1.Image, "d:\MyPicture.bmp"第11章文件一、填空题1. 顺序文件；随机文件；二进制文件2. Open "C:StuData.dat" For Output As #13. Open "C:StuData.dat" For Input As #14. Open "C:StuData.dat" For Append As #15. Close #1, #3, #56. Write #2, A; B; C7. Print #2, A; B; C8. Open "d:\aa.txt" For Input As #1Input #1, A, B, C9. Open "d:\B.dat" For Random As #1 Len = 2010. Put；Get11. Open "d:\C.DAT" For Binary As #3Put #3, 6, AGet #3, 10, B12. 返回某驱动器的当前路径13. ChDrive "E"14. MkDir "E:\STUD"15. Kill "D:*.DAT"16. 文件长度；字节17. 复制文件；产生错误18. Drive19. Change20. Path21. FileName二、程序填空（在程序中的划线位置填上适当内容，以完成题目所要求的功能）1．（1）Open "C:StuData.txt" For Output As #1（2）Write #1, StuNo, StuName, StuEng（3）Close #12．（1）Open "C:StuData.txt" For Input As #1（2）While Not EOF(1)（3）Input #1, StuNo, StuName, StuEng3．（1）Random（2）Put #1, , xData（3）Get #1, i, xData4．（1）Pattern（2）File1.Path = Dir1.Path（3）Dir1.Path = Drive1.Drive（4）Open Text1.Text For Input As #1第12章Visual Basic与数据库一、选择题（除了特别注明“多选”外，其余均为单选题）1． C 2．B 3．C 4．B 5．D6． B；D 7．C 8．C 9．A 10．B二、填空题1. 数据库；数据库管理系统2. 为网状数据库、层次数据库和关系数据库3. 一个到多；行；列4. 从“学生基本信息”表中选出“性别”字段值为“男”的所有记录，查询结果包含了表中的所有字段。