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，这个属性是（）。
visual basic 程序设计课后习题参考答案
Visual basic 程序设计习题参考答案第一章Visual basic 程序设计一、选择题二、填空题三、简答题1、简述visual basic 的特点。
（1）具有可视化的设计平台（2）面向对象的设计方法（3）事件驱动的编程机制（4）结构化程序设计语言（5）开放的数据库功能与网络支持2、什么是对象、类、属性、事件和方法？在可视化编程语言中，对象是代码和数据的集合，它可以是窗体和控件，也可以是菜单和数据库等。
描述一个对象有三个基本要素：属性、方法和事件。
类是一组用来定义对象的相关过程和数据的集合，即同类对象的集合和抽象。
属性是描述对象的一组特性。
方法是对象能够执行的动作，它是对象本身内含的函数或过程，用于完成某种特定的功能。
事件是发生在对象上并且能够被对象识别的动作，即由系统预先设置好的、能被对象识别的动作，如Click(单击)、DblClick(双击)、Load(窗体的装载)、KeyPress(按键)、Change(改变)、MouseMove (鼠标的移动)等，每一种对象能识别的事件是不同的5、什么是事件驱动的编程机制？当某个事件(一般由用户操作来触发) 发生时，系统就会自动执行此事件的事件过程。
由事件控制整个程序的执行流程。
事件过程要经过事件的触发才能被执行，这种工作模式称为事件驱动方式。
第二章Visual basic 程序设计基础一、选择题二、填空题第三章数据输入输出一、选择题二、填空题3第四章选择结构和循环结构程序设计一、选择题二、填空题第五章数组一、选择题二、填空题第六章过程一、选择题二、填空题三、简答题1、简述事件过程和通用过程的含义和联系。
5VB应用程序是由过程组成的，过程是完成某种特殊功能的一组独立的程序代码。
VB中的过程有两大类：事件过程和通用过程事件过程是当发生某个事件时，对该事件作出响应的程序段。
事件过程由VB自行声明，用户不能增加或删除。
事件过程是VB 应用程序的主体。
VB程序设计学习与实验指导书答案(包含实验答案)
VB学习与实验指导测试题参考答案第一章第二章第三章第四章第五章第六章第七章第八章第九章综合测试题一综合测试题二下篇实验教程实验2 Visual Basic 变量、函数与表达式的使用实验2-1 算术运算符的使用13178332262-2-22007-10-153 2.857143 2.85714285714286实验2-2 字符运算符的使用20071020071020172007-10-10102007-10-20出错，类型不匹配实验2-3 关系运算符的使用FalseFalseFalseFalseFalseFalseFalseTrueFalseTrue实验2-4 逻辑运算符的使用TrueTrueFalseTrueFalseFalseTrueTrueFalse5-59实验2-5 常用函数的使用3.14 3.147.389056098930651 -1 .999999998205103 4-1 1 0.70554755825 251250 0A a65 9748 688 -98 -89 -9aaa 4.5 aaa4.516 5Visua 6.0sua Basic Basic 6.0abcde EFGBasic Basic BasicVisual Basic 6.0 Basic8 8aaa dd2011-3-152011-3-15 14:35:5215320113001.731.731.7317.32E-010173%实验3 算法基础及程序控制结构实验3-1 三个数的交换A=CC=BB=TBC实验3-2 求周长和面积Const PI=3.14159262*PI*RPI*R*RPicture1.ClsFormat(L, ".00")Format(M, ".00")实验3-3 求分段函数的值x=Val(Text1.Text)y=1+Sin(x)y=Log(x)Text1.Text = ""Text2.Text = ""实验3-4 求一元二次方程的根Val(Text2.Text)Val(Text3.Text)b ^ 2 - 4 * a * c"x1=" & (-b + Sqr(delt)) / (2 * a)"x2=" & (-b - Sqr(delt)) / (2 * a)Text2.Text = ""Text3.Text = ""End实验3-5 判断素数N Mod k = 0k=NN Mod i=0k=2实验3-6 求最大公约数和最小公倍数M<NL=ML=NM Mod k = 0 And N Mod k = 0Text3.Text = kExit ForM>NL=ML=Nk Mod M = 0 And k Mod N = 0Text4.Text = kExit For实验3-7 判断升序数、降序数CStr(N)Len(S) – 1Mid(S, k, 1) >= Mid(S, k + 1, 1)k = Len(S)N = Val(Text1.Text)S = CStr(N)For k = 1 To Len(S) - 1If Mid(S, k, 1) <= Mid(S, k + 1, 1) Then Exit For Next kk = Len(S)实验3-8 判断回文数1Len(s)\2-1Mid(S, k, 1) <> Mid(S, Len(S) - k + 1, 1)k = Len(S) \ 2Mid(S, k, 1) + S1S = S1实验3-9 求级数的值Val(Text1.Text)1x ^ ns * nt / s <= 10 ^ -6Text2.Text = y实验3-10 查找数字串并求和Text1.Text = ""Text2.Text = ""List1.ClearText1.TextFalseWhile Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Flag = Truek = k * 10 + Mid(s, i, 1)i = i + 1Flag = Truesum + kText2.Text = sum实验3-11 随机产生20个奇数Int((99 - 10 + 1) * Rnd) + 10a Mod 2 = 1n Mod 5 = 0Picture1.Cls实验3-12 加密解密Chr(Asc("a") + (Asc(c) - Asc("a") + 3) Mod 26)c = Chr(Asc("A") + (Asc(c) - Asc("A") + 3) Mod 26) c & s2Text2.TextLen(s2)Mid(s2, i, 1)c = Chr(Asc("a") + (Asc(c) - Asc("a") + 23) Mod 26) c = Chr(Asc("A") + (Asc(c) - Asc("A") + 23) Mod 26) c & s1s1Text1.Text = ""Text2.Text = ""实验3-13 统计单词个数Text1.TextMid(s, i, 1) <> " " And i <= Len(s)i = i + 1Mid(s, start, i - start)nText1.Text = ""List1.Clear实验4 数组的使用实验4-1 一维数组的产生及输出i = 1 To 20Int((9 - 0 + 1) * Rnd + 0)i = 1 To 20Print a(i);Printi = 1 To 20Picture1.Print a(i);If i Mod 5 = 0 Then Picture1.Printi = 1 To 20Text1.Text & Space(2) & a(i)If i Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf v In aIf i Mod 5 = 0 Then Picture2.Print实验4-2 选手得分Int((50 - 10 + 1) * Rnd + 10) / 10i = 1 To 6sum = sum + score(i)max = score(1)min = score(1)score(i) > max Then max = score(i)score(i) < min Then min = score(i)(sum - max - min) / 4实验4-3 产生10个互不相同的整数Int((999 - 10 + 1) * Rnd + 10)t Mod 10 = 5Then Exit Forn= n + 1a(i) = tFor i = 1 To 10Print a(i);If i Mod 5 = 0 Then PrintNext i实验4-4 统计数字出现的次数IsNumeric(S) = FalseExit SubLen(S)c >= "0" And c <= "9"A(c) = A(c) + 1A(k) <> 0m = m + 1实验4-5 排序1 To 10Int((99 - 10 + 1) * Rnd + 10)Text1.Text & A(n) & " "1 To 9i + 1 To 10A(i) > A(j)T = A(j)A(j) = A(i)A(i) = T1 To 910 - iA(j) > A(j + 1)T = A(j + 1)A(j + 1) = A(j)A(j) = T1 To 10Text3.Text = Text3.Text & A(i) & " "10T = A(i)ji - 1k + 11 To 10Text4.Text = Text4.Text & A(i) & " "实验4-6 二维数组的产生及输出1 To 41 To 5Int((9 - 0 + 1) * Rnd + 0)1 To 41 To 5Print A(i, j);Print1 To 41 To 5Picture1.Print A(i, j);Picture1.Print1 To 41 To 5Text1.Text = Text1.Text & A(i, j) & " "Text1.Text = Text1.Text & vbCrLf实验4-6 查找最大和最小元素及其位置1 To 31 To 4A(i, j) = Int((99 - 10 + 1) * Rnd + 10)Picture1.Print A(i, j);Picture1.PrintA(1, 1)， 1， 1A(1, 1)， 1， 1A(i, j)ijA(i, j) < minA(i, j)ij"最大元素" & "A(" & maxi & "," & maxj & ")=" & max "最小元素" & "A(" & mini & "," & minj & ")=" & min实验4-7 矩阵转置Dim A() As Integer"请输入N的值"ReDim A(N, N) As IntegerFor i = 1 To NFor j = 1 To NA(i, j) = Int((99 - 10 + 1) * Rnd + 10)Text1.Text = Text1.Text & A(i, j) & " "Next jText1.Text = Text1.Text & vbCrLfNext it = A(i, j)A(i, j) = A(j, i)A(j, i) = tFor i = 1 To NFor j = 1 To NText2.Text = Text2.Text & A(i, j) & " "Next jText2.Text = Text2.Text & vbCrLfNext i实验5 过程实验5-1 孪生素数和降序素数Dim i As IntegerFor i = 2 To N - 1If N Mod i = 0 Then Exit FunctionNext iPrime = TrueDim a As IntegerDim b As Integera = N \ 10b = N Mod 10If a > b ThenDecNumber = TrueElseDecNumber = FalseEnd If10 To 100Prime(i) = True And Prime(i + 2) = TrueList2.AddItem i & "和" & i + 2DecNumber(i) = True And Prime(i) = TrueList3.AddItem i实验5-2 求多项式和k = 1a = f(x, k)S + ak = k + 1Single As SingleDim i As Integer, a As Singlea = (x + 1) / xFor i = 2 To ka = a * (x + i) / ((2 * i - 1) * x)Next ia实验5-3 进制转换Asc(C) - Asc("A") + 10Left(S, k - 1)Mid(S, k + 1)Change(Mid(S2, i, 1)) * N ^ (0 - i)T1 + T2Tran(8, S)Tran(16, S)Not (C >= "0" And C <= "7" Or C >= "A" And C <= "F" Or C = ".")实验5-4 Armstrong数i As Long, a As Long, b As LongCombo1.Text实验5-5Option Base 1Dim a(5) As IntegerDim b(5) As Integerb(i) = i * i + 1Text2.Text = Text2.Text & b(i) & " "1 To 51 To 5Gcd(a(i), b(j)) = 1Gcd = KExit For实验5-6Create(a)Output(a)Sort(a)Output(a)GetMaxMin(a, MaxData, MinData)MaxDataMinDataAverage(a)Int((99 - 10 + 1) * Rnd + 10)1 To UBound(a)a(i);a(i) > a(j)t = a(j)a(j) = a(i)a(i) = t2 To UBound(a)a(i) > MM = a(i)a(i) < NN = a(i)s = s + a(i)Average = s / UBound(a)实验6 界面设计实验6-1 用户登陆MsgBox "请登录！"PassWordInput=TxtPassW.TextUserIdInput=UserId And PassWordInput=PassWordCmdReset_Click实验6-2 学籍登记OptXb(0).Value = TrueList1.AddItem Space(4) & xh & Space(6) & xm & Space(6) & xb & Space(12) & xy & Space(16) & zy & Space(4)List1.RemoveItem List1.ListIndex实验6-3 字体格式设置Select Case OpFontCheck2.Value = 1OpColor = IndexOpFont = Index实验6-4 兴趣调查List1.AddItem ItemEndSelect Case IndexItem = Text1.Text实验6-5 调色板。
VB程序设计练习题及参考答案
Visual Basic程序设计练习题1．Visual Basic是一种面向对象的可视化程序设计语言，采取了A的编程机制。
A．事件驱动B．按过程顺序执行C．从主程序开始执行D．按模块顺序执行2．在Visual Basic中最基本的对象是C，它是应用程序的基石，是其他控件的容器。
A．文本框B．命令按钮C．窗体D．标签3．多窗体程序是由多个窗体组成。
在缺省情况下，VB在应用程序执行时，总是把B 指定为启动窗体。
A．不包含任何控件的窗体B．设计时的第一个窗体C．包含控件最多的D．命名为Frm1的窗体4．若有程序代码如下：text1.text="Visual Basic"则：text1，text和"Visual Basic" 分别代表C。
A．对象，值，属性B．对象，方法，属性C．对象，属性，值D．属性，对象，值5．Visual Basic是一种面向对象的程序设计语言，A不是面向对象系统所包含的三要素。
A．变量B．事件C．属性D．方法6．在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是C。
A．窗体布局窗口B．立即窗口C．代码窗口D．监视窗口7．保存新建的工程时，默认存放的位置是B。
A．My Documents B．VB98 C．\ D．Windows 8．若要使标签控件显示时不覆盖其背景内容，要对D属性进行设置。
A．BackColor B．BorderStyle C．ForeColor D．BackStyle 9．若要使命令按钮不可操作，要对A属性设置。
A．Enabled B．Visible C．BackColor D．Caption 10．文本框没有D属性。
A．Enabled B．Visible C．BackColor D．Caption 11．不论何控件，共同具有的是B属性。
A．Text B．Name C．ForeColor D．Caption 12．要使Form1窗体的标题栏显示“欢迎使用VB”，以下D语句是正确的。
VB程序设计入门练习及答案
习题2（程序设计入门）一、选择题1．如果把一个人当作对象，那么血型相当于这个对象的：A(A) 属性(B) 方法(C) 事件(D) 特征2．下列哪一种方法不能改变窗体的大小：A(A) 设计时在窗体布局窗口中进行调整(B) 设计时在属性窗口中设置相应的属性(C) 运行时设置相应属性的值(D) 运行时调用窗体的Move方法3．一个对象可以执行的动作和可被对象识别的动作分别称为：B(A) 事件、方法(B) 方法、事件(C) 属性、方法(D) 过程、事件4．在窗体Form1的Click事件过程中有以下语句：Label1.Caption = "Visual Basic"若本语句执行之前，标签控件Label1的Caption属性为默认值，则标签控件的Name 属性和Caption属性在执行本语句之前的值分别为：A(A) "Label"、"Label" (B) "Label"、"Caption"(C) "Label1"、"Label1" (D) "Caption"、"Label"5．见上题。
该语句执行后，标签控件的Name属性和Caption属性的值分别为：B(A) "Label"、"VisualBasic" (B) "Label1"、"Visual Basic"(C) "Label1"、"Caption" (D) "Label"、"Label1"6．下面哪种对象没有Caption属性：B(A) Form (B) TextBox (C) CommandButton (D) Label7．文本框对象的默认属性是：B(A) Name (B) Text (C) Visible (D) Enabled8．Visual Basic源程序的续行符是：D(A) 单引号(B) 双引号(C) 冒号(D)空格与下划线9．下面的动作中，不能引发按钮Click事件的是：B(A) 在按钮上单击鼠标左键(B) 在按钮上单击鼠标右键(C) 把焦点移至按钮上，然后按回车键(D) 如果按钮有快捷字母，按“Alt+该字母”二、判断题1．标签控件是专门用来显示信息的，所以不能响应鼠标的单击事件。
VB程序设计复习题答案
VB程序设计复习题1．Visual Basic是一种___D___的可视化程序设计语言。
A．面向机器 B．面向过程 C．面向问题 D．面向对象2．Visual Basic主窗口中不包括____B_____。
A．标题栏 B．状态栏 C．工具栏 D．菜单栏3．程序运行中用鼠标双击当前窗体时，会触发窗体的_____C____ 事件。
A．Load B．Unload C．DblClick D．KeyPress4．假设窗体上已有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先要执行的操作是____A______。
A．单击窗体上没有控件的地方 B．单击任一个控件C．双击任一个控件 D．双击窗体上没有控件的地方5、要设置窗体上各控件的属性，可在 ____C___ 中进行。
A．窗体布局窗口 B．工程资源管理器窗口C．属性窗口 D．窗体窗口6．设变量A的值为-2，则___A___函数的执行结果与其他三个不一样。
A．Val("A") B．Int(A) C．Fix(A) D．-Abs(A)7．要在窗体Forml的标题栏上显示"统计程序"，可用___B___语句。
A．="统计程序" B．Form1.Caption="统计程序"C. Forml.Caption=统计程序 D．=统计程序8．函数String(n, "str")的功能是 B 。
A．把数值型数据转换为字符串B．返回由n个字符组成的字符串C．从字符串中取出n个字符D．从字符串中第n个字符的位置开始取子字符串9、定义变量如下：Dim MyVarMyVar =”come see me “若在立即窗口中显示MyVar的值，下面正确的是（ A ）A．Debug.Print MyVar B、? MyVar C．Printer.Print MyVar D、Print MyVar 10．设置复选框或单选按钮标题对齐方式的属性是（ D ）A．Align B．value C．Sorted D. Alignment11、滚动条控件的LargeChange属性所设置的是（ A ）A．单击滚动条和滚动箭头之间的区域时，滚动条控件value属性值的改变量B．滚动条中滚动块的最大移动位置C．滚动条中滚动块的最大移动范围D．滚动条控件无该属性12、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（ D ）A．Caption B．Name C．Text D．value13、在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序：Private Sub Command1_Click( )a=Text1.textb=Text2.textC=Lcase(a)D=Ucase(b)Print C;DEnd Sub程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是（ A ）A．abcEFG B．abcefg C．ABCefg D．ABCEFG14．假定窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，则正确的属性设置为（ A ）A．Label1.BackStyle=0 B．Label1.BackStyle=1Label1.BorderStyle=0 Label1.BorderStyle=1C．Label1.BackStyle=True D．Label1.BackStyle=FalseLabel1.BorderStyle=True Label1.BorderStyle=False15．当拖动滚动条中的滚动块时，将触发滚动条的事件是（ D ）A．Move B．Change C．SetFocus D．Scoll16．比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是（ C ）A．两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小B．两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分C．当图片框（PictureBox）的AutoSize属性为FaLse时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸D．当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框17．当利用Line方法进行绘图时，以下正确的说法是（ B ）A．有7种不同的线型，而且不管线宽多少都可以绘制虚线/点划线/点线B．使用Line(100,100)-(1000,1200)和Line(100,100)-Step(900,1100)将绘制两条相同位置的直线C．可利用Line方法添加矩形，如Line(300,300)-(2000,2000),BFD．可利用Line方法添加矩形，如Line(300,300)-(2300,2300),B+F18．下面语句中错误的是（ B ）A． Redim Preserve Matrix(10,Ubound(Matrix,2)+1)B． Redim Preserve Matrix(Ubound(Matrix,1)+1,10)C． Redim Preserve DynArray(Ubound(DynArray)+1)D． Redim DynArray(Ubound(DynArray)+1)19．可以唯一标识控件数组中的每一个控件的属性是（ C ）A．Name B．Caption C．Index D．Enabled20、下面（ D ）不是VB的文件类控件A．DriveListBox控件 B．DirListBox控件C．FileListBox控件 D、MsgBox21、关于Open语句不正确的叙述是（ D ）（A）Open语句可以打开顺序文件（B）Open语句可以打开随机文件（C）Open语句可以打开二进制文件（D）Open语句可以打开一个窗体22、下列语句所声明的数组的元素个数为（ A ）Dim Ary(3 To 6,-2 To 2)（A）20 （B）16 （C）24 （D）2523、下面对控件数组叙述正确的是（ A ）（A）在窗体上添加第二个相同类型的控件时，VB不会提示创建一个控件数组（B）控件数组使用Index属性来标识控件元素，其范围必须从0开始（C）控件数组使用的资源比用几个单独同类型的控件占用的资源要多（D）如果有一个命令按钮数组，各个按钮都有自己的Click事件过程24、在框架Frame1和图片框Piture1中各有一组复选框CheckBox，其作用是（ D ）（A）两组复选框中只有一个能被选中（B）因有两组复选框，无一可被选中（C）两组复选框中各有一个能被选中（D）两组复选框中各有多个被选中25、要从For...Next循环中中退出循环，使用的语句是 (B)（A）Exit Do （B）Exit For （C）Continue （D）Stop二、多项选择题1、要清除文本框Textl中的内容，使其内容为空字符串，可以采用（ AC）。
vb程序设计书习题和参考答案
b = "cdef"
e = Right(a, 3)
f = Mid(b, 2, 3)
If e < f Then Print e + f Else Print f + e
End Sub
程序3.请写出单击窗体后，窗体上的显示结果。
Private Sub Form_Click()
Dim i As Integer, j As Integer
2．用Dim c(2 to 5) As Integer语句定义的数组占用个字节的内存空间。
A、4 B、8 C、6 D、10
3．以下是VB合法的数组元素。
A、x9 B、x[9] C、x(9) D、x{9}
4．设有数组声明语句：Dim a(2,3 to 4) As Integer
以上语句所定义的数组a为维数组，共有个元素，第一维下标从到，第二维下标从到。
6.窗体模块的文件扩展名是
A、.exe B、.bas C、.frx D、frm
7
A、FontName B、FontSize C、FontBold D、FontItalic
8.设置窗体的字号用
A、FontName B、FontSize C、FontBold D、FontItalic
2．编程，输入x值，按下式计算并输出y值。
3．计算下式的和，变量x与n的数值用输入对话框输入。
4．用近似公式求自然对数的底数e的值，直到前后两项之差小于10-4为止。
习题四
一、选择题
1．窗体通用部分的语句“Option Base1”，决定本窗体中数组下标界。
A、下界必须为1 B、缺省的下界为1 C、下界必须为0 D、缺省的下界为0
VB程序设计练习册参考答案
参考答案第1章Visual Basic 简介一、选择题1、B2、C3、A4、D5、C6、A7、D8、C9、D 10、B11、C 12、B二、填空题1 过程对象事件驱动2 学习版专业版企业版企业版3 Alt+F4 Alt+Q4 设计运行中断5 设置在应用程序运行时，各窗体在屏幕上的显示位置6 内部（标准）7 资源管理器8 编译方式解释方式9 选择“视图/工具箱”命令10 print 或？“大家都来学用Visual Basic”11按字母序按分类序12编辑代码三、思考题略第2章Visual Basic程序设计概述一、选择题1、A2、A3、D4、D5、D6、C7、A 8、C 9、A 10、C 11、B 12、D13、C 14、C 15、B 16、B 17、D 18、B三、编程题1、（1）建立应用程序用户界面。
选择”新建”工程，进入窗体设汁器，在窗体中增加一个标签控件Labe11和两个命令按钮 Commandl 、 Comlnand2。
（2）设置对象属性，见表。
（可自由设置）3编写代码private sub command1_clicklabel1.visible=false1 窗体 控件2 Left Top Width Height3 Ctrl 或shift4 Scrollbars Multiline True Passwordchar5 事件过程6 在属性窗口设置 在代码窗口设置7 对象名 下划线 事件名8 Form_Click9 Form1.Hide10 界面设计 属性设置 代码编写 保存运行11 窗体文件 工程文件12 部件13 窗体文件 模块文件 类模块文件private sub command2_clicklabel1.visible=trueend sub2、Private Sub Command1_ClickIf Text1.Text<>””And Text2.Text<>””Then ′组合条件判断文本框是否为空Form1.Caption=Text1.Text & ″,″& Label2.Caption & ″″& Text2.Text End IfEnd Sub第3章Visual Basic程序设计基础一选择题1.B2.C3.D4.B5.B6.B7.D8.D9.C10.C11.D 12.C 13.D 14.D 15.A 16.D 17.D 18.D 19.C 20.C21.A22.D23.B24.A 25.B 26.A二、填空题1 our name is2 13 True4 字母数字下划线2555 56 07 Logx/log10/0.5+x^2或者Logx/log10/0.5+x*x8 0,1,2,3,49 x>=0 and x<10010 511 false12 6三、编程题1.提示：Ucase、Lcase的使用2.提示：属性设置中，“计算”按钮的default属性设为True.“清除”按钮的Cancel属性设为True.第4章数据输入输出一、选择题1、D2、A3、A4、B5、D6、B7、C 8、C 9、D 10、D二、填空题1. 1+1= 22+2=42. 500.00%3.将当前字体放大两倍4. 20-11-025. 11 1三、编程题1.提示：（1）流程图。
VB程序设计题型示例答案
Visual Basic6.0程序设计题型示例参考答案一、选择题（每小题中只有一个选项是正确的）1．A2．C3．C4．C5．D6．B7．D8．B 9．A10．A11．C12．B13．D14．D15．A16．C 17．B18．A19．A20．D21．A22．A23．C24．C 25．A26．C27．D28．D29．C30．C31．C32．B 33．B34．C35．B36．C37．D38．D39．C40．C 41．C42．D43．B44．A45．C46．C47．B48．D 49．D50．D51．B52．C53．B54．D55．D56．C 57．A58．D59．A60．A61．D62．C63．A64．C 65．A66．D67．D68．A69．C70．A71．A72．D 73．C74．A75．D76．B77．D78．B79．A80．B 81．C82．A83．B84．D85．B86．B87．B88．B 89．B90．C91．C92．A93．A94．D95．C96．C 97．D98．C99．D100．D101．A102．D103．D104．C 105．C106．C107．A108．A109．D110．A111．A112．D 113．B114．B115．C116．B117．B118．B119．B120．D 121．C122．B123．D124．C125．C126．D127．D128．D 129．D130．C131．D132．B133．C134．A135．D136．C 137．A138．A139．C140．A141．B142．B143．C144．B 145．A146．A147．B148．D149．D150．B151．D152．C 153．D154．A155．B156．D157．B158．D159．C160．A 161．B162．A163．A164．C165．A166．D167．D168．A 169．D170．A171．B172．D173．A174．C175．D176．B 177．B178．B179．C180．A181．B182．B183．D184．D 185．B186．A187．A188．A189．D190．D191．B192．B 193．B194．A195．B196．D197．C198．B199．C200．D第四部分参考答案201．B202．D203．D204．A205．B206．C207．A208．C 209．B210．B211．B212．C213．D214．D215．B216．D 217．B218．A219．D220．D221．B222．C223．D224．D 225．C226．D227．C228．B229．C230．B231．A232．C 233．A234．B235．D236．C237．A238．B239．C240．B 241．C242．B243．C244．B245．D246．B247．C248．B 249．C250．C251．D252．D253．D254．C255．D256．B 257．B258．A259．B260．B261．C262．A263．B264．B 265．B266．C267．D268．B269．A270．A271．A272．B 273．D274．B275．A276．A277．C278．C279．D280．D 281．B282．A283．C284．A285．D286．B287．C288．A 289．A290．B291．D292．A293．C294．B295．D296．D 297．B298．D299．D300．D301．B302．C303．B304．B 305．D306．B307．C308．B309．A310．A311．B312．D 313．D314．C315．D316．D317．B318．C319．B320．A 321．B322．D323．D324．A325．B326．A327．A328．C 329．C330．B331．A332．C333．B334．D335．B336．D 337．A338．B339．C340．A341．C342．A343．B344．A 345．D346．C347．D348．B349．C350．C351．D352．D 353．B354．C355．A356．D357．A358．D359．D360．C二、判断题1．√2．×3．√4．√5．√6．√7．×8．×9．√10．√11．√12．√13．√14．×15．√16．√17．√18．×19．×20．√21．×22．√23．×24．√25．√26．√27．√28．×29．√30．√31．√32．√33．√34．√35．√36．×37．×38．×39．×40．√41．√42．×43．√44．√45．×46．√47．×48．×49．×50．√51．√52．√53．√54．×55．√56．√57．√58．×59．×60．×61．√62．√63．×64．×65．√66．×67．√68．×69．√70．√71．√72．×73．×74．×75．×76．×77．×78．×79．√80．×81．×82．√83．×84．√85．√86．×87．√88．√89．×90．√91．√92．√93．×94．√95．×96．×97．√98．×99．×100．√三、名词解释题1．对象是系统中的基本运行实体。
- 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. 从“学生基本信息”表中选出“性别”字段值为“男”的所有记录，查询结果包含了表中的所有字段。