VB-第一章-练习题

VB第一章测试题(1)1、激活主菜单的按键是（）A．F1或Ctrl键 B．Ctrl键或Atl键C．F10或Ctrl键 D．F10或Atl键2．如果设计时在属性窗口将命令按钮的（）属性设置为False，则运行时按钮从窗体上消失．A．Visible B．EnabledC．DisabledPicture D．Default3．退出Visual Basic的快捷键是（）A．Ctrl +Q B．Shift +QC．Alt+Q D．Ctrl+Alt+Q4．除了系统默认的工具箱布局外，在Visual Basic中还可以通过（）方法来定义选项卡组织安排控件．A．在工具箱单击鼠标右键，执行快捷菜单中的“添加选项卡”命令B．执行“文件”菜单中的“添加工程”命令C．执行“工程”菜单中的“添加窗体”命令D．执行“工程”菜单中的“部件”命令5．窗体设计器是用来设计（）A．应用程序的代码段 B．应用程序的界面C．对象的属性 D．对象的事件6．启动Visual Basic后，系统为用户新建的工程起一个名为（）的临时名称．A．工程1 B．窗体1C．工程 D．窗体7．工程资源管理器窗口中包含的文件类型有（）种．A．2 B．3C．4 D．58．Visual Basic的编程机制是（）A．可视化 B．面向对象C．面向图形 D．事件驱动9．Visual Basic集成环境的大部分窗口都可以从主菜单项（）的下拉菜单中找到相应的打开命令．A．编辑 B．视图C．格式 D．调试10．要在窗体上显示图片，需设置窗体的（）属性．A．Caption B．IconC．Picture D．ControlBox11．每个窗体对应一个窗体文件，窗体文件的扩展名是（）A．.bas B．.clsC．.frm D．.vbp12．双击窗体的任何地方，可以打开的窗口是（）A．代码窗口 B．属性窗口 C．工程管理窗口 D．以上3个选项都不对13．工具栏中的“启动”按钮的作用是（）A．运行一个应用程序 B．运行一个窗体C．工程管理窗口 D．打开被选中对象的代码窗口14．运行时，单击窗体将窗体的前景色设置为红色的事件过程是（）A． Private Sub Form_Click( ) B．Private Sub Form_Click( )BackColor=vbRed Form1.ForeColor=vbRedEnd Sub End SubC．Private Sub Form_Click( ) D．Private Sub Form_Click( )Form1.BackColor=vbRed ForeColor=vbRedEnd Sub End Sub15．如果要在命令按钮上显示图形文件，应设置命令按钮的（）A．Style属性和Graphics属性 B．Style属性和Picture属性C．Picture属性D．Graphics属性16．英文缩写OLE的含义是（）A．面向对象程序设计 B．对象链接C．对象嵌入 D．对象链接与嵌入17．在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示（）事件过程模板．A．Form_Click B．Form_Load C．Form1_Click D．Form1_Load18．每建立一个窗体，工程管理器窗口中就会增加一个（）A．工程文件 B．窗体文件C．程序模块文件 D．类模块文件19．激活属性窗口使用的键是（）A．F2 B．F3 C．F4 D．F520．Visual Basic是一种（）程序设计语言．A．过程式 B．非过程式C．机器 D．低级21．不能在运行期间设置窗体的（）属性．A．BorderStyle B．Caption C．Icon D．MaxButton22．设在窗体上有两个命令按钮，其中一个命令按钮的名称为cmda，则另一个命令按钮的名称不能是（）A．cmdc B．cmdb C．cmdA D．Command1二、填空题1. 如果要在单击钮时执行一段代码，则应将这段代码写在_______________事件过程中．2. 一个工程可以包括多种类型的文件，其中，扩展名为.vbp的文件表示___________文件；扩展名为.frm的文件表示_____________文件；扩展名为.bas的文件表示_____________文件；包含ActiveX控件的文件扩展名为__________．3. Visual Basic 6.0用于开发__________环境下的应用程序．如果要使用命令按钮表面显示文字“退出（X）”（在字符X之下加下划线），则其Caption 属性设置为___________，其括号中的X表示在运行时按下____________键与单击该按钮效果相同．打开“工程窗口”的方法之一是按下______________组合键．Visual Basic的控件通常分为3种类型，即___________、___________、____________．其中，____________不能从工具箱中被删除，_____________单独保存在.OCX文件中，在必要进可以加入到工具箱中．VB第一章测试题(2)一、选择题1. 标准模块文件的扩展名为_________。

第一章 Visual Basic概述一、选择题1.在 Visual Basic的工程中,工程文件的扩展名是( ) 。

A. .frmB. .vbgC. .vbpD. .bas2. Visual Basic程序中分隔一行中各语句的字符是( ) 。

A.’B.:C.\D.-空格-3.下列不属于对象的基本特征是( ) 。

A.属性B.方法C.事件D.函数4.以下叙述中错误的是( ) 。

A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B.以.BAS为扩展名的文件是标准模块文件C.窗体文件包含窗体及控件的属性D.一个工程中可以含有多个标准模块文件5.启动 Visual Basic后,系统为用户新建的工程起一个名为( ) 的临时名称。

A.工程1B.窗体1C.工程D.窗体6.用标准工具栏中的工具按钮不能执行的操作是( ) 。

A.添加工程B.打印源程序C.运行程序D.打开工程7.要添加一个标准模块,可使用( ) 菜单中的“添加模块”命令。

A.文件B.视图C.工程D.工具8.工具栏中的“启动”按钮的作用是( ) 。

A.运行一个应用程序B.运行一个窗体C.工程管理窗口D.打开被选中对象的代码窗口9.下列关于 Visual Basic6.0工具栏的说法不正确的是( ) 。

A.工具栏的位置可以任意改变B.工具栏一定在菜单栏的下方C.工具栏可以显示或隐藏D. Visual Basic有多个工具栏10.在设计模式双击窗体将显示的窗口是( ) 。

A.工程窗口B.工具箱C.代码窗口D.属性窗口11.以下关于保存工程的说法正确的是( ) 。

A.保存工程时只保存窗体文件即可B.保存工程时只保存工程文件即可C.先保存窗体文件,再保存工程文件D.先保存工程文件,再保存窗体文件12.在面向对象的程序设计中,最基本的元素是( ) 。

A.窗体文件B.工程文件C.属性D.对象13. Visual Basic的编程机制是( ) 。

第1章习题与答案一、选择题1. 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是:（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口2. 保存新建的工程时，默认的路径是:（A）My Documents （B）VB98 （C）\ （D）Windows3. 将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件转到其他机器上不能运行的主要原因是:（A）运行的机器上无VB系统所需的动态连接库（B）缺少.frm窗体文件（C）该可执行文件有病毒（D）以上原因都不对4.当需要上下文帮助时，选择要帮助的“难题”，希望出现MSDN窗口及显示所需“难题”的帮助信息。

应按的键的（A）Help （B）F10 （C）Esc （D）F15.Visual Basic中提供的On Error Resume Next错误陷阱语句的功能是:（A）当发生错误时，使程序跳转到语句标号为0的程序块（B）当发生错误时，不使用错误处理程序块（C）当发生错误时，忽略错误行，继续执行下一语句（D）当发生错误时，终止本过程程序执行，继续执行下一过程6.在VB环境中，工程文件的扩展名是:（A）.frm （B）.bas （C）.vbp （D）.frx7.将一个VB程序保存在磁盘上，至少会产生的文件是:（A）.doc、.txt （B）aaa、.exe （C）.vbp、.frm （D）.bat、.sys8.下面关于对象的描述中，错误的是:（A）对象就是自定义结构变量（B）对象代表正在创建的系统中的一个实体（C）对象是一个状态和操作（或方法）的封装体（D）对象之间的信息传递是通过消息进行的9.下面4项中不属于面向对象系统三要素的是(A)变量（B）事件（C）属性（D）方法10.下面各种高级语言中，不是面向对象程序设计语言的是（A）Visual Basic （B）C++ （C）Pascal （D）Java二、填空题1．当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择【1】菜单的【2】选项，使“工具箱”窗口显示。

第一章 环境和程序设计初步一.选择题1.在Visual 的集成开发的环境中，下面不属于该环境编程语言的是（C）。

A.VBB.C++C. PascalD. J#2.在集成开发环境中有两类窗口，浮动窗口和固定窗口，下面不属于浮动窗口的是（D）。

A.工具箱窗口B.属性窗口C.立即窗口D.窗体窗口3.在中，在窗体上显示控件的文本，用（ A ）属性设置。

A. TextB. NameC. CaptionD. Image4.不论何种控件，共同具有的是什么属性( D )。

A. TextB. Name C．ForeColor D．Text5．对于窗体，可改变窗体的边框性质的属性是（B）。

A.MaxButtonB. FormBorderStyleC. NameD. Left6.若要使标签控件显示时不要覆盖窗体的背景图案，要对（A）属性进行设置。

A．BackColor B. BorderStyle C．ForeColor D.BackStyle7．若要使命令按钮不可操作，要对（A）属性进行设置。

A. EnabledB.VisibleC. BackColorD. Text8.要使文本框中的文字不能被修改，应对（D）属性进行设置。

A. LockedB. VisibleC. EnabledD. ReadOnly9.要使当前Form1 窗体的标题栏显示“欢迎使用”，以下（B）语句是正确的。

A.Form1.Text=“欢迎使用V”B.Me. Text=“欢迎使用”=“欢迎使用”D.Me. Name=“欢迎使用”10.当运行程序时，系统自动执行启动窗体的（A）事件过程。

A. LoadB. ClickC. UnLoadD. GotFocus11.当文本框的ScrollBars属性设置了非None值，却没有效果，原因是（B）。

A.文本框没有容B.文本框的MulitLine属性为FalseC.文本框的MulitLine属性为TrueD.文本框的Locked属性True12．要判断在文本框中是否按了Enter键，应在文本框的（D）事件中判断。

一、判断题1.属性是Visual Basic对象性质的描述，对象的数据就保存在属性中。

2.控件的属性值不可以在程序运行时动态地修改。

3.许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。

4.所谓保存工程，是指保存正在编辑的工程的窗体。

5 .面向对象的程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。

6.为了使一个控件在运行时不可见，应该将该控件的Enabled属性设置为False07.保存Visual Basic文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存各窗体或模块文件。

8.事件是由Visual Basic预先定义的对象能够识别的动作。

9.方法是Visual Basic对象可以相应的用户操作。

10.窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对象。

11.山Visual Basic语言编写的应用程序有解释和编译两种执行方式。

12.在打开一个Visual Basic工程进行修改后，要另存为一个版本，只需单击“工程另存为...”就行，因为系统将同时保存其他文件。

13.当用Load命令将窗体装入内存时，一定触发窗体的load事件和Activate事件.二、选择题1.要使某个控件不可操作，要对属性进行设置。

A、EnabledB、VisibaleC、CaptionD、Name2.下列不属于对象的基本特征的是oA、属性B、方法C、事件D、函数3.当运行程序时，系统自动执行启动窗体的事件过程。

A、ClickB、LoadC、DblClickD、Unload4.Visual Basic中“程序运行”允许使用的快捷键是。

A、F2B、F5C、Alt+F3D、F85.改变控件在窗体中的左右位置应修改该控件的属性。

A> Top B、Left C、Width D、Right6.工程文件的扩展名为oA、.exeB、.basC、.frxD、.frm7.在Visual Basic中，称对象的数据为=A、属性B、方法C、事件D、封装8.下列选项中不属于属性的是=A、NameB、CaptionC、ShowD、Text9.将Visual Basic编制的程序保存在磁盘上，至少会产生何种文件。

《大学Visaul Basic程序设计》复习题第一章Visual Basic程序设计概述第一题:是非题(共10分,每项1分)1. VB6.0只能运行在Windows 2000下,不能运行在Windows 98下。

13A.对B.错√2. 用户控件和系统控件都可以加载到工具箱上,并且永久保留。

4A.对B.错√第二题、单选题(共45分,每项1.5分)1. VB中的工具栏可以从______菜单上的“工具栏”命令中移进或移出。

15A.工具B.编辑C.视图√D.调试2. 在VB的集成环境中创建VB应用程序时,除了工具箱窗口、窗体设计窗口、属性窗口外,必不可少的窗口是______。

2A.窗体布局窗口B.立即窗口C.代码窗口√D.监视窗口第二章VB的编程机制第一题:是非题(共10分,每项1分)1. 在事件驱动的应用程序中,代码是按照预定的路径执行的。

15A.对B.错√2. 标签控件即可以用来显示用户不能编辑和修改的文本,也可以用来编辑和修改文本。

9A.对B.错√3. 每一个控件实质上都是一个微型程序。

2A.对√B.错4. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。

A.对√B.错第二题、单选题(共45分,每项1.5分)1. 文本框没有_____属性。

21A.EnabledB.VisibleC.BackColorD.Caption√2. 文本框(Text1)中有选定的文本,执行Text1.SelText=”Hello”的结果是___。

9A.“Hello”将替换掉原来选定的文本√B.“Hello”将插入到原来选定的文本之前C.Text1.SelLength为5D.文本框中只有“Hello”3. 要判断“命令按钮”是否被鼠标单击,应在“命令按钮”的______事件中判断。

3A.ChangB.KeyDownC.Click√D.KeyPress4. 如果文本框的Enabled属性设为False,则___。

6A.文本框的文本将变成灰色,并且此时用户不能将光标置于文本框上B.文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容√C.文本框的文本将变成灰色,用户仍然能改变文本框中的内容D.文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容第三题、简单程序(共15分,每项1.5分)1. 以下程序的输出结果是______。

第一章VB程序设计概述二、选择题CADAB ACDAB CBDBB第二章VB可视化编程基础二、选择题ABDCA CACBC DADAD BDBBB三、填空题1.可视2.LEFT TOP WIDTH HEIGHT3.按字母序4.查看代码5.工具、选项6.Form1 Font7.Multiline8.只读属性9.工程属性通用Form1.show10.tabindex 0第三章VB语言基础二、选择题BCADB ADBBC DBCBA DAABB三、填空题1.整型、长整型、单精度、双精度2.sin(30*3.14/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)3.160 今天是：3-224.False5.-4 3 -3 3 -4 46.“CDEF”7.(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第四章VB程序控制结构二、选择题DBCAD ABCAB D25BAC CBACB DABBC三、填空题1.字符型整型2. 1 2 33.x>74.x<amin5.10246.117.128.6 I “*”;9.0 100 i+1 10.2*I 6 “*”;三、编程题1.Private Sub Form_Click()Dim n As Integer, i As Integer, s As Longs = 1n = Val(InputBox("请输入一个整数:"))For i = 1 To ns = s * iNext iMsgBox n & "！=" & sEnd Sub2．Private Sub Form_Click()Dim i%, k%For j = 3 To 100k = Int(Sqr(j))For i = 2 To kIf j Mod i = 0 Then Exit ForNext iIf i > k Theny$ = y$ & " " & jEnd IfNext jMsgBox y, , "显示质数"End Sub3．Private Sub Form_Click()Dim i%, s%For i = 1 To 100s = s + iNext iMsgBox "1+2+3+……+100=" & sEnd Sub4．Private Sub Form_Click()Dim x%, y%For x = 1 To 50For y = 1 To 33z = 100 - x - yIf 2 * x + 3 * y + 0.5 * z = 100 ThenPrint "小鸡、公鸡、母鸡分别为："; x; y; z End IfNext yNext xEnd Sub5.Private Sub Command1_Click()Dim a%, b%, c%, p!, s!doa = Val(InputBox("请输入三角形的第一条边"))if a=-1 then exit dob = Val(InputBox("请输入三角形的第二条边"))c = Val(InputBox("请输入三角形的第三条边"))If a + b > c And a + c > b And b + c > a Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print sElseMsgBox "你输入的三边不能构成三角形，请重新输入"End IfloopEnd Sub6. Private Sub Form_Click()Dim i As Integer, j As Integer,k as integerFor i = 1 To 8For k=1 to 8-iPrint spc(3);Next kFor j = 1 To 2 * i - 1Print i;Next jPrintNext iEnd Sub7. Private Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerFor i = 1 To 30For j = 1 To 30For k = 1 To 30If i ^ 2 + j ^ 2 = k ^ 2 ThenPrint i & " ^ 2 + " & j & "^ 2 =" & k & "^ 2"End IfNext kNext jNext iEnd Sub8．Private Sub Form_Click()Dim x As Integer, a As Integer, b As Integer, c As Integer, ss As String ss = ""For x = 100 To 999a = Int(x / 100)b = Int((x - 100 * a) / 10)c = x - 100 * a - 10 * bIf a ^ 3 + b ^ 3 + c ^ 3 = x Thenss = ss & " " & xEnd IfNext xPrint ssEnd Sub9．Dim sr As Long, r As Singlesr = Val(InputBox("请输入收入："))Select Case srCase Is < 200r = 0Case 200 To 400r = (sr - 200) * 0.04Case 400 To 5000r = sr * 0.04Case Is >= 5000r = sr * 0.05End SelectPrint "收入为" & sr & "时所缴纳的税为：" & rEnd Sub10.Private Sub Form_Click()Dim t As Single, wf As Singlet = Val(InputBox("请输入上网时间:"))Select Case tCase Is < 10wf = 50Case 10 To 60wf = t * 6Case Is >= 60wf = t * 4End SelectIf wf >= 200 Thenwf = 200End IfPrint "上网时间为" & t & "小时上网的费用为：" & wf End Sub11. Private Sub Form_Click()Dim yf As Integeryf = Val(InputBox("请输入月份"))Select Case yfCase 12, 1, 2MsgBox yf & "月份是冬季"Case 3, 4, 5MsgBox yf & "月份是冬季"Case 6, 7, 8MsgBox yf & "月份是冬季"Case 9, 10, 11MsgBox yf & "月份是冬季"Case ElseMsgBox "输入错误，请重新输入"End SelectEnd Sub12.if的方法Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))If x < 0 Thenf = 2 * x - 1ElseIf x = 0 Thenf = 4 * xElseIf x > 0 Thenf = 7 * x - 5End IfPrint "f(" & x & ")=" & fEnd SubSelect case语句：Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))Select Case xCase Is < 0f = 2 * x - 1Case 0f = 4 * xCase Is > 0f = 7 * x - 5End SelectPrint "f(" & x & ")=" & fEnd Sub第五章数组一、选择题DCACD DBCDC BADAD二、填空题1.名称Index2.preserve3.变体4.235.1 2 3 1 4 16.1 2 3 2 4 67. max max=arr1(i)三、编程题1.Option Base 1Private Sub Form_Click()Dim a(10) As Integer, i%, temp%For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个整数")) Next iPrint "原来各元素的值为："For i = 1 To 10Print a(i);Next iFor i = 1 To 5temp = a(11 - i)a(11 - i) = a(i)a(i) = tempNext iPrintPrint "交换后各元素的值为："For i = 1 To 10Print a(i);Next iEnd Sub2.Option Base 1Private Sub Form_Click()Dim a As Variant, b As Variant, c As Variant, i%a = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66, 78, 80)ReDim c(8)For i = 1 To UBound(a)c(i) = a(i) + b(i)Next iFor i = 1 To UBound(c)Print c(i);Next iEnd Sub3.Option Base 1Private Sub Form_Click()Dim a() As Variant, i%, j%, n%, m%, max%, hh%, lh%n = Val(InputBox("请输入一个整数:"))m = Val(InputBox("请输入一个整数:"))ReDim a(n, m)For i = 1 To n - 1For j = 1 To m - 1a(i, j) = Int(Rnd * 101 + 50)If max < a(i, j) Then max = a(i, j): hh = i: lh = jNext jNext iPrint "最大值为:"; max; "所在的行号为："; hh; "所在的列号为:"; lh End Sub4.Option Base 1Private Sub Form_click()Dim a(50) As Integer, b(9) As Integer, i%, j% For i = 1 To 50a(i) = Int(Rnd * 90 + 10)j = Int(a(i) / 10)b(j) = b(j) + 1Next iFor j = 1 To 9Print b(j);Next jEnd Sub5.Option Base 1Private Sub Command1_Click(Index As Integer) Select Case IndexCase 0Text3 = Val(Text1) + Val(Text2)Case 1Text3 = Val(Text1) - Val(Text2)Case 2Text3 = Val(Text1) * Val(Text2)Case 3Text3 = Val(Text1) / Val(Text2)End SelectEnd Sub6.Private Sub Form_click()Dim s!, i&, j&i = 3s = 1j = 0Doj = j + 1s = s + (-1) ^ j / ii = i + 2Loop While 1 / i > 10 ^ (-6)Print 4 * sEnd Sub7.Option Base 1Private Sub Form_click()Dim a(40) As Long, i As Integera(1) = 1a(2) = 1For i = 3 To 39a(i) = a(i - 1) + a(i - 2)Next iFor i = 1 To 40Print a(i);Next iEnd Sub8.冒泡法：Option Base 1Private Sub Form_click()Dim a(10) As Single, ok As Boolean, i%, j%, x!For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iFor i = 10 To 2 Step -1ok = TrueFor j = 1 To i - 1If a(j) > a(j + 1) Thenx = a(j)a(j) = a(j + 1)a(j + 1) = xok = FalseEnd IfNext jIf ok Then Exit ForNext iPrintPrint "冒泡排序的结果为："For i = 1 To 10Print a(i);Next iEnd Sub选择法：Option Base 1Private Sub Form_click()Dim a(10) As Single, p!, i%, j%, min!For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iFor i = 1 To 9p = iFor j = i + 1 To 10If a(j) < a(p) Then p = jNext jIf p <> i Thenmin = a(i)a(i) = a(p)a(p) = minEnd IfNext iPrintPrint "排序后的结果为："For i = 1 To 10Print a(i);Next iEnd Sub第六章过程一、选择题CDBAB DBCCC ABCBD CDB二、填空题1.sub function2.形式实际3.内存的同一地址4.myf(a%,b() as integer ) as Boolean5.值传递地址传递6.lbound ubound7.局部8.通用任何过程9.2 5 9 10.2411.2 12.30 7013.-1三、编程题1. Option Base 1Private Sub Form_Click()Dim m1%, m2%, b() As IntegerFor i = 3 To 7 Step 2ReDim b(i)For j = 1 To ib(j) = Int(Rnd * 90 + 10)Print b(j);Next jm1 = b(1)m2 = b(1)Call mm(m1, m2, b())PrintPrint "最大值为:"; m1Print "最小值为:"; m2Next iEnd SubPublic Sub mm(max%, min%, a() As Integer) Dim i%For i = LBound(a) To UBound(a)If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iEnd Sub2.sub过程：Public Sub jc(n%, s&)Dim i%s = 1For i = 1 To ns = s * iNext iEnd SubPrivate Sub Form_click()Dim s&, a%, b%, c%, s1&a = Val(InputBox("请输入一个整数:"))b = Val(InputBox("请输入一个整数:"))c = Val(InputBox("请输入一个整数:")) Call jc(a, s1)s = s1 + sCall jc(b, s1)s = s1 + sCall jc(c, s1)s = s1 + sPrint a & "!+" & b & "!+" & c & "!=" & s End SubFunction过程：Public Function jc(n%) As LongDim i%, s%s = 1For i = 1 To ns = s * iNext ijc = sEnd FunctionPrivate Sub Form_click()Dim s&, a%, b%, c%, s1&a = Val(InputBox("请输入一个整数:"))b = Val(InputBox("请输入一个整数:"))c = Val(InputBox("请输入一个整数:"))s1 = jc(a) + jc(b) + jc(c)Print a & "!+" & b & "!+" & c & "!=" & s1 End Sub3.Public Sub jo(n As Integer)If n Mod 2 = 0 ThenPrint "false"ElsePrint "true"End IfEnd Sub4.Private Sub Form_click()Dim b(1 To 100) As Integer, i%For i = 1 To 100b(i) = Int(Rnd * 100 + 1)Next iCall sort(b())For i = 1 To 100If i Mod 10 = 0 Then PrintPrint b(i);Next iEnd SubPublic Sub sort(a() As Integer)Dim n%, ok As Boolean, k As Integern = UBound(a)For i = 1 To n - 1ok = TrueFor j = 1 To n - iIf a(j) > a(j + 1) Thenk = a(j): a(j) = a(j + 1): a(j + 1) = k: ok = False End IfNext jIf ok Then Exit ForNext iEnd Sub5.Private Sub Form_click()Dim b(1 To 10) As Integer, i%For i = 1 To 10b(i) = Val(InputBox("请输入第" & i & "个整数")) Next iCall sort(b())Print "排序后的结果"For i = 1 To 10Print b(i);Next iEnd SubPublic Sub sort(a() As Integer)Dim n%, p%, k As Integern = UBound(a)For i = 1 To n - 1p = iFor j = i + 1 To nIf a(j) < a(p) Then p = jNext jIf p <> i ThenMin = a(i)a(i) = a(p)a(p) = MinEnd IfNext iEnd Sub6.Public Sub gys(m%, n%)Dim r%, t%If m <> 0 And n <> 0 ThenIf m < n Thent = m: m = n: n = tEnd Ifr = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopEnd IfEnd Sub7.Public Sub ws(n%, s%)Dim k%, i%For i = 1 To n - 1If n Mod i = 0 Then s = s + iNext iEnd SubPrivate Sub Form_click()Dim m%, sum%, c$For m = 1 To 999sum = 0Call ws(m, sum)If sum = m Then c = c & sum & " " Next mMsgBox cEnd Sub8.Public Function ef(a(), k%, wz%) As Integer Dim i%, low%, mid%, top%low = LBound(a)top = UBound(a)Do While low <= topmid = (low + top) / 2If k > a(mid) Thenlow = mid + 1ElseIf k = a(mid) Thenwz = midExit FunctionElsetop = mid - 1End IfLoopwz = -1End Function9.Function MaxGY(x As Integer, y As Integer) Dim Temp As IntegerTemp = x Mod yIf Temp = 0 ThenMaxGY = yElseMaxGY = MaxGY(y, Temp)End IfEnd FunctionPrivate Sub Form_click()Dim m%, n%m = Val(InputBox("请输入第一个整数："))n = Val(InputBox("请输入第二个整数：")) Print "最大公约数是:"; MaxGY(m, n)End Sub10. Function Ss(n%)If n = 1 ThenSs = 10ElseSs = Ss(n - 1) + 2End IfEnd FunctionPrivate Sub Form_click()Dim r%, x%r = 5x = Ss(5)Print "第5个小孩的岁数为:"; xEnd Sub第七章应用程序界面设计一、选择题BCDCA CDBBD CADAA CADBD DAAAB CAA二、填空题1.form1.show unload form12.form2.show form1.hide3.属性方法事件4、工程属性工程属性5．子窗体主窗体6、keypress list(i) additem7.0 list1.listindex list1.listcount-18、1000 true time() 9、AA10、下拉式组合框、简单组合框和下拉式列表框第八章VB图形操作一、选择题DCCDA CDAAA BABBC CAAA二、填空题1、不会也不会 2.、Scaleheight Scalewidth3、(300,-150)4、右上5、twip6、0~157、B 8、-2π~09、逆10、drawwidth11、右上12、move13、cls 14、坐标原点、坐标度量单位、坐标轴的长度与方向15、VB程序设计vbprogramming三、编程题1、Private Sub Command1_Click()Const pi = 3.14159P1.Circle (Val(Text1), Val(Text2)), Val(Text3)End SubPrivate Sub Command2_Click()P1.ClsText1 = ""Text2 = ""Text3 = ""End Sub2、Private Sub Form_Load()Pic1.Picture = LoadPicture("F:\VB程序设计\上课课件\tea.jpg")End SubPrivate Sub Pic1_Click()Pic2.Picture = Pic1.PicturePic1.Picture = LoadPicture("")End Sub3、Dim a1!, b1!Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) a1 = Xb1 = YEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Circle (a1, b1), Sqr((a1 - X) ^ 2 + (b1 - Y) ^ 2)End Sub4、Dim a1!, b1!Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Thena1 = Xb1 = YEnd IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenLine (a1, b1)-(X, Y), vbGreen, BFEnd IfEnd Sub5、Private Sub Form_Click()Scale (-200, 200)-(200, -200)Dim i!For i = 0 To 140 Step 20Line (-i - 10, i + 10)-(i + 10, -i - 10), , BNext iEnd Sub第9章vb文件操作一、选择题BDDCC BBAAB二、填空题1、驱动器列表框、目录列表框和文件列表框2、change 3\file1.path=dir1.path4、name “D:\old.doc” as “c:\new.doc”5、dir1.path=drive1.drive file1.path=dir1.path6、filecopy “d:\text.doc”,”e:\text.doc”7、eof 8、input not eof(1)9、for inputFor outputnot eof(1)str1Close #110、pattern 11、空12、字节。

2016-2017学年第一学期Visual Basi程序设计第一章练习卷一、选择题：1、下列关于visual basic 特点的描述，哪个是正确的( )A 面向对象B 可视化C 事件驱动D 以上全都是2、只有在执行某种动作后，才会执行某段程序，这种机制称为 ( )A 事件驱动B 面向对象C 面向过程D 可视化3、visual basic 6.0集成开发环境的主窗口中不包括 ( ) ( )A 标题栏B 菜单栏C 状态栏D 工具栏4、在visual basic中建立应用程序所需要的控件，应使用（）A 属性窗口B 工具箱窗口C 立即窗口D 菜单设计窗口5、为了能用键盘打开菜单和执行菜单命令，第一步应按的键是( )A 功能键F10或AltB Shift+F4C Ctrl或功能键F4D Ctrl+Alt6、通过（）可以在设计时，，直观的调整窗体在屏幕上的位置。

A 代码窗口B 窗体布局窗口C 窗体设计窗口D 属性窗口7、visual basic窗体设计器是用来设计（）A 应用程序的代码段B 应用程序的界面C 对象的属性D 对象的事件8、在visual basic 6.0集成开发环境中，按下列组合键可以打开工程管理器窗口的是（）。

A Shift+F7B Ctrl+GC Ctrl+RD Shift+F49、在visual basic 6.0集成开发环境中，激活属性窗口使用的功能键是（）A F2B F3C F4D F510、在visual basic 6.0集成开发环境中，如果没有显示出某个窗口，可以通过（）菜单之下的命令使其显示。

A 文件B 编辑C 视图D 工程11、下列不是在visual basic 6.0中打开工程方法的是（）A 按Alt+O组合键B 执行文件菜单中的打开工程命令C 按Ctrl+O组合键D 单击标准工具栏上的打开工程按钮12、下面关于visual basic 6.0工具栏的说法不正确的是（）A 工具栏的位置可以任意改变B 工具栏一定在菜单栏的下方C 工具栏可以显示或隐藏D visual basic有多个工具栏13、退出visual basic 的快捷键是( )A Ctrl+QB Shift+QC Alt+QD Ctrl+Alt+Q14、Visual Basic 6.0分为3种版本，不属于这3种版本的是（）A学习版B专业版C企业版D业余版15、下列方法中不能退出Visual Basic的是（）A按Alt+Q组合键B按下Alt+F组合键，然后按Esc键C按F10键，然后按F键，再按X键D打开“文件”菜单→“退出”命令16、Visual Basic集成的主窗口中不包括（）A 属性窗口B 标题栏C 菜单栏D工具栏17、下列操作可以打开立即窗口的是（）A Ctrl+DB Ctrl+FC Ctrl+GD Ctrl+E二、填空题：1、visual basic中的visual是_____________________的意思。

VB第一章测试题(1)1、激活主菜单的按键是（）A．F1或Ctrl键 B．Ctrl键或Atl键C．F10或Ctrl键 D．F10或Atl键2．如果设计时在属性窗口将命令按钮的（）属性设置为False，则运行时按钮从窗体上消失．A．Visible B．EnabledC．DisabledPicture D．Default3．退出Visual Basic的快捷键是（）A．Ctrl +Q B．Shift +QC．Alt+Q D．Ctrl+Alt+Q4．除了系统默认的工具箱布局外，在Visual Basic中还可以通过（）方法来定义选项卡组织安排控件．A．在工具箱单击鼠标右键，执行快捷菜单中的“添加选项卡”命令B．执行“文件”菜单中的“添加工程”命令C．执行“工程”菜单中的“添加窗体”命令D．执行“工程”菜单中的“部件”命令5．窗体设计器是用来设计（）A．应用程序的代码段 B．应用程序的界面C．对象的属性 D．对象的事件6．启动Visual Basic后，系统为用户新建的工程起一个名为（）的临时名称．A．工程1 B．窗体1C．工程 D．窗体7．工程资源管理器窗口中包含的文件类型有（）种．A．2 B．3C．4 D．58．Visual Basic的编程机制是（）A．可视化 B．面向对象C．面向图形 D．事件驱动9．Visual Basic集成环境的大部分窗口都可以从主菜单项（）的下拉菜单中找到相应的打开命令．A．编辑 B．视图C．格式 D．调试10．要在窗体上显示图片，需设置窗体的（）属性．A．Caption B．IconC．Picture D．ControlBox11．每个窗体对应一个窗体文件，窗体文件的扩展名是（）A．.bas B．.clsC．.frm D．.vbp12．双击窗体的任何地方，可以打开的窗口是（）A．代码窗口 B．属性窗口 C．工程管理窗口 D．以上3个选项都不对13．工具栏中的“启动”按钮的作用是（）A．运行一个应用程序 B．运行一个窗体C．工程管理窗口 D．打开被选中对象的代码窗口14．运行时，单击窗体将窗体的前景色设置为红色的事件过程是（）A． Private Sub Form_Click( ) B．Private Sub Form_Click( )BackColor=vbRed Form1.ForeColor=vbRedEnd Sub End SubC．Private Sub Form_Click( ) D．Private Sub Form_Click( )Form1.BackColor=vbRed ForeColor=vbRedEnd Sub End Sub15．如果要在命令按钮上显示图形文件，应设置命令按钮的（）A．Style属性和Graphics属性 B．Style属性和Picture属性C．Picture属性D．Graphics属性16．英文缩写OLE的含义是（）A．面向对象程序设计 B．对象链接C．对象嵌入 D．对象链接与嵌入17．在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示（）事件过程模板．A．Form_Click B．Form_Load C．Form1_Click D．Form1_Load18．每建立一个窗体，工程管理器窗口中就会增加一个（）A．工程文件 B．窗体文件C．程序模块文件 D．类模块文件19．激活属性窗口使用的键是（）A．F2 B．F3 C．F4 D．F520．Visual Basic是一种（）程序设计语言．A．过程式 B．非过程式C．机器 D．低级21．不能在运行期间设置窗体的（）属性．A．BorderStyle B．Caption C．Icon D．MaxButton22．设在窗体上有两个命令按钮，其中一个命令按钮的名称为cmda，则另一个命令按钮的名称不能是（）A．cmdc B．cmdb C．cmdA D．Command1二、填空题1. 如果要在单击钮时执行一段代码，则应将这段代码写在_______________事件过程中．2. 一个工程可以包括多种类型的文件，其中，扩展名为.vbp的文件表示___________文件；扩展名为.frm的文件表示_____________文件；扩展名为.bas的文件表示_____________文件；包含ActiveX控件的文件扩展名为__________．3. Visual Basic 6.0用于开发__________环境下的应用程序．如果要使用命令按钮表面显示文字“退出（X）”（在字符X之下加下划线），则其Caption属性设置为___________，其括号中的X表示在运行时按下____________键与单击该按钮效果相同．打开“工程窗口”的方法之一是按下______________组合键．Visual Basic的控件通常分为3种类型，即___________、___________、____________．其中，____________不能从工具箱中被删除，_____________单独保存在.OCX文件中，在必要进可以加入到工具箱中．VB第一章测试题(2)一、选择题1. 标准模块文件的扩展名为_________。

第一章 VB基础知识一、单选题1.若属性窗口没有出现在Visual Basic6.0集成开发环境中，可使用（）菜单中的相应命令将其打开。

A. 工程B. 视图C. 调试D. 工具2.英文的“Visual”的含义是（）A. 集成B. 标准C. 可视化D. 调试3.不能打开属性窗口的操作是（）。

A. 单击工具栏的“属性窗口”按钮B. 选取“视图”菜单中的“属性窗口”子菜单项C. 在对象上单击右键，从弹出的快捷菜单中选择“属性窗口”D. 选取“工程”菜单中的“属性窗口”子菜单项4.不能打开代码窗口的操作是（）。

A. 右键单击窗体窗口，在弹出的快捷菜单中选择“查看代码”B. 选择“视图”下拉菜单中的“代码窗口”C. 双击窗体窗口的任何地方D. 按下F4键16. VB应用程序中，扩展名为.vbp的文件是（）。

A. 标准模块文件B. 工程模块文件C. 窗体模块文件D. 类模块文件17. 以下不能在“工程资源管理器”窗口中列出的文件类型是（）。

A. .basB. .vbpC. .frmD. .ocx18. 窗体文件的扩展名是（）。

A．.frm B．.vbp C. .bas D. .frx20. 关于Visual Basic事件的说法中，不正确的为（）。

A．事件是由Visual Basic预先定义好的，能够被对象识别的动作B．DblClick(双击)是Visual Basic中一个事件C．一个对象可以识别一个或多个事件D．一个对象可以识别哪些事件，需要由程序员自己决定21. 在VB6.0中的每一个对象都有自己的属性、方法和（）。

A．控件B．函数C. 事件D.公用过程22. 以下说法错误的是（）。

A. 事件是由Visual Basic预先设置好的、能够被对象识别的动作B. 当对象响应某个事件后，对象所执行的操作将通过一段程序代码来实现，这段程序代码称为事件过程C. 一个对象对应一个事件，一个时间对应一个事件过程D. 事件过程的一般格式为：Private Sub 对象名称_事件名称（）事件响应程序代码End Sub23. 以下说法错误的是（）。

第一章选择题1. VB是一种面向对象的可视化程序设计语言,采取了（A ）的编程机制。

（A）事件驱动(B) 按过程顺序执行（C）从主程序开始执行(D) 按模块顺序执行2. 以下不属于VB的工作模式的是（c ）模式。

(A) 运行(B)设计(C) 编译(D)中断3. 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是（ C ）。

（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口4. 保存新建工程时，默认的路径是（B ）。

（A）My Documents （B）VB98 （C）\ （D）Windows5. 将调试通过的VB工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其他机器上不能运行的主要原因是（A ）。

（A）运行的机器上无VB系统（B）缺少.frm窗体文件（C）该可执行文件有病毒（D）以上原因都不对6. VB6.0集成开发环境可以（D ）。

（A）编辑、调试、运行程序，但不能生成可执行程序（B）编辑、调试、生成可执行程序，但不能运行程序（C）编辑、生成可执行程序、运行程序，但不能调试（D）编辑、调试、运行程序，也能生成可执行程序7. VB6.0集成环境的主窗口中不包含（B ）。

（A）菜单栏（B）状态栏（C）标题栏（D）工具栏8. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（C ）。

（A）工程资源管理器窗口（B）工具箱窗口（C）代码窗口（D）属性窗口9. 下面四个选项中，不是VB6.0工具箱的标准控件的是（C ）。

（A）滚动条（B）定时器（C）多媒体（D）框架10. VB6.0的（C ）版本，可供专业编程人员开发功能强大的组内分布式应用程序。

（A）初级版（B）学习版（C）企业版（D）专业版11. 英文缩写“OOP”的含义是（A ）。

（A）面向对象程序设计（B）结构化程序设计语言（C）事件驱动的编程机制（D）可视化程序设计12. 不能打开代码窗口的操作是（B ）。

第一章VB环境和基础一、选择题1. 标准模块文件的扩展名为_____D____。

A、.frmB、.resC、.clsD、.bas2. 激活菜单栏的快捷键是：AA、 F10B、 F4C、 F5D、 Ctrl3. 当我们输入代码时，Visual Basic可以自动检测__A_______错误。

A、语法错误B、编译错误C、运行错误D、逻辑错误4. 下列方法中不能退出Visual Basic的是:BA、按Alt+Q组合键B、按下Alt+F组合键，然后按Esc键C、打开“文件”菜单，执行“退出”命令D、按F10键，然后按F键，再按X键5. 一个工程必须包含的文件的类型是:BA、*.vbp ,*.frm ,*.frxB、*.vbp ,*.cls, *.basC、*.bas ,*.ocx ,*.resD、*.frm ,*.cls ,*.bas6. 下列可以打开立即窗口的操作是D：A、Ctrl+DB、Ctrl+EC、Ctrl+FD、Ctrl+G7. 刚建立一个新的标准EXE工程后，出现在工具箱中的控件是：CA、CommonDialogB、ListViewC、TextBoxD、Toolbar8. Visual Basic窗体设计器的主要功能是：AA、建立用户界面B、编写源程序代码C、画图D、显示文字9. 下列可以启动Visual Basic的方法是:DA、打开“我的电脑”，找到存放Visual Basic所在系统文件的硬盘及文件夹，双击“VB6.exe”图标B、在DOS窗口中，键入Visual Basic的路径，执行Visual Basic可执行文件C、利用“开始”菜单中的“程序”命令可启动Visual BasicD、 A) 和C)10. 资源文件的扩展名为_____A____。

A、.resB、.frmC、.vbpD、.bas11. 在Visual Basic中，要强制用户对所用的变量进行显式声明，这可以在哪里设置:CA、“属性”对话框B、“程序代码”窗口C、“选项”对话框D、对象浏览器12. 下列可以打开文件对话框的操作是:AA、Ctrl+DB、Ctrl+EC、Ctrl+FD、Ctrl+G13. Visual Basic集成的主窗口中不包括：AA、属性窗口B、标题栏C、菜单栏D、工具栏14. VB的启动有多种方法，下面不能启动VB的是:DA、使用“开始”菜单中的“程序”命令B、使用“开始”菜单中的“运行”命令，在弹出的对话框中输入VB启动文件的名字C、使用“我的电脑”，在VB所在硬盘驱动器中找到相应的VB文件夹D、先打开VB的“文件”菜单，再按Zlt+Q组合键15. 创建VB应用程序的主要步骤是：①创建应用程序界面②设置控件③设置属性④编写代码，其中正确的步骤是:AA、①③④B、①②④C、②③④D、①②③④16. Microsoft Visual Basic 6．0包括三种版本，其中不包括：AA、通用版B、企业版C、学习版D、专业版17. Visual Basic中窗体文件的扩展名是：BA、VBPB、FRMC、VBWD、PDM18. 在Visual Basic的集成开发环境中不能执行程序的方法是：A、按F8键B、按F5键C、按F9键D、按Shift+F819. 通过以下____A____窗口可以在设计时直观的调整窗体在屏幕上的位置。

vb基础知识第一章试题及答案一、选择题（每题2分，共20分）1. Visual Basic的简称是什么？A. VBB. VBAC. VBSD. VBScript答案：A2. VB中用于声明变量的关键字是？A. DimB. ConstC. SubD. Function答案：A3. 下列哪个选项是VB中的字符串数据类型？A. IntegerB. StringC. DateD. Boolean答案：B4. VB中用于循环结构的关键字是？A. ForB. NextC. DoD. Loop答案：A5. VB中用于条件判断的关键字是？A. IfB. ThenC. ElseD. All of the above答案：D6. 在VB中，如何声明一个名为“myVar”的整型变量？A. Dim myVar As IntegerB. Declare myVar As IntegerC. Integer myVarD. Var myVar As Integer答案：A7. VB中用于定义函数的关键字是？A. FunctionB. SubC. ProcedureD. Method答案：A8. 在VB中，如何将文本框（TextBox）的文本内容赋值给一个字符串变量？A. Dim text As String = TextBox.TextB. Dim text As String = TextBox.TextC. Dim text As String = TextBox.TextD. Dim text As String = TextBox.Text答案：A9. VB中用于退出循环的关键字是？A. ExitB. BreakC. ContinueD. Return答案：A10. 在VB中，如何调用一个名为“myFunction”的函数？A. myFunction()B. Call myFunctionC. myFunctionD. Call myFunction()答案：D二、填空题（每题2分，共20分）1. 在VB中，声明一个名为“count”的整型变量，其初始值为10，应使用语句________。

Vb第一章练习一.填空题1.VB是_____________公司研制的开发软件的产品.2.VB是在________________环境下开发软件的产品3.VB的可视化是指便于开发具有__________用户界面的应用程序.4.VB便于开发图形用户界面的应用程序,其原因是不需要___________________________________________,而只需____________________________________________________________.5.VB是在原有____________语言的基础上进一步发展而来的.6.VB版本的发展7.目前使用广泛的是____________版本,使用它不仅可以设计标准的WINDOWS程序,也可以进行_______________的设计和编写___________方面的程序.8.VB从 5.0版本开始,又包含了3个版本.分别为_______________.____________.________________9._________版VB是VB的基础版本，主要是为_________者了解如何在WINDOWS环境下开发应用程序而设计的. 10.__________版VB为专业编程人员提供了一整功能完备的开发工具.11.__________版VB可供专业编程人员开发功能强大的应用程序.12.VB的五大特点分别是:⑴______________________________________⑵______________________________________⑶______________________________________⑷_______________________________________⑸_______________________________________13.VB编制的程序都是面向________14.VB编制的每段程序的执行都需要_____________的驱动.15.VB是在结构化的BASIC语言基础上发展起来的,所以它也同样具有三种程序设计结构即_______________._____________._______________ 16.VB提供的三种利用WINDOWS资源的技术是___________________.______________._______________17.VB具有很强的数据库__________功能.18.工程是指用于创建军一个应用程序的所有______的集合.19.窗体设计器的主要作用是__________________________20.与传统的程序设计语言相比,VB最突出的特点是______________二.选择题1.启动VB后,首先显示”新建工程”对话框,系统默认选择________项.A.标准EXEB.ACTIVEX EXEC.VB 应用程序向导D.ACTIVEX控件2.下列哪项不是标题栏中的项目_________A.控制菜单B.当前激活的工程名C.当前工作模式D.工具箱3.通过菜单栏中_______菜单命令可以打开VB中的各种窗口(如:对象窗口.属性窗口等)A.文件B.视图C.格式D.工程4. 通过菜单栏中_______菜单命令可以添加窗体.A.文件B.视图C.格式D.工程5. 通过菜单栏中_______菜单命令可以调整多个选中控件的布局.A.文件B.视图C.格式D.工程6. 通过菜单栏中_______菜单命令可以启动应用程序.A.运行B.视图C.格式D.工程7.下列可以打开属性窗口的组合键是_________A.ALT+QB.CTRL+GC.SHIFT+F7D.F4E.F78.下列可以打开立即窗口的组合键是_________A.ALT+QB.CTRL+GC.SHIFT+F7D.F4E.F79. 下列可以打开代码窗口的组合键是_________A.ALT+QB.CTRL+GC.SHIFT+F7D.F4E.F710. 下列可以打开对象窗口的组合键是_________ A.ALT+Q B.CTRL+G C.SHIFT+F7 D.F4 E.F710. 下列可以退出VB的组合键是_________A.ALT+QB.CTRL+GC.SHIFT+F7D.F4E.F711.通过菜单栏中_______菜单命令可以显示/隐藏工具栏及工具箱.A.文件B.视图C.格式D.工程12.不可以打开对象窗口选项是_________A.SHIFT+F7B.双击工程管理器窗口中的对应的窗体(Form)文件.C.单击工程管理器窗口中的“查看对象”按钮D. 单击文件菜单中的“对象窗口”菜单命令。

vb课后习题参考答案第一章习题参考答案一、填空题1、对象事件驱动2、编译运行模式解释运行模式二、简答题1、简述VB的特点。

答：①可视化的程序设计方法②面向对象的程序设计思想③事件驱动的编程机制④结构化的程序设计语言⑤高度的可扩充性⑥强大的数据库访问能力⑦支持动态数据交换⑧支持对象链接与嵌入2、简述VB的安装过程。

答：①向光驱中放入VB安装光盘；②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe；③根据提示逐一回答问题，并点击“下一步”；④点击“完成”；2、如何启动VB。

答：三种方法：①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击；②双击桌面上的VB6.0快捷图标；③在“开始”菜单的运行对话框中输入命令来启动VB；第二章习题参考答案一、选择题：1-10、DCACD BCBBC11-20、BADCA BBAAB21-29、AACBB CDDC二、填空题1．窗体、控件2．属性值3．属性窗口设置、代码窗口设置4．事件过程5．对象名、下划线、事件名6．Form_Click第三章习题参考答案一、选择题1、B2、C3、A4、B5、A6、C7、C二、填空题1、11字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。

String、Byte、Integer、Long、Single、Double、Currency、Boolean、Date、Object、Variant2、双引号(英文)、#3、ASCII、1、25、&、+、+6、Now()、Time、日期型三、解答题1、(3)2、(1 )3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量（7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度）4、315、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y)（3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c))6、7、（1）13 （2）17（3）#1999-11-12# （4）zxy123ABC8、（1）19 （2）8.16666666666667（3）5．25 （4）29、（1）-4 （2）2 . 82842712474619 （3）-3 （4）49 （5）”hello” （6）He7）16 （8）“-459.65” （9）510、（4）11、（2）12、（4）第四章习题参考答案一、选择题：1—7: DAABBCD二、填空题1．500.00%2．将字号扩大为原来的二倍3． B三、编程题（略）1．文本框、标签和命令按钮的名称分别为text1、label1、command1Private Sub Command1_Click()Label1.caption=text1.textCommand1.caption=text1.textEnd Sub2．单价、数量、折扣和应付款对应的文本框的名称分别为：text1、text2、text3和text4，计算和清除命令按钮的名称分别为：command1和command2。

一、填空题1、Visual Basic模块分为_________,_________,__________3种类型。

2、代码窗口分为左右两栏，左边一栏称为__________，右边一栏称为___________。

3、在Visual Basic中，从________菜单中选择__________命令可运行应用程序。

4、保存Visual Basic应用程序时，窗体文件和工程文件的扩展名分别为_________和 ________。

5、显示属性窗口，可选择________菜单下的________命令。

6、Visual Basic有三种工作模式，分别为__________，__________，__________。

7、Visual Basic集成开发环境主要有六个窗口，分别为_______,_________,__________,__________,___________,___________ __ 。

8、Visual Basic主窗口主要以___________和________两种形式来提供各种操作功能。

9、创建用户界面的用到对象可分为___________和_________两种。

10、Visual Basic中对象的事件可由__________或________触发。

11、Visual Basic编程可分为三个步骤：①________________;②_____________;③________________。

12、用户界面由__________和 _________组成。

13、一个窗体中最多可容纳_________个控件。

14、窗体模块文件扩展名为__________，标准模块文件扩展名为____________，类模块文件扩展为____________。

15、对象的三要素是________，_________，________。

16、在窗体中新建对象的方法有两种分别是①________________;②_____________。