VB第八章自测题及答案

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属性判断是否选中该项。

第八章1．Sub过程与Function过程的主要区别是 BA．Sub过程可以通过Call语句调用，而Function过程不可以B．Sub过程不能通过过程名返回值，而Function过程可以C．Sub过程与Function过程的参数传递方式不一样D．Function过程只能返回1个值，而Sub过程可以返回多个值2．以下叙述中错误的是C．。

A．在Sub过程中可以调用Function过程B．可以在程序的任何地方调用以Public声明的过程C．在Sub过程中可以嵌套定义Function过程D．用Static声明的过程中的局部变量都是Stati变量3．以下关于函数过程的叙述中，正确的是A 。

A．函数过程虚参的类型与函数返回值的类型没有关系B．在函数过程中，过程的返回值可以有多个C．当数组作为函数过程的参数时，既能以按值方式传递，也能以按址方式传递D．若不指明函数过程参数的类型，则该参数没有数据类型4．以下叙述中错误的是B 。

在VB应用程序中，A．过程的定义不可以嵌套，但过程的调用可以嵌套B．过程的定义可以嵌套，但过程的调用不能嵌套C．程序设计人员不能任意指定事件过程的名称D．在Function过程中可以Sub过程5. 下列描述中正确的是（A ）（A）VB只能通过调用Sub过程(B)Sub过程可以嵌套定义也可以嵌套调（C）可以在Sub过程中定义1个Function过程，但不能定义Sub过程（D）Sub过程和Function过程都必须带返回值6.下列叙述中正确的是（（B））（A）一个Sub过程至少要有一个Exit Sub语句（B）一个Sub过程必须有一个End Sub语句（C）可以在Sub过程中定义一个Function过程，但不能定义Sub过程（D）调用一个Function过程可以获得多个返回值7．以下语句用来定义过程subP，其中正确的是 D 。

A．Dim Sub subP(x , y) B．Public subP(x , y)C．Private Sub subP(x , y) As Integer D．Sub subP(x , y)8.在窗体上放置2个标签和一个命令按钮，其名称分别为Label1. 、Label2、command1 Private Sub Command1_Click()a = Val(Label2.Caption)Call func(Label1, a)Label2.Caption = aEnd SubPrivate Sub Form_Load()Label1.Caption = "ABCDE"Label2.Caption = 10End SubPrivate Sub func(L As Label, ByVal X As Integer)L.Caption = "1234"a = a * aEnd Sub程序运行后，单击命令按钮在2个标签中显示的内容分别是1234 10 9. Option Base 1Sub subp(b() As Integer)For i = 1 To 3b(i) = 3 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(3) As Integerarr = Array(8, 4, 3)For i = 1 To 3a(i) = arr(i)Next isubp a()For i = 1 To 3Print a(i)Next iEnd Sub运行程序后，在窗体上输出的内容为（A）A）3 6 9 B）8 4 3 C）9 6 3 D）3 4 8 10. Function func(a As Integer, b As Integer) As IntegerStatic x As Integer, y As Integerx = 0: y = 2y = y + x + 1: x = y + a + bfunc = xEnd FunctionPrivate Sub Command1_Click()Static k As Integer, m As IntegerDim p As Integerk = 5: m = 2p = func(k, m)Print pp = func(k, m)Print pEnd Sub输出结果是10 1011. Sub s1(ByVal x As Integer, ByVal y As Integer)Dim t As Integert = x: x = y: y = tEnd SubPrivate Sub Command1_Click()Dim a As Integer, b As Integera = 10:b = 30s1 a, bPrint "a="; a; "b="; bEnd Sub运行程序后，在窗体上输出的内容为（C）A）a = 30 b = 10B）a = 30 b = 30C）a = 10 b = 30D）a = 10 b = 1012. Sub s(x As Single, y As Single)t = x: x = t / y: y = t Mod yEnd SubPrivate Sub Command1_Click()Dim a As Single, b As Singlea = 5:b = 4s a, bPrint a; bEnd Sub输出结果1.25 113. Function subl(a As Integer, ByVal b As Integer) As Integera = Val(b)subl = aPrint sublEnd FunctionPrivate Sub Command1_Click()Call subl(-15.1, 2.54)End Sub运行程序后，在窗体上输出的内容为（A）A）3 B）2 C）-15 D）提示错误运行结果3 14. 假定有以下两个过程：Sub S1(ByVal x As Integer, ByVal y As Integer)Dim t As Integert=x: x=y: y=tEnd Sub SubS2(x As Integer, y As Integer)Dim t As Integert=x: x=y: y=tEnd Sub则以下说法中正确的是(B )A．用过程S1可以实现交换两个变量值的操作，S2不能实现B．用过程S2可以实现交换两个变量值的操作，S1不能实现C．用过程S1和S2都可以实现交换两个变量值的操作D．用过程S1和S2都不能实现交换两个变量值的操作15.下列关于过程及过程参数的描述中，错误的是（C ）A．过程的参数可以是控件名称B．用数组作为过程的参数时，使用的是“传地址”方式C．只有函数过程能够将过程中处理的信息传回调用的程序中D．窗体可以作为过程的参数16.以下说法正确的是（ D ）A）事件过程也是过程，与通用过程完全一样B）事件过程是程序员编写的各种子过程C）事件过程通常放在标准模块中D）事件过程是用来处理由用户操作或系统激发的事件的代码17. 执行“工程”菜单中的（D ）命令可以添加一个标准模块。

一、判断题1. V2. X 9. X 10. V3.X4.V 5.V 6. X 7. X8. V二、选择题1. C2. C3 .B4.D 5.B 6. C 7. B8. A三、填空题1.关闭文件2.不能3.write4. Close四、程序阅读题程序 1. y= 1 a= 1y= 3 a= 2y= 6 a= 3y= 10 a= 4程序2.NO. 1NO. 2NO. 3NO. 434711程序3.窗体：36文件：125 16 9 4 14 9 16 25 36程序4.256487程序5.17111321314851五、程序填空题注意：本大题只要求掌握前2道！1. (1) Dim n As Integer (2) Commondialogl,FileName (3) Output (4) End2. (1) Output (2) EOF(l) (3) 0 (4) "temp.dat" As "e:\al.dat"3. (1) Pl.ScaleMode=6 (2) Y1=Y (3) vbYellow, B (4) Write #1, XI, Yl, X, Y 注意：第3小题与第六大题第4小题非常类似4. (1) Input (2) Text 1.text (3) Listl.Listindex (4) Command4_Click5. (1) Append (2) bz = false (3) Write #2, xm, xh, m, e (4) "temp" As "aaa.txt"六、程序设计题注意：本大题不要求，仅供感兴趣的同学参考!As #3 Inpu t k = 0 #1, xm, xh,cl,c2 c3，读入一行数据，一行记录一个学生If I f cl c 2 60 60 ThenThen，k 记录当前学生不及格的If c 3 60 The n k = k k < 2 Then'不及格科数kv2表示pass If Write #3, xm, xh, cl r c2rc3 cl As Byte1.界面设计如图8-16和8-17所示，程序设计如下：Private Sub Commandl_Click()Dim i As Integer, j As Integer, a(4, 5) As Single, max As Single Open n aaa. txt n For Input As #1，开打aaa. txt 读入所有数据到二维数组a For i = 1 To 4For j = 1 To 4Input #1, a (i, j)Next jNext iClose #1Open "bbb.txt n For Output As #1For i = 1 To 4max = a (i z 1)For j = 2 To 4 '求得第i 行的最大绝对值并存放于max 中 If Abs(a(i f j)) > Abs(max) Then max = a(i, j) Next jFor j = 1 To 4，将第i 行上的所有数都除以maxa (i, j) = a (i, j) / maxIf j < 4 Then Write #1, a(i, j), Else Write #1, a(i A j)Next jNext iClose #1End Sub2. 界面设计如图8-18所示，程序设计如下:Private Sub Commandl_Click()Dim xm As String, xh As String,Dim k As Byte, c2 As Byte, c3 As Byte Open "score.txt n For Input As #1Open "bad.txt" For Output As #2Open "pass.txt n For Output Do While Not EOF(1)Else '不及格科数k>=2表示badWrite #2r xm, xh, cl, c2, c3End IfLoop Close ，利用该句可一次性关闭上述所有文件Else3. 界面设计如图8-19所示，程序设计如下：Private Sub Commandl_Click()Dim me As String, lb As String, pp As String, si As IntegerOpen "kucun.txt n For Input As #1Open "temp.txt n For Output As #2Do While Not EOF(1)Input #1, me, lb, pp, si ，sJL 记录当前商品的库存量，为0的商品须删除If si <> 0 Then Write #2f me, lb A pp, siLoopCloseKill "kucun.txt 1*Name "temp.txt n As "kucun.txt”End Sub4. 界面设计如图8-20、8-21和8-22所示，程序设计如下：Dim xl As Single, yl As Single, x2 As Single, y2 As Single, k As Byte Private Sub Commandl_Click()Open " record. txt ** For Input As #1Do While Not EOF(1)Input #l f k, xl, yl, x2, y2If k = 1 ThenP2.Line (xl r yl)-(x2, y2)ElseP2.Line (xl r yl)-(x2, y2)r , BEnd IfLoopClose #1End SubPrivate Sub Pl_MouseDown(Button As Integer, Shift As Integer A _X As Single, Y As Single) xl = X: yl = YEnd SubPrivate Sub Pl_MouseUp(Button As Integer, Shift As Integer, _X As Single, Y As Single)Open "record. txt n For Append As #1 ，记录图形类别和两个点的坐标If Optionl.Value = True Then '图形类别1--直线Pl.Line (xl r yl)-(X, Y) Write #1, 1, xl r yl, X, Y'图形类别2--矩形 Pl.Line (xl, yl)-(X, Y), , B Write #1, 2r xl, yl, X, YClose #1End Sub5.界面设计如图8-23〜26所示，程序设计如下：Private Sub Commandl_Click() ，将:List 1中选中的姓名保存到bbb. txt中Dim i As IntegerOpen n bbb.txt" For Output As #1For i = 0 To Listl.ListCount - 1If Listl.Selected(i) Then Print #1, Listl.List(i)Next iClose #1End SubPrivate Sub Form_Load() '将所aaa.txt中所有姓名加入到listlDim name As StringOpen n aaa.txt n For Input As #1Do While Not EOF(1)Input #1, nameListl.Additem nameLoopClose #1End Sub。

第八章程序界面设计第一题：是非题（共1（）分，每项1分）1.在-个窗体代码屮不能使用Unload语句來卸载本窗体，即一个窗体只能由其他的窗体卸载。

4A.对B.错J2.窗休的Enabled屈性设为False时，窗体题的按钮、文本框控件就不会对川户的操作做出反应。

A.对V 8.错3.菜单项的快捷键不能任意设置。

6A.対JB.错4.每个菜单项都是一个控件，与其他控件一样也有白己的屈性和事件。

7A.对JB.错5.菜单选项“Enabled”属性与“Visible”属性是相同的。

5A.对B.错J6.窗体的Enabled属性设为False时，窗体题的按钮、文本椎控件就不会対用八的操作做出反应。

2A.对JB.错7.定义菜单项时，可以不设査分隔线的菜单项控件名称。

7A.对B.错J&普通窗体与子窗体建立的方法是相同的，不同之处是子窗体的MDIChild属性设置为False,而普通窗体的MDIChild属性设置为True。

2A.对VB.错9.除了Click事件Z外，菜单项还能响应其他的事件。

5A.对B.错J10.窗体的Moveabel属性设为False时，不能改变窗体的大小，只能移动窗体。

3A.对B.错J11.显示和隐藏窗体比载入和卸载窗体要快得多。

4A.对V 8.错12.用户在“文件打开”通用对话框中选择一个文件时，对话框控件的FileName属性含有所选文件名字。

4A.对J8.错第二题、单选题（共45分，每项1.5分）1.为减少语句的使用，将一个窗体加载到内存中并显示出来，所使用的语句或方法是o 6A.LoadB.UnloadC.Show JD.Hide2.下列不能打开菜单编辑器的操作是____ o 6A.按Ctrl+EB.单击工具栏中的“菜单编辑器”按钮C.执行“工具”菜单中的“菜单编辑器”命令D.按Shift + Alt + M V3.利用菜单编辑器设计菜单时，如果要在菜单中加入一个分隔符，菜单分隔符的标题必须设置为____ 0 10A.+B.- VC.*D./4.窗体从加载到显示，依次引发的事件冇。

第八章程序调试8.1 程序错误分类ＶB中常见的程序错误可分为编译错误、运行错误和逻辑错误３类。

1.编译错误编译错误也称为语法错误,在编写程序时,如果语句不符合ＶiｓuａｌBasic的语法规则，就会产生这类错误。

例如，输入了不正确的关键字、遗漏了某个必需的标点符号、缺少表达式、类型不匹配或者应该配对的语句没有配对等，都会产生编译错误。

在编写代码或运行程序时，很容易检查出这类错误。

在编写代码时，VB会自动对程序进行语法检查,某些类型的语法错误能够被即时检查出来,并且会弹出一个出错消息框，出错的那一行以高亮度显示。

例如,当输入“I=”后没有接着输入表达式,而是切换到其他行，则会弹出如图8.1所示的消息框。

还有一些类型的语法错误,在编写代码时VB检查不出来，例如,If语句后没有对应的End Ｉｆ语句、输入了错误的属性名等。

在运行程序时,VB将弹出错误消息框，提示用户错误所在,如图８.2所示。

８.２调试工具栏为了调试程序的方便，用户可以使用VＢ的调试工其栏。

在默认情况下,VＢ界面上不显示调试工具栏。

打开【视图】菜单,指向【工具栏】选项，则弹出【工具栏]子菜单，执行其中的【调试】命令即可打开调试工具栏。

其中各按钮的功能如表8.１所示。

８.3 设置断点断点是告诉VB挂起程序执行的一个标记,当程序执行到断点处即暂停程序的执行,进入中断模式,此时可以在【代码】窗口中查看程序内变量、属性的值。

在代码中设置断点是常用的一种调试方法。

在VB中,断点的设置有两种办法：（１)将光标放置在需要设置断点的地方,执行【调试】菜单中的【切换断点】命令或单击调试工具栏中的ｌ切换断点ｌ按钮,即可在该行语句上设置一个断点。

(2）设置断点更简便的办法是,直接在要设置断点的行的左边单击鼠标。

设置了断点的行将以粗体显示,并且在该行左边显示一个黑色的圆点,作为断点的标记。

在代码中可以设置多个断点。

设置完断点后，运行程序，运行到断点处,程序就暂停下来,进入中断模式。

1．向一个顺序文件写数据时，可以Output或Append两种方式打开顺序文件。

二者在执行写操作时何不同。

答：Output和Append都是打开一个文件，对文件进行写操作。

使用Output方式时若文件不存在，新建一个文件写入内容，若文件已存在，重写该文件,文件原内容丢失；使用 Append时若文件不存在，新建一个文件写入内容，若文件已存在，把字符追加到该文件尾部。

2．用Print #语句和用Write #语句向顺序文件写入数据，最大的区别是什么？答：用Print #语句写入数据时，输出表列可以用“，”或“；”分隔，用“，”时输出表列呈标准格式，用“；”时输出表列呈紧凑格式；用Write #语句写入数据时，各输出表列只用“，”,紧凑格式输出,并给字符数据加“”。

3．在D盘根目录上用记事本程序建立一个名为Data.txt的数据文件，数据文件的内容为以下数据：37，45，23，84，79，32，66，54，72，19编写程序，从文件中读取上述数据，从小到大进行排序，再将排好序的数据写入新的文件Data1.txt中。

（要求读取的数据和排序结果用文本框显示）答：Option Base 1Dim a() As Integer, i As Integer, j As Integer, temp As IntegerPrivate Sub Command1_Click()Open "C:\Data.txt" For Input As 1Do While Not EOF(1)i = i + 1ReDim Preserve a(i)Input #1, a(i)Text1.Text = Text1.Text & Str(a(i)) LoopFor i = 1 To UBound(a) - 1For j = i + 1 To UBound(a)If a(i) > a(j) Thentemp = a(i)a(i) = a(j)a(j) = tempEnd IfNext jNext iOpen "C:\data1.txt" For Output As #2For i = 1 To UBound(a)Print #2, a(i);Text2.Text = Text2.Text & Str(a(i)) Next iEnd Sub4．有一个名为“Sorce”的文本文件，每行记录一个学生的考试成绩，数据排列形式是：学号，姓名，英语成绩，数学成绩，计算机成绩。

《大学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、字节。

"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，才能承受焦点。

第1章认识Access2003一、选择题1. C2. B3. C4. A5. D6. B7. A二、填空题1. Office2003办公软件，数据库管理2. 标题栏，菜单栏，工具栏，工作区，状态栏，任务窗格3. 一条记录，一个字段4. 一对一，一对多，多对多5. 查看，分析，更改数据，数据来源6. 打印输出7. Internet三、判断题1．× 2．√ 3．× 4．√ 5．√6．× 7．× 8．√ 9．× 10.√四、简答题1．启动Access2003的方法有3种：通过“开始”菜单启动；通过桌面快捷方式启动；通过“开始”菜单中的Access2003选项启动。

2．退出Access2003的方法有5种：单击主窗口的“关闭”按钮；在菜单栏中选择“文件→退出”命令；双击控制菜单图标；单击控制菜单图标，在弹出的下拉菜单中单击“关闭”命令；直接按Alt+F4键。

3．使用Access2003的帮助系统主要有3种方法：使用“帮助”任务窗格；使用“Office 助手”；使用上下文帮助。

4． Access2003数据库的对象包括表、查询、窗体、报表、数据页、宏和模块7种。

5．通过阅读“罗斯文”示例数据库可以帮助用户理解Access数据库的相关概念，掌握Access2003的相关操作。

第2章数据库和表的创建一、选择题1．D 2．C 3．D 4．C 5．D 6．B 7．B二、填空题1．数据库2．设计，数据表3． OLE对象4．是/否5．主键6． 0000三、判断题1．√ 2．× 3．√ 4．× 5．×6．√ 7．× 8．√ 9．× 10．√四、简答题1．创建数据库有三种方法：使用空数据库、使用“本机上的模板”和利用“Office Online 模板”创建数据库；创建表有三种方法：使用“向导”、使用“通过输入数据创建表”和使用“表设计器”。

考试题型一、单项选择题（每题1分，共35分）二、判断题（每题1分，共15分；正确的打"，错误的打x。

）三、填空题（每空1分，共10分）四、读程序写出结果（每题5分，共20分）五、程序填空（每空2分，共10分）六、编程题（每小题10分，共10分）2006年4月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计11. 以下关于Visual Basic特点的叙述中，错误的是A）Visual Basic是采用事件驱动编程机制的语言B）Visual Basic程序既可以编译运行，也可以解释运行C）构成Visual Basic程序的多个过程没有固定的执行顺序D）Visual Basic程序不是结构化程序，不具备结构化程序的三种基本结构12. 以下叙述中，错误的是A）一个Visual Basic应用程序可以含有多个标准模块文件B）一个Visual Basic工程可以含有多个窗体文件D）标准模块文件的扩展名是.bas13. 以下叙述中，错误的是A）在Visual Basic中，对象所能响应的事件是由系统定义的C）Visual Basic中允许不同对象使用相同名称的方法D）Visual Basic中的对象具有自己的属性和方法14. 设有如下语句：Dim a,b As In tegerC= "VisualBasic ”D=#7/20/2005#以下关于这段代码的叙述中，错误的是A）a被定义为Integer类型变量B） b被定义为Integer类型变量C） c中的数据是字符串D）d中的数据是日期类型15. 以下能从字符串"VisualBasic "中直接取出子字符串"Basic"的函数是A）Left |B） Mid | C） Stri ng D） In str16. 设a=4,b=3,c=2,d=1下列表达式的值是a>b+1 Or c<d And b Mod cA) True B) 1 C) -1 D) 017.以下可以作为Visual Basic变量名的是A) A#A B)counstA C) 3A D) ?AA18.设x-4,y-6,则以下不能在窗体上显示出A=10 的语句是C） Print “ A= ” +Str（x+y）D） Print “ A= ” & x+y19. 假定有如下的命令按钮（名称为Comma ndl）事件过程：Private Sub Comma nd1_Click（）X=lnputBox（输入：：“'输入整数”）MsgBox ”输入的数据是：”，，”输入数据：”+XEnd Sub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是A）x的值是数值10B）输入对话框的标题是“输入整数“C）信息框的标题是“输入数据：10 “D）信息框中显示的是“输入的数据是：“20. 在窗体上画1个命令按钮（名称为Command1 ）和1个文本框（名称为Text1），然后编写如下事件过程：Private Sub Comma nd1_Click()X=Val(Text1.Text)Select Case xCase 1,3Y=x*xCase Is>=10,Is<=-10Y=xCase -10 To 10Y=-xEnd SelectEnd Sub程序运行后，在文本框中输入3,然后单击命令按钮，则以下叙述中正确的是A) 执行Y=x*x B)执行Y=-xC)先执行Y=x*x，再执行Y=-x D)程序出错21. 设有命令按钮Comma nd1的单击事件过程，代码如下：Private Sub Comma nd1_Click()Dim a(30) As In tegerFor i=1 to 30a(i)=I nt(R nd*100)NextFor Each arritem In aIf arrItem Mod 7=0 Then Print arrItem;If arrItem >90 Then Exit ForNextEnd Sub对于该事件过程，以下程序中错误的是B) 语句For Each arrltem In a 有语法错误C) ........................................... If arrltem Mod 7=0 语句的功能是输出数组中能够被........................... 7整除的数D) ................................ If arrItem >90 语句的作用是当数组元素的值大于....................... 90时退出For循环22. 设有命令按钮Comma nd1的单击事件过程，代码如下：Private Sub Comma nd1_Click()Dim a(3,3) As In tegerFor i=1 to 3For j=1 to 3a(i,j)=i*j+iNext jNext iSum=0For i=1 to 3Sum=Sum+a(i,4-i)Next iPrint SumEnd Sub运行程序，单击命令按钮，输出结果是A) 20 B) 7 | C) 16 ~| D) 1723. 在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Comma nd1_Click()a=0For i=1 to 2For j=1 to 4If j Mod 2<>0 Thena=a-1End Ifa=a+1Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，输出结果是A)0 B) 2 C) 3 | D)424. 窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1,程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图2所示。

VB 模拟训练八12.在程序运行中，要想使可操作的按钮变成不可操作，则应设置为False 的属性是（）。

(A) Visible (B) Enabled (C) Canceled (D)Default14.在V isual Basic 中，要将一个窗体装载到内存进行预处理，但不显示，应该使用那种语句：（） (A) Show (B) Hide (C) Load (D) Unload15.在V isual Basic 中，要将一个窗体从内存中释放，应使用（）语句。

(A) Show (B) Hide (C)Load (D)Unload 16.图像框中的stretch 属性为true 时，其作用是（）。

(A) 只能自动设定图像框长度 (B) 图形自动调整大小以适应图像控件 (C)只能自动缩小图象 (D)只能自动扩大图像17.在运行程序的过程中，当执行“复制”（mnuEditCopy ）命令时，使“粘贴”（mnuEditPaste ）命令变为可用，则应做如下处理（）。

(A) Private Sub mnuEditPaste_Click() …mnuEditPaste.Enabled = True End Sub(B) Private Sub mnuEditCopy_Click() …mnuEditPaste.Enabled = True End Sub19.图象框（image ）和图片框(Picture)在使用时有所不同，以下叙述中正确的是（）。

(A) 图片框比图像框占内存少 (B) 图象框内还可包括其他控件 (C) 图片框有Stretch 属性而图象框没有 (D) 图像框有Stretch 属性而图片框没有 21.在窗体上面画一个命令按钮，然后编写如下事件过程： Option Base 1Private Sub CommAnd1_Click() Dim aa = Array(1, 2, 3, 4) j = 1For i = 4 To step - 1 s = s + a(i) * j j = j * 10 Next iPrint s End Sub运行上面的程序，单击命令按钮，其输出结果是（）。

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 应用程序的主体。

第八章后习题参考答案一、单选题1．C 2. D 3. C 4. B 5. B二、填空题1．通用2．过程，Static ID As Integer3．模块级4．可变参数三、程序阅读题1．50 10025 10012 1002．1 2 44 7 1212 20 33四、思考题1．出错。

2．出错，因为赋值号的左边应为函数名Fact，不能为函数调用。

实验：1．Private Sub DToB(A As Long)Dim B As String, a1 As Longa1 = AB = ""Do While A <> 0B = (A Mod 2) & BA = A \ 2LoopPrint "十进制数"; a1; "转换二进制数为"; BEnd SubPrivate Sub Command1_Click()Dim A As LongA = InputBox("请输入十进制数")DToB (A)End Sub2．Option ExplicitFunction Prime(ByV al A As Long) As BooleanDim I As IntegerFor I = 2 To Sqr(A)If A Mod I = 0 Then Exit ForNext IIf I > Sqr(A) ThenPrime = TrueElsePrime = FalseEnd IfEnd FunctionPrivate Sub Command1_Click()Dim A As Long, B As LongDim N As LongDoN = V al(InputBox("请输入一个偶数"))Loop While N / 2 <> N \ 2 Or N < 6For A = 3 To N / 2 Step 2If Prime(A) ThenB = N - AIf Prime(B) ThenMsgBox Str(N) & "=" & Str(A) & "+" & Str(B)Exit ForEnd IfEnd IfNext AEnd Sub3．方法1，使用模块级变量，其值在各个过程中可用，且在静态存储区，应用程序结束运行时才释放。

=第二章标准控件和属性1．下列可以激活属性窗口的操作是（ D ）A）用鼠标双击窗体的任何部位 B）执行‘工程’菜单中的‘属性窗口’命令 C）按Ctrl+F4键 D）按F4键2．确定一个控件在窗体上的位置的属性是（ D ）A）Width或Height B）Width和Height C）Top或Left D）Top和Left3．确定一个窗体或控件的大小的属性是（ B ）A）Width或Height B）Width和Height C）Top或Left D）Top和Left4．在Visual Basic中，所有标准控件都具有的属性是( B )。

【2013年9月考试真题】A) Caption B) Name C) Text D) Value参考答案：B【解析】VB标准控件中不同控件具有不同属性，有的相同有的不同，但都具有Name属性。

故选B。

5．为了让计时器控件每隔10秒产生了一个Timer事件，应把Interval属性设置为（ B ）A) 1000 B) 10000 C) 10 D) 1006．下面关于单选按钮和复选框的叙述中正确的是（ D ）A) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为2B) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为TrueC) 单选按钮被选中则它的Value属性为1；复选框被选中则它的Value属性为1D) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为17．将文本框的ScrollBar设置为2，文本框中却没有垂直滚动条，其原因为（ B ）A) 文本框的Locked属性值为True B) 文本框的MultiLine属性值为FalseC) 文本框的MultiLine属性值为True D) 文本框中没有内容第三章简单程序设计语句1.在面向对象的程序设计中，可被对象识别的动作称为( B )。

第八章带传动(习题及答案)精品第8章带传动一、选择填空：1．带传动主要依靠来传递运动和动力的。

A．带与带轮接触面之间的正压力Ｂ．带的紧边压力Ｃ．带与带轮接触面之间的摩擦力Ｄ．带的初拉力２．带传动不能保证精确的传动比，其原因是。

A．带容易变形和磨损B．带在带轮上打滑C．带的弹性滑动Ｄ．带的材料不遵守虎克定律３．带传动的设计准则为。

Ａ．保证带传动时，带不被拉断Ｂ．保证带传动在不打滑的条件下，带不磨损Ｃ．保证带在不打滑的条件下，具有足够的疲劳强度４．普通Ｖ带带轮的槽形角随带轮直径的减小而。

Ａ．增大Ｂ．减小Ｃ．不变５．设计Ｖ带传动时发现Ｖ带根数过多，可采用来解决。

Ａ．增大传动比Ｂ．加大传动中心距Ｃ。

选用更大截面型号的Ｖ带６．速比不等于１的带传动，当工作能力不足时，传动带将在打滑。

Ａ．小轮表面Ｂ．打轮表面Ｃ．两轮表面同时７．带传动采用张紧轮的目的是。

Ａ．减轻带的弹性滑动Ｂ．提高带的寿命Ｃ．改变带的运动方向Ｃ．调节带的初拉力８．在设计Ｖ带传动中，选取小带轮直径d1＞dmin，dmin主要依据选取。

Ａ．带的型号Ｂ．带的线速度Ｃ．传动比Ｄ．高速轴的转速９．带传动在工作时产生弹性滑动，是由于。

Ａ．带不是绝对挠性体Ｂ．带绕过带轮时产生离心力Ｃ．带的松边与紧边拉力不等10．确定单根带所能传递功率的极限值P0的前提条件是。

A．保证带不打滑B．保证带不打滑、不弹性滑动C．保证带不疲劳破坏D．保证带不打滑、不疲劳破坏11．带传动的挠性摩擦欧拉公式推导的前提条件是。

A．带即将打滑B．忽略带的离心力C．带即将打滑，且忽略带的离心力D．带即将打滑，且忽略带的弯曲应力12．带传动中，用方法可以使小带轮包角α1加大。

A．增大小带轮直径d1B．减小小带轮直径d1C．增大大带轮直径d2D．减小中心距a13．带传动中紧边拉力为F1，松边拉力为F２，则其传递的有效圆周力为。

Ａ．F1＋F２Ｂ．（F1－F２）/２Ｃ．F1＋F２Ｄ．（F1＋F２）/２14．带传动中，带和带轮打滑。

第八章程序设计VB一、选择题1、使用V isual Basic编程，通常会用到工具箱中的工具，我们把这些具称为（）。

事件B、工具盒C、控件D、窗体2、在VB中的表达式11*3的运算结果值是（）A、3B、11C、33D、1133、当我们编写好一个程序，把它保存起来时，“工程名”是用什么作为扩展名的（）A、*.frmB、*.vbpC、*.basD、*.bat4、下列变量中写法错误的是（）A、abcB、abc123C、endD、sub5、结束当前程序的语句是（）A、quitB、exitC、endD、sub6、如果要把某个图片作为程序窗体的背景，下列方法中最合理的是（）A、直接修改窗体的Picture属性实现插入图片B、在窗体中插入Image控件，再修改该控件的Picture属性插入图片C、在窗体中插入PictureBox控件，再修改该控件的Picture属性插入图片D、选择“插入” “图片”菜单命令实现7、VB程序设计的完整步骤是（）A、可视性程序设计B、代码程序设计C、可视性程序设计和代码程序设计D、界面设计8、在V isual Basic环境下，当写一个新的Visual Basic程序时，所何等的第一件事是（）。

A、编写代码B、新建一个工程C、打开属性窗口D、进入VB环境9、要求改变窗体的标题时，应当在属性窗口中改变的属性是（）A、CaptionB、NameC、TextD、Label10、窗体能响应的事件是（）。

A、ActiveFromB、DriveC、LoadD、Change11、在以下事件过程中，Private表示（）Private sub lblabAbc_Change()……End SubA、此过程可以被任何其它过程调用B、此过程只可以被本窗体模块中的其它过程调用C、此过程不可以被任何其它过程调用D、此过程只可以被本工程中的其它过程调用12、下列控件中可以自动设置滚动条是（）A、复选框B、框架C、文本框D、标签框13、能够将文本框控件隐藏起来的属性是（）。

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、对象事件驱动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。

《VB程序设计基础与VBA应用》P28 习题一二，单选题1，B 2，B 3，D 4，A 5，D 6，B 7，B 8,C 9,D三, 程序设计题5, Private Sub Command1_Click()Form1.FontName = "宋体"Form1.Print "中文字体宋体"End SubPrivate Sub Command2_Click()Form1.FontName = "楷体_GB2312"Form1.Print "中文字体楷体"End SubPrivate Sub Command3_Click()Form1.FontName = "仿宋_GB2312"Form1.Print "中文字体仿宋"End SubP57 习题二一，判断题对: 1, 3，7，10，14错: 2，4，5，6，8，9，11，12，13二，单选题1， A 2，C 3，C 4，B 5， B6， A 7，B 8，C 9，B 10，C11，C 12，D 13，B 14，A 15，D16，B 17，B 18，C 19，B 20，B21，B 22，D 23，A 24，C 25，B26，A 27，D 28，B三，简答题1. (1) 2 * Cos(alfa) * Sin(alfa/ ( 2 * a )(2) Sqr( s*(s–a)*(s–b )*(s - c))(3) ( A*A + B*C*(X +Y)) / (A+B)(4) ( 2* 3.14159*r +Exp(-5))* Log(x)(5) 1/( x + 1/(y+1) )(6) k / ( 1 + a * Exp(-b*x) )(7) Cos(alfa) ^ 2 + Atn(alfa)(8) Sqr( y^3 + 3 * (a*a+b*b) / (x*x+y*y) )2. (1) (a+b) Mod c (2) Sqr(Abs(x))(3) Int(x) + 1 (4) Int(Rnd *101)+2003。