vb程序设计试卷及答案

vb程序设计试卷及答案（精选8篇）

vb程序设计试卷及答案 第1篇

VB期末考试试卷及答案

一·选择题

1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（B）

A属性、控件和方法

B属性、事件和方法 C窗体、控件和过程 D控件、过程和模块

2.所有控件都有一个共同的属性，这个属性是（C）

A text

B font

C name

D caption

3.下列叙述中错误的是（A）

A 工程文件扩展名是.vbg

B 标准模块文件的扩展名是.bas

C 窗体模块的扩展名是.frm

D 类模块的扩展名是.cls

4.当要编写一个新的Visual Basic程序时，所做的第一件事是（A）

A 新建一个工程

B 编写代码

C 设置属性

D 添加Active X控件

5.下面控件中，没有caption属性的是（B）

A 框架

B 组合框

C 命令按钮

D 复选按钮

6.在文件框中输入字符时，若只显示某个字符，如（*），应设置属性是（B）

A MultiLine

B PasswordChar

C Text

D selText

7.若要将窗体从内存中卸载出去，其实现的方法是（D）

A Show

B Hide

C Load

D UnLoad

8.下列关于过程叙述不正确的是（D）

A 过程的传值调用是将实参的具体值传值传递给形参

B 过程的传址调用是将实参在内存的地址 传递给形参

C 过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D 无论过程传值调用还是传地址调用，参数传递都是双向的

9.某人创建1个工程，其中的窗体名为Form1，之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是（C）

A 在Form1的Load事件过程中加入语句Load Form2

B 在Form2的Load事件过程中加入语句Form2.Show

C 在“过程属性”对话框中把“启动对象”设置为Form2

D 在Form2的TabIndex属性设置为1，把Form1的TabIndex属性设置为2

10.以下关于文件的叙述中，正确的是（B）

A 以Output方式打开一个不存在的文件时，系统将显示出错信息

B 以Append方式打开的文件，既可以进行读操作，也可以进行写操作

C 在随机文件在，每个记录的长度是固定的

D 无论是顺序文件还是随机文件，其打开的语句和打开的方式都是完全相同的 11.设a=6，b=8，c=10 则函数IIf(a

A 10

B 6

C 8

D 12

12.下面程序的执行结果为（B）

I=”1”

:

j=”2”

I=val(i)+val(j)

J=val(“12”)

If i<>j Then print i-j Else printj-i

A 9

B-9

C 12

D 0

13.下面程序的执行结果为（A）

Dim S(10)AS Integer

For i=0 to 10

S(I)=2*i

Next i

Print S(S(3))

A 12

B 6

C 0

D 4 二·程序填空题：

1.在窗体上画一个命令按钮（Command1）和一个标签（Label1），为命令按钮编写以下事件，其功能是求数组中各元素之和，并将结果在标签上显示，请在指定位置填上正确代码将程序补充完整。

Option Base 1

Private Sub Command1_Click()

Dim a(3,2)AS Integer

S =0

For i= 1 to 3

For j= 1 to 2

a(I,j)= i+j

s= 【1】

Next j Next i

【2】

End Sub

2.下面程序的功能是产生10个小于100（不含100）的随机正整数，并统计其中

5的倍数所占比例，请在指定位置填上正确代码将程序补充完整。

Private Sub Command1_Click()

Randomise

Dim a(10)As Integer

For j =1 to 10

a(i)=

【3】

If

【4】

Then k= k+1

Print a(j)

Next j

Print

Print k /10

End Sub

3.以下程序运行后，在Text1中输入任意字符串，单击命令按钮，将Text1中的字符串转换为大写，再将字符串逆置（如ABCD--DCBA），在Text2中显示逆置后的字符串。请在指定位置填上正确代码将程序补充完整。

Private Sub Command1_Click()

St = Ucase(Text1.text)

For i=

【5】

To 1 Step-1

S2= s2+Mid(s1, 【6】, 1)

Text2.text= s2

End Sub

4.Next i设有如下的循环，要求程序运行时执行3次循环，请在指定位置填上正确代码将程序补充完整。

Dim x As Integer

X = 1

Do

x = x+2

Print x

Loop Until

【7】

5.在窗体上画一个组合框（Combo1）、一个列表框（List1）和一个命令按钮（Command1）。下面程序的功能是在组合框中选择一个大学名称，单击命令按钮，则所选大学 名称将添加在列表框中，当组合框中没有要选的大学名称时，输入一个名称，则此大学名称在添加列表框中的同时也会添加到组合框中，请在指定位置填上正确代码将程序补充完整。

Private Sub Form_Load()

Combo1.AddItem”交通大学”

Combo1.AddItem”理工大学”

Combo1.AddItem”财经大学”

Combo1.AddItem”外贸大学”

End Sub

Private Sub Command1_Click()

【8】

Flag=Flase

For i=0 to

【9】

If Combo1.List(i)=Combo1.Text Then

flag=True : Eixt For

End If

Next i

If Not flag

Then

【10】

End Sub

6.下面程序的功能是对数组的元素值用选择法按递增顺序排序，请在指定位置填上正确代码将程序补充完整。

Private Sub Command1_Click()

Dim ia(),i%,max%,imax%.t%

Ia=Array(3,8,5,6,7,4,9)

For i =0 To 5 : imax = i

For j = i+1 To 6

If 【11】

Then

imax =j

Next j

T=ia(i)

:

【12】

:

ia(imax)=t

Next i

For i=0 To 6 : Print ia(i)

:

Next i

End Sub 7.窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c:test.txt，并将文件中的内容（多行文本）显示在文本框中。下面是实现此功能的程序，请在指定位置填上正确代码将程序补充完整。

Private Sub Command1_Click()

Text1=””

Open”c:test.txt” For Input As #1

Do While Not

【13】

Line Input#1,S

Text1.text=Text1.text+

【14】

+chr(13)+chr(10)

Loop

【15】

End Sub

答案： 1.S+a(I,j)

2.Label1 0 = S

3.Int(Rnd*99)

4.a(i)mod 5=0

5.Len(S1)

6.i

7.x=7

8.List1.AddItem Combo1.text

9.3/ListCount

10.Combo1.AddItem Combo1.text

11.a(j)>imax

12.ia(i)=ia(imax)

13.Eof

14.S

15.Close #1

三·阅读程序，在答题纸指定位置写出程序运行结果。

1.以下程序运行后，单击命令按钮，写出程序的运行结果。

Private Sub Command1_Click()

Dim n%,b,t

t =1 : b =1

: n =2

Do While n<=4

If b > 1 Then Exit Do

b = b*n : t = t+b

:

n = n+1

Loop

Print “t=”& t

End Sub 2.在窗体中添加一个命令按钮Command1，并编写如下程序：

Private Sub Command1_Click()

X =InputBox(x)

If x^2<=9 Then y= 1/x

If x^2>9 Then y= x^2+1

If(x^2)-7=9 Then y=x

Print “y=”&y

End Sub

程序运行后，在InputBox中输入4，单击命令按钮，写出程序的运行结果。3.窗体上画一个命令按钮，并编写以下事件过程和子过程：

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x =12 : y = 20

Call Value(x,y)

Print “x=”&x, “y=”&y

End Sub

Private Sub Value(ByVal m As Integer, n As Integer)

m=m*2

：

ｎ=n-5

End Sub

程序运行后，单击命令按钮，写出程序的输出结果。

4.窗体上画一个命令按钮和一个图像框，并编写以下事件过程：

Private Sub Command1_Click()

Dim a(3,3)

For m =1To3

For n= 1 To 3

If n = m Or n = 4 –m Then

a(m,n)=m+n

Else

a(m,n)=0

End If

Picture1.Print a(m,n)

Next n

Picture1.Print

Next m

End Sub

程序运行后，单击命令按钮，图像框中显示的内容是什么? 5.在窗体上画一个列表框和一个命令按钮Command1，然后编写如下程序：

Private Sub Command1_Click()

List1.RemoveItem1

List1.RemoveItem2

End Sub

Private Sub Form_Load()

List1.AddItem”兰州”

List1.AddItem”甘肃”

List1.AddItem”交通”

List1.AddItem”大学”

End Sub 程序运行后，单击命令按钮，写出在列表框中显示的结果。

答案： 1.3

2.4

3.12；15

4.2 0 4；0 4 0；4 0 6 5兰州；大学

四·编写程序：输出（1,100）之间同时被5和7整除的数的个数及其它们的和。

答案：Private Sub Form1_Click()

Dim s%,c%

For i=1 to 100

If i Mod 5=0 And i Mod 7=0

Then

s = s+1

c = c +i

End If

Next i

Print s, c

End Sub

vb程序设计试卷及答案 第2篇

2、信息隐蔽的概念与下述哪一种概念直接相关(B)A.软件结构定义 B.模块独立性 C.模块类型划分 D.模拟耦合度

3、在关系数据库中，用来表示实体之间联系的是(D)A.树结构 B.网结构 C.线性表 D.二维表

4、面向对象的设计方法与传统的的面向过程的方法有本质不同，它的基本原理是(C)A.模拟现实世界中不同事物之间的联系 B.强调模拟现实世界中的算法而不强调概念 C.使用现实世界的概念抽象地思考问题从而自然地解决问题 D.鼓励开发者在软件开发的绝大部分中都用实际领域的概念去思考

5、下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A)A.内模式 B.外模式 C.概念模式 D.逻辑模式

6、数据库系统的核心是(B)A.数据模型 B.数据库管理系统 C.软件工具 D.数据库

7、在结构化方法中，软件功能分解属于下列软件开发中的阶段是(C)注：总体设计也就是概要设计

A.详细设计 B.需求分析 C.总体设计 D.编程调试

8、下面描述中，符合结构化程序设计风格的是(A)A.使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑 B.模块只有一个入口，可以有多个出口 C.注重提高程序的执行效率 D.不使用goto语句

9、在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是(D)A.概要设计 B.详细设计 C.可行性分析 D.需求分析

10、下列叙述中正确的是(C)A.数据库是一个独立的系统，不需要操作系统的支持 B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题 D.数据库系统中，数据的物理结构必须与逻辑结构一致

11、下面概念中，不属于面向对象方法的是(D)A.对象 B.继承 C.类 D.过程调用

12、下面概念中，不属于面向对象方法的是(D)A.对象 B.继承 C.类 D.过程调用

13、下列工具中属于需求分析常用工具的是(D)A.PAD B.PFD C.N-S D.DFD

14、数据库系统的核心是(B)A.数据模型 B.数据库管理系统 C.软件工具 D.数据库

vb程序设计试卷及答案 第3篇

地地导弹地面测试发射系统是一个庞大而协作性极强的系统,涉及到大量的信息交换、操作时机的协同、人员的有序管理。由于仪器多、车辆多、人员多,加上导弹武器系统操作时间的限制,决定了我们不可能经常高频率地组织大量人员对实弹进行实际操作及真实发射,再加上部队人员流动性极强,且设备复杂、造价昂贵。这一切使得日常训练必须用一套训练模拟系统代替真实的测试发射系统。

为此,研制训练模拟系统代替实际操作系统进行操作训练是十分必要的。目前,在部队投入应用的训练模拟系统,一方面对于促进军事训练手段的多元化具有重要意义,另一方面也存在许多问题第一、仅适应于分队训练而不适合于单台仪器或单个专业训练;第二、没有与之相配套的完善的专家系统,没有提供灵活而强大的在线帮助;第三、缺乏导弹弹上各部分工作过程的可视化;第四,由于系统专业化程度高,升级改造比较困难,不具有实时增智功能。

为了改进上述的各项不足,可以建立基于VB 6(MicrosoftVisualBasic 6.0)可视化工具的导弹模拟训练系统。该训练模拟系统具备分专业、分系统及综合训练能力,具有专家系统的功能,具有良好的人机交互界面,而且具有强大的增智功能,使模拟训练系统真正体现出逼真的战场环境。该系统可以由一台计算机独立实现(单机模拟训练系统),也可以是一个分布式系统,在不同地方装上分布式模块或设备,这些模块和设备可以模拟相应的物理功能,每个模块负责自己的一块区域,用来模拟实际的物理现象,所有的模块用网络连接起来,一起送到主控台,从而实现训练的目的。该系统结构简单、标准化程度较高、使用维护方便,具有很好的开发潜力。

1系统简介

1.1系统功能

该系统设计的出发点就是操作训练功能,能代替实装进行各工位的操作训练,在仪表显示、音响、视景和力感等方面,都与实装相同,而且还具有对系统进行发射流程训练、故障设置与诊断、操作示范教学、训练考核评定等多项功能。可以改变导弹分队教学环境落后和训练手段单一的现状,提高训练效率,保证训练质量。

1.2系统组成

本导弹训练模拟系统分为综合训练模拟系统和单机训练模拟系统两大部分。

综合训练模拟系统就是综合运用多种仿真技术,在室内模拟出实际操作环境。综合训练模拟系统主要由主控台、主控计算机、测试仪器和投影仪以及音响设备组成,相互之间通过串口通信技术连接,实现信息交互,系统结构如图1所示。其中,仪器硬件部分外观主要根据组成测试发射系统的各台仪器的实际尺寸和手感进行仿制的,各台仪器内部主要利用成熟的单片机技术进行工作。由8251A可编程的串行接口芯片、波特率发生器、EIA与TTL电平转换器及地址译码电路形成符合RS-485接口标准的通信协议,通过串口与主控计算机相联,实现半双工通讯,进行作业数据交换。

单机训练模拟系统是利用单台计算机模拟硬件设备,包括主控台、发控计算机及地面设备,在软件上实现了测发控的操作流程。该模拟训练系统由三部分组成,一是主发射过程模拟,二是专家帮助系统,三是指挥决策训练系统。该系统应该具有语音功能,能模拟真人发音,具有良好的帮助功能,对于操作动作、协同时机、注意事项等均有很好的提示。

2 系统实现必须解决的关键问题

2.1 发射流程控制软件

导弹发射流程十分复杂,而且要求作业精度高,配合十分熟练。在导弹发射训练模拟系统的开发过程中,精心设计的发射流程控制软件,对于导弹训练模拟系统的设计而言至关重要。

实现发射流程控制软件时,首先必须解决的关键问题是全系统的体系结构设计,它包含系统结构、系统组成、系统集成等方面的设计,所设计的体系结构必须能够满足导弹分队训练、发射、考核、故障诊断等各个层次的需求。在设计发射流程控制软件时,应在需求分析的基础上,依据功能独立、自成回路的设计原则,根据系统总体功能将全系统化分为子系统、分系统,并确定出各分系统、子系统的功能和它们之间的数据接口和物理控制关系。因此,整个流程采用模块化设计,主模块在整个测试软件系统中负责系统参数培植和初始化、模块调度和流程控制,该模块为整个测试系统提供唯一的用户入口,同时调度软件中各子系统工作,促进了各模块的灵活性和软件的可复用性。在测试项目配置上,采用结构化的通用设计思想,把设计过程中用到的硬件参数、软件参数以及一些特殊的要求,存到一个配置文件里,并把必要的参数存入数据库。测试的时候,只要调用各项目的配置文件,就能完成相应的测试和任务,这样操作人员不需要对系统有太深的了解,只需按照测试流程,用鼠标和键盘进行简单操作即可。

整个系统软件主要集中了Microsoft提供的插件、数据库的操作和串口通讯等技术,保证了系统简洁、平稳、有序地运行。系统内的数据库全部用Microsoft Access生成,主要有两个方面的数据库。第一个数据库是系统流程数据库,它的主要作用是驱动系统流程。这一库中的表对应着真实系统的检查内容和操作步骤,即有多少个检查和测试项目,就有多少个表;进行那一项检查或测试,系统就会操作相应的表。第二个数据库是对象状态数据库,位于虚拟终端的响应对象程序内,主要作用是容纳操作对象的状态值,这一库中的表对应所有的设备,每一个控制对象都占用一个表,表中有测试项目所对应的测试值、标准值、测试结果等字段,无论是主控台还是虚拟响应对象,每一个操作都要对这个库中的表进行读操作。

2.2 专家系统

主要包括故障诊断和考核两大系统,其中故障诊断是核心,是专家系统的灵魂和支柱,是实现专家功能的关键技术。而考核则是利用数据库技术和对于军事训练考核大纲的充分理解,对故障诊断系统加以改造而成。故障诊断必须有完备的导弹电路、气路、油路图的录入,要有实物图库和一些发射资料音像库,以及必要的一些多媒体课件作为补充。

由于导弹发射非常有程序性和时间性,我们人为把导弹发射过程和检测过程分为若干阶段,对于每一个阶段,主控台所对应的操作和现象各不相同,导弹发生故障时,我们输入导弹所处的状态(技术状态或发射状态)和对应的阶段,故障诊断界面会立即显示相应的操作界面。在此界面下,我们把每一操作所对应的现象看作一个输入信号,对于主控台的每一个信号,我们给它赋予一个不同的权值wi,这样n个信号就有可能有A(A=c${}_n^1$+c${}_n^2$++c${}_n^n$)种不同的组合方式,每一种方式对应于操作导弹过程中可能的故障,利用程序对每个信号组合方式进行综合处理,得到输出信号yk(k=1,2,,A),即具体诊断结果,此故障诊断的模型如图2。这样利用缜密的数学思维,避免了专家系统对于有些故障的遗漏和缺失。

以前的以规则或框架为基础的专家系统只能按照事先给定的固定规则进行推理,缺乏自动学习或自动获取知识的能力,限制了专家系统的应用。因此,在这里我们试图在专家系统中建立自动学习或自动调整的功能,改善系统的自学和自适应能力,解决知识获取的瓶颈问题。如学习能力差、容错性差、处理大型复杂问题较为困难等局限性。

2.2 飞行过程的可视化

由于在平时实装操作训练结束后,操作员面对的是一大堆枯燥的数据,为了加深操作员对于整个武器系统的理解能力,解决地面操作分队事实上把地面测试设备和弹上仪器分割的现实,提高分队的数据判读能力;结合测试结果和弹体相关数据,对导弹飞行过程进行可视化模拟是十分必要的。导弹飞行模拟过程是根据实际发射条件,在计算机及图形图像处理系统上实现的,其关键所在是如何根据实际发射条件进行实时弹道解算,生成立体感较强的弹道图形,然后再根据实际参数,形象、直观、逼真地模拟出导弹的飞行过程,其飞行仿真系统框图见图3。

由于导弹在实际飞行中,其姿态每时每刻都在发生变化,为使屏幕图形客观地描绘导弹实际飞行状态,则必须进行一系列的坐标变换。此外,在计算机图形设计中,利用图形几何变换不仅可以节省图形数据的准备时间,而且可以用一些简单的图形组成相当复杂的图形,可用一些平面图形反映立体图。应用几何变换的方法,也可以使静态图形按一定的规律运动,使其变为动态图形。导弹在实际飞行过程中属三维空间六自由度运动,它不仅有导弹的质心运动,而且还有绕其质心的转动,所以在其坐标变换中,必须根据导弹实际运动参数,进行平移、缩放和旋转变换,才能在屏幕上真实地反映出导弹的飞行过程。在虚拟环境中,成员与环境的信息交互很大程度上依赖于视觉通道与听觉通道,听觉通道中逼真的空间声音合成将能大大增强环境的沉浸效果,听觉信息用于为发射过程虚拟环境伴音,对视觉效果加以增强与渲染。

2.3 全系统的数据环境

模拟过程与结果的真实性,即模拟系统的可信性,在很大程度上取决于模拟系统基础数据的准确性与数据环境的完备性。所谓数据环境,从实际发射训练模拟系统角度具体分析,主要指武器装备性能指标数据。建立数据环境时,必须进行数据的搜集、归纳、分类与整理,以及数据的录入,定义灵活适用的数据结构,加强数据的安全性管理,为系统提供真实、可信的数据环境。在本设计中,为了保密,将数据单独建为一个模块,训练时可加入到整个软件环境中去,非训练时可加密或利用移动存储设备将其单独保存,而且这样设计也减少了系统的维护时间和周期,也防止了泄密问题的发生。

3 结论

本模拟训练系统真实反映了实际系统的操作过程和客观状态,提供了灵活的在线帮助,并且融入了多媒体影音功能,增强了系统的表现能力,同时也采用了与实际系统相一致的交互界面,感觉真实,操作方便,由于程序采用了比较合理的结构,所以运行平稳。导弹测试发射训练模拟系统的实现,充分发挥了Microsoft VB6.0强大的设计功能和快速原型开发能力。为测试发射专业技术人员的培训提供了一个新的、灵活高效的模拟训练环境。目前该系统已在部队单位得到应用,并将进一步完善。

单机训练模拟系统和导弹全武器综合训练模拟系统的结合,完成了从单兵训练到整个发射分队训练、从单台仪器(分系统)操作到全武器系统综合演练的全过程,这样,它使得过去主要依靠实装操作完成的工作可以在室内利用计算机、仿真器和人工合成的虚拟环境进行,使得操作者沉浸于一个由计算机系统所创造的虚拟环境中,与虚拟环境发生交互作用,并能得到与实际的物理参与和联试所能获得的相同或相似的感受,将使导弹部队的训练发生质的飞跃,不再受时间、人员、气象条件、场地等的限制,极大地减少实装训练的频率,降低训练费用,保证了训练时间,提高了发射分队的技战术水平,促进训练手段的多元化,为导弹发射训练提供一种经济、有效、安全的新型训练方式。

摘要：系统采用计算机仿真技术、弹道仿真技术、网络技术、串口通信技术,介绍了该系统特点、组成和关键技术,并针对关键技术问题作了深入细致的探讨,给出了解决该问题的途径。

关键词：导弹,训练模拟,软件系统

参考文献

[1]杨乐平.虚拟技术与测发模拟训练系统.导弹实验技术,1999,(4):5—7

[2]张立科.Visual Basic6.0程序设计与开发大全.北京:人民邮电出版社,2006

VB程序设计期末模拟试题及答案 第4篇

综合复习题

一、填空题

1．创建一个VB应用程序三个主要的步骤是__创建应用程序界面_、_设置属性_和_编写代码_。2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的 属性 窗

口中，把此文本框的__text__属性设置成空白。

3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信 息，可使用___Label_____控件；若允许用户输入文本，则应使用___TextBox___控件。4．窗体的常用方法有_Load方法 Show方法 Hide方法 Unload方法 5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK，应当编写的语句是 txtshow.text=“GOOD WORK” 6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以

下事件过程填空。

Private Sub Cmdopen_ Click()、frm1.show End Sub 7．Visual Basic 6种类型的表达式是 算术表达式 字符串表达式 关系表达式 布尔表达式 日期表达式 对象表达式，Visual Basic根据表达式的_运算符来确定表达式的类型。8．表达式93 7 Mod 2 ^ 2 的值是___________。

9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c

达式c>a And Not b

10．日期表达式 #2/24/02#1 > c2 End Sub 7．#12/31/1999#3 * I Print “ ”;Next j For k = 1 To I Print k;Next k For k = IX Print Tab(Y + 5);“*”;Next Y Print Next X 4．

Private Sub Form_Activate()Print “aa” & “bb”,-5 * 6,Not 2 <= 3 Print “aa” & “bb”;-5 * 6;Not 2 <= 3 Print Print “30+60”, Print 30 + 60 ？

？“30+60”;30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z

五、编程题

1．设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。

2．设计程序。要求：从文本框Text1中接收输入的数据，当单击确定按钮（command1）时，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。

vb程序设计试卷及答案 第5篇

1.编制程序实现：在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮2，则停止动态显示；单击按钮3，清除文本框内容。提示：可用定时器控制时间，用系统函数Now显示时间（如Text1.Text = Now）。

2.编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。

3.编制程序：利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。4.编制程序实现：设计在一框架中包含三个复选框，只有当其1,3选中而2未选中时，才在Text1中显示“Hello”字符。

5.编一程序能实现在窗体上打印出如下图所示的图形。

A AAA AAAAA AAAAAAA BBBBBBB BBBBB BBB B 6.编一程序用于判断一正整数是否为素数。（提示：只能被1和本身整除的正整数称为素数。为了判断一个数n是不是素数，可以将n被2到sqr(n)之间的所有整数除，如果都除不尽，则n就是素数，否则n是非素数。）

7.选用If和Select判断结构中任意一种编写满足下列条件的计税要求的程序：少于1600元，免税；1601-5000元，征2%的税；多于5000元，超过部分征5%的税。

8.有a、b、c三个数，编一程序实现通过文本框给a、b赋值；再调用能完成a、b比较大小的子过程，用c将大数回传。要求按值传送a、b。

9.编一程序用于求所有的“水仙花数”。所谓“水仙花数”是指一个3位数，其各位数字立方和等于该数本身。例如：153就是一水仙花数，因为153 = 13+53+33。

10.设计一弹出式菜单，用于设置窗体的背景色，背景色包含白色、黄色、红色三种颜色。11.编写程序实现：输入三角形的三条边a,b,c的值，根据其数值判断能否构成三角形。如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。

提示：判断能否构成三角形的方法是，求最长的一边，判断它的边长是否小于另外两边边长之和；或求最短的一边，判断它的边长是否大于另外两边之差。

12.编写程序：通过四个命令按钮Command1-Command4，在图片框Picture1内分别实现画点、画线、画圆、擦除等功能。

13.编写程序实现：在窗体上单击按钮1，可通过输入对话框输入两个字符串；单击按钮

2，将输入的两个字符串连接为一个字符串，并计算该字符串长度，然后在消息框中显示出来。

14.编一程序：用三个文本框分别输入a、b、c，求一元二次方程ax2+bx+c=0的解x1和x2，只包括实根。

15.编一程序：利用输入对话框输入两个正整数，求最大公约数。

答案

1.Private Sub Command1_Click()

Timer1.Interval = 5

Timer1.Enabled = True End Sub Private Sub Command2_Click()

Timer1.Enabled = False End Sub Private Sub Command3_Click()

Timer1.Enabled = False

Text1.Text = “" End Sub Private Sub Timer1_Timer()

Text1.Text = Now End Sub

2.Private Sub Command1_Click()Dim i, s As Integer For i = 100 To 200

If i Mod 3 = 0 Then s = s + i Next i MsgBox(”100-200之间所有可以被3整除的数的总和为：“ & Str(s))End Sub

3.Private Sub Command1_Click()Dim a(9), i, j, m As Integer For i = 0 To 9

a(i)= Val(InputBox(”

For i = 0 To 9

For j = i + 1 To 9

If a(i)> a(j)Then

m = a(i)

a(i)= a(j)

a(j)= m

End If

Next j Next i For i = 0 To 9

Print a(i);Next i End Sub

4.Private Sub Command1_Click()If Check1.Value = 1 And

Check2.Value = 1 And Check3.Value = 0 Then Text1.Text = “Hello” End If End Sub

5.Private Sub Command1_Click()Dim i, j As Integer For i = 1 To 4

For j = 1 To(2 * i1)To 1 Step-1

Print “B”;

Next j

Print Next i End Sub

6.Private Sub Command4_Click()

Dim n, k, i, temp As Integer

n = InputBox(“请输入一个正整数”)

k = Int(Sqr(n))

i = 2

temp = 0

Do While i <= k And temp = 0

If n Mod i = 0 Then

temp = 1

Else

i = i + 1

End If Loop

If temp = 0 Then

Print n;“是一个素数”

Else

Print n;“不是素数”

End If End Sub

7.Private Sub Command1_Click()Dim n, p As Single n = Val(Text1.Text)Select Case n

Case Is <= 1600

p = 0

Case 1600 To 5000

p =(n5000)* 0.05 End Select End Sub

8.Private Sub c1(ByVal a As Single, ByVal b As Single, c)If a > b Then c = a Else c = b End Sub

Private Sub Command1_Click()Dim a, b, c As Single a = Val(Text1.Text)b = Val(Text2.Text)

Call c1(a, b, c)

Print c End Sub

9.Private Sub Command1_Click()Dim a, b, c, n As Integer For n = 100 To 999

a = Int(n / 100)

b = Int((n(a * 100 + b * 10)

If n = a ^ 3 + b ^ 3 + c ^ 3 Then Print n;

Next End Sub

10.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

PopupMenu MenuA

End If End Sub

Private Sub B_Click(Index As Integer)

Select Case Index

Case 1

Form1.BackColor = vbWhite

Case 2

Form1.BackColor = vbYellow

Case Else

Form1.BackColor = vbRed

End Select End Sub

11.Private Sub Command1_Click()Dim a(2), i, j, m As Integer For i = 0 To 2

a(i)= Val(InputBox(“

If a(i)> a(j)Then

m = a(i)

a(i)= a(j)

a(j)= m

End If

Next j Next i If a(0)+ a(1)> a(2)Then

If a(0)^ 2 + a(1)^ 2 = a(2)^ 2 Then

Print ”能构成直角三角形,面积为：“ & a(0)* a(1)/ 2

Else

Print ”能构成三角形，但不是直角三角形“

End If Else

Print ”不能构成三角形“ End If End Sub

12.Private Sub Command1_Click()Picture1.PSet(Picture1.Width / 2, Picture1.Height / 2)End Sub

Private Sub Command2_Click()Picture1.Line(0, 0)-(Picture1.Width, Picture1.Height)End Sub

Private Sub Command3_Click()Picture1.Circle(Picture1.Width / 2, Picture1.Height / 2), 800 End Sub

Private Sub Command4_Click()Picture1.Cls End Sub

13.Dim a, b, c As String Private Sub Command1_Click()a = InputBox(”请输入

Private Sub Command2_Click()c = a + b MsgBox “连接后的字符串为：” & c & “。长度为：” & Len(c)End Sub

14.Private Sub Command4_Click()a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a = 0 Then

x =-c / b

Print x Else

t = b * bSqr(t))/ 2 / a

Print X1, X2

End If End If End Sub

vb程序设计试卷及答案 第6篇

一、填空题（本大题共60分，共 15 小题，每小题 4 分）

1.要使用状态栏控件设计状态栏，应首先在“部件”对话框中选择 Microsoft Windows Common Controls 6.0，然后从工具箱中选择 StatusBar 控件。

2.对象的边框类型由 BorderStyle 属性设置。

3.VB的每个菜单项都有一个下拉菜单，含有若干个 菜单 命令。用鼠标单击某个菜单项就执行相应的菜单命令。

4.菜单的热键指使用 Alt 键和菜单项标题中的一个字符来打开菜单。建立热键的方法是在菜单标题的某个字符前加上一个 & 符号，在菜单中这一字符会自动加上 下划线，表示该字符是一个热键字符。

5.运行时，要使工具栏控件Toolbarl中的第二个按钮的按钮菜单中的第三项无效（变成灰色），应使用语句：Toolbarl.Buttons(2).ButtonMenus(3).Enabled＝False。

6.根据文件内容区分，文件分为 程序文件 和 数据文件。

7.当使用Format函数与Print方法一起输出时，格式字符串中的”#”号表示一个数字位，它的个数决定 显示数据 的长度，若要显示的数据位数大于这个长度，则显示时数据按 原样 显示。

8.菜单在运行时的动态增减主要通过控件数组实现，首先将菜单项的 Visible 属性设为False，然后在程序中用Load 语句加载。

9.如果将工程的启动对象设置成 Main 子程序，则程序启动时可以不加载任何窗体。

10.要从字符串“Visual Basic 6.0”中截取子字符串“Basic”可使用的函数是 Mid(“Visual Basic 6.0”,8,5)。

11.要在运行时给状态栏 StatusBar1的第二个窗格添加一幅图片，该图片由文件 “c：＼windows＼winupd．ico”指定，应使用语句：StatusBar1.Panels(2).Picture＝LoadPicture（“C：＼Windows＼Winupd．ico”）。

12.若case子句中的表达式表列具有形式：表达式1 To 表达式2，则它的含义是：当测试表达式的值等于 这个范围内的值 时，执行该case子句相应的程序块。

13.表示x是5的倍数或是9的倍数的逻辑表达式是 x mod 5=0 OR x mod 9=0。

14.程序运行过程中，在立即窗口显示变量f的语句是 Debug.Print f。

15.设

Form1.Scaleleft=-250，Form1.Scalertop=300，Form1.Scalewidth=350，Form1.Scaleheight=500，则Form1的右下角坐标为 100,800。

二、程序阅读题（本大题共40分，共 10 小题，每小题 4 分）

1.若窗体Form1上添加了通用对话框CommonDialog1，下面程序的功能是什么？

Dim filename As String

Dim str As String

CommonDialog1.Filter = “文本文件(*.TXT)|*.txt”

CommonDialog1.Action = 1

filename = CommonDialog1.filename

CommonDialog1.ShowColor

Form1.ForeColor = CommonDialog1.Color

Open filename

For Input As #1

Do While Not EOF(1)

str = str + Input(1, #1)

Loop

Form1.Print str

Close ＃1

以选择的颜色作为窗体前景色，将一个文本文件显示在Form1窗体上

2.Private Sub Form_Click()

num = 0

Do

num = num + 3

Print num

第1页，共4页

Mod 4 = 0

End Sub

程序运行后，单击窗体，输出结果是：3 6 9 12

3.写出下面事件过程的执行结果。

Private Sub Command1_Click()

Dim f(10)As Integer

f(0)=1

f(1)=1

For i=2 To 10

f(i)=f(i1)

Next i

For i=0 To 9

If i Mod 4=0 Then

Print

Print f(i)

Next i

End Sub

执行结果是：1 1 2 3 5 8 13 21 34 55

4.下列标准模块和窗体模块的功能是给通信录文件“d:txrf1.dat”添加新记录，在横线上填上适当内容。

标准模块：

Type txr num As Integer

name As String * 10

tel As String * 8

addr As String * 20

End Type

窗体模块：

Private Sub Command1_Click()

Dim n%, zgr As txr

Open “d:txrf1.dat” For Random As #1

Len = Len(zgr)

zgr.num = InputBox(“输入新职工编号：”)

zgr.name = InputBox(“输入新职工姓名：”)

zgr.tel = InputBox(“输入新职工电话号码：”)

zgr.addr = InputBox(“输入新职工住址：”)

n = LOF(1)/ Len(zgr)+ 1(2)Put #1, n, zgr

Close #1

End Sub

5.写出下面的程序运行后，连续单击4次窗体，在Form1上的执行结果。

Private Sub Form_Click（）

Static a As Integer

Dim b As Integer

b=a+b+1

a=a+b

Form1.Print “a=”;a, “b=”;b

End Sub

执行结果为： a=1 b=1 a=3 b=2 a=7 b=4 a=15 b=8

6.有如下事件过程，写出程序的功能（数学表达式）。

Private Sub Command1_Click()

T=0

M=1

Sum =0

Do

T=T+M

Sum =Sum+T

M=M+2

Print“Sum =”；Sum

End Sub

计算数学表达式：1＋22＋32＋42＋…＋202==2870

7.编写如下代码：

dim flag as Boolean

private sub form_mousedown（button as integer，shift as integer，x as single，y as single）

flag=true

end sub

private sub form_mousemove（button as integer，shift as integer，x as single，y as single）

flag=false

end sub

private sub form_mouseup（button as integer，shift as integer，x as single，y as single）

if flag=false then

print “DDDD”

end if

end sub

程序运行后，如果在窗体上输出“DDDD”，则应执行的操作为 移动鼠标并松开鼠标左键。

8.下面事件过程的功能是从键盘上输入若干个数据存放到一维数组a中，并求出这组数据的平均值，在横线上填上适当内容。

Private Sub Command1_Click()

Dim n%, i%Dim a()As Integer

n=InputBox(“请输入数据个数：”)ReDim a(n)

For i=1 To n

a(i)=InputBox(“请输入第” & Str(i)& “个数据：”)

Next i

For i=1 To n

Sum=Sum+a(i)

Next i

Print “平均值：”;Sum / n

End Sub

9.下面程序的作用是什么？

Private Sub Command1_Click()

Dim a()

a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)

For n = 0 To 8

Print a(n);

Next

Print

Call s1(a)

For n = 0 To 8

Print a(n);

Next

End Sub

Private Sub s1(ByRef x())

s = UBound(x)

For n = 0 To s / 2

temp = x(n)

x(n)= x(sn)= temp

Next

End Sub

将数组a倒置

10.使用情况语句改写下列事件过程。

Private Sub Command1_Click()

Dim score!, grade$

score=InputBox(“请输入一个学生的分数：”)If score>=90 Then

Grade=”A”

ElseIf score>=80 Then

Grade=”B”

ElseIf score>=70 Then

Grade=”C”

ElseIf score>=60 Then

Grade=”D”

Else

Grade=”E”

End If

Print “该学生的分数等级为：”;grade;End Sub

Private Sub Command1_Click()

Dim score!, grade$

score=InputBox(“请输入一个学生的分数：”)Select Case score

Case Is>=90

grade=“A”

Case Is>=80

grade=“B”

Case Is>=70

grade=“C”

Case Is>=60

grade=“D”

Case Else

grade=“E”

End Select

vb程序设计试卷及答案 第7篇

1 乡村诊所药品管理系统分析与设计

1.1 系统基础数据确定

根据乡村诊所药品管理系统功能设计的要求以及功能模块的划分,对于该系统的数据库需要列出系统用户表、药品卡片表、药品信息、药品库存等基础数据项和数据结构。表1是药品卡片表,该表显示了药品输入时需要确定的各项内容,是该系统的基础数据之一。

1.2 系统E-R图

系统E-R图是整个乡村药品管理系统的核心架构。通过图1可以看到整个药品管理系统的主要功能。该系统包含了计算机数据的一些常规处理,如数据备份与还原,软件界面的设计等;也包含了药品管理系统的构建主要元素,如药品卡片的建立,药品出入库以及药品的查询等。该架构能够保证乡村医生能够正常的使用该系统进行药物管理,大幅提升药品管理水平和效率。

图2和图3分别是系统操作流程图和药品信息图。这两幅图是整个药品管理系统的操作指南。通过系统流程图我们可以了解整个系统对于药品的管理及控制以及药品在计算机系统中的位置与状态,方便对药品的实时管理于查询。药品信息图则是对药品的具体信息的实时监控,保证各类药品能够处于正常状态。

通过对诊所药品系统构建为后续开发该系统提供了依据。与此同时,药品信息子项的明确为后续开发与使用提供了母版。系统的开发不仅要满足现今需求,还要考虑到诊所的长远发展,使得该系统有一定的冗余,为日后开发提供一定条件。

2 乡村诊所药品管理系统实现

2.1 药品管理系统的登录界面

本管理系统开发环境是在Windows系统下进行,所用的数据库工具为SQL SEVER 2000,所用的开发语言为VB以及SQL2000。

登陆页面具有登录主界面和修改密码的功能,用户登陆时将根据其身份进行验证,验证通过之后就会登录到主界面。本系统用户主要是诊所的医生,其用户名和密码是存储在数据库中,验证主要是验证用户所输入的信息与数据库中的是否一致,若是一致就成功登录。否则提示错误信息,返回重新输入。

登陆代码:

2.2 诊所药品管理系统功能界面

此界面主要为了方便对药品管理功能选择提供了一个选择的平台,选择的管理功能有药品卡片的建立、药品入库、药品查询、药品出库三大管理模块。其中药品卡片的建立是基础,建立药品的卡片可以在后续的使用中只需要输入简码,就可以点出相关的药品信息。此外,根据实际需求,设计了药品入库和出库的界面、药品查询界面等,满足了诊所日常诊疗药品输入输出需求。

此外,为了保证系统正常运行以及在系统故障时保证能够正常使用,对系统设计时需要考虑进行系统备份与还原功能,保证系统工作的连续性与安全性。

3 结论

对于乡村诊所这样的初级诊疗结构,其药品的计算机系统管理能够为乡村医生带来极大的便利。通过对药品卡片的建立、药品入库管理、药品查询管理、药品出库管理等功能的实现,可以减少手工输入输出药品的基本信息,大大减少了药品登记的时间,提高他们的工作效率和减少工作量。此外,乡村诊所进行药品分类登记也给药监工作人员的检查带来了极大的便利。

摘要：为了满足乡村诊所药品的最优化管理,根据实际情况在设管理信息系统的理论和方法指导下、数据库技术支持下完成的。论文在对乡村诊所管理流程进行了解与分析的基础上对系统进行了总体的设计,并通过编程整合数据表使得系统最终能够完成信息的输入、输出,数据的修改、查询和统计以及打印报表等功能,使用户操作起来简便快捷。

机械设计基础试卷及答案2 第8篇

一、填空题（30分）

1、根据轮系中各轮轴线在空间的相对位置是否固定，轮系分（）和（）两类。

2、按轴的承载情况不同,可分为（），（），（）。

3、当两个构件通过运动副联接，任一个构件的运动受到限制，从而使自由度减少，这种限制就称为（）。

4、一对直齿圆柱齿轮要正确啮合，其（）和（）必须相等。

5、铰链四杆机构的基本类型有（）、（）、（）三种。

6、加惰轮的轮系只改变（），不改变（）。

7、直齿圆柱齿轮的基本参数有（）、（）、（）、齿顶高系数和顶隙系数。

8、凸轮机构按从动件形式的不同可分为（）从动杆、（）从动杆和（）从动杆。

9、键联接主要用于联接（）和（）用来确定转动零件的（）和（）。

10、螺纹联接的防松方法常用（）、（）、（）。

11、根据摩擦性质的不同,轴承可以分为（）（）两大类。

12、根据工作原理的不同,离合器主要分为()（）两大类

三、选择题：（15分）

1、机械中常利用（）的惯性力来越过机构的死点位置。A、主动构件 B、联接构件 C、从动构件

2、普通螺纹的牙型角是（）。

A、30° B、55° C、60°

3、（）个构件直接接触产生某种相对运动的联接称为运动副。A、1 B、2 C、3

4、标准齿轮的压力角为20°，在（）上。A、基圆 B、分度圆 C、节圆

5、复合铰链的转动副数为（）。

A、活动构件数－1 B、构件数－1 C、等于构件数

6、一对渐开线齿轮传动（）。

A、保持传动比恒定不变； B、传动比与中心距有关 C、在标准中心距的条件下，分度圆与节圆不重合。

7、螺纹的公称直径是指（）。

A、螺纹小径 B、螺纹中径 C、螺纹大径

8、双线螺纹的螺距P=导程L的（）倍。A、1/2 B、2 C、3/2

9、一个作平面运动的构件具有（）个自由度。A、1 B、2 C、3

10、在不能开通孔或拆卸困难的场合宜采用（）。A、圆柱销 B、圆锥销55° C、内螺纹圆柱销(圆锥销)

四、指出下面机构运动简图中的复合铰链、局部自由度和虚约束，并计算机构的自由度，并判断机构是否具有确定的相对运动。（15分）

/ 6

五、已知一定轴轮系如图所示，已知Z1=40，Z2=80，Z3=20，Z4=60，Z5=25，Z6=50，Z7=3，Z8=30，n1=1440r/min，求（1）轮系的传动比；（2）末轮的转速n8；（3）假定轮1的转向如图，在图中标出各轮的转向。(15分)

2007～2008下学期《机械设计基础》期考试题(B)参考答案

一、填空题

1、定轴轮系 周转轮系

2、心轴 转轴 传动轴

3、约束 数 压力角

5、曲柄摇杆机构 双曲柄机构 双摇杆机构

6、方向 传动比

7、齿数 模数 压力角

8、尖顶 滚子平底

9、轴 轴上零件 周向固定 传递转矩

10、摩擦防松 机械防松 铆钉防松

11、滑动轴承 滚动轴承

12、啮合式 摩擦式

三、选择题

1、C

2、C

3、B

4、B

5、B

6、A

7、C

8、A

9、C

10、C

四、解：n=7 Pl=9 Ph=1 F＝3 n－2 Pl－Ph

＝3×7－2×9－1 ＝2 因为原动件说明数目与自由度数相同，所以有确定的运动。

五、解：i18=120 n8=36r/min

一、选择题：本题共10个小题，每小题2分，共20分

1．在一般工作条件下，齿面硬度HB≤350的闭式齿轮传动，通常的主要失效形式为 【 】

A．轮齿疲劳折断 B.齿面疲劳点蚀

/ 6 C．齿面胶合 D.齿面塑性变形

3．在下列四种型号的滚动轴承中，只能承受径向载荷的是

A．6208 B.N208 C.3208 D.5208 4．下列四种螺纹中，自锁性能最好的是

A．粗牙普通螺纹 B.细牙普通螺纹 C．梯形螺纹 D.锯齿形螺纹

7．普通平键接联采用两个键时，一般两键间的布置角度为

A．90° B.120° C.135° D.180°

9．对于普通螺栓联接，在拧紧螺母时，螺栓所受的载荷是

A．拉力 B.扭矩 C．压力 D.拉力和扭矩

二、填空题：本大题共10个小题，每空1分，共20分。

1．轴如按受载性质区分，主要受 的轴为心轴，主要受 的轴为传动轴。2．代号62203的滚动轴承，为 轴承，其内径为 mm。

3．在一般机械中的圆柱齿轮传动，往往使小齿轮齿宽b1 大齿轮齿宽b2；在计算齿轮强度时，工作齿宽b 应取。

4．普通平键联接的工作面是键的 ；楔键联接的工作面是键的。

5．为了便于互换及适应大量生产，轴承内圈孔与轴的配合采用 制，轴承外圈与轴承座孔的配合采用 制。

7．按照平面图形的形状，螺纹分为、和 等。8．按照工作条件，齿轮传动可分为 和 两种。

9．齿轮传动设计时，软齿面闭式传动通常先按 设计公式确定传动尺寸，然后验算轮齿弯曲强度。

10．直径较小的钢制齿轮，当齿根圆直径与轴径接近时，可以将齿轮和轴做成一体，称为。

三、简答题：本大题共6个小题，每题5分，共30分。1．简述螺纹联接的基本类型主要有哪四种？

2．提高螺栓联接强度的措施有哪些？

6．滚动轴承的基本类型有哪些？

一、选择题：本题共10个小题，每小题2分，共20分

1．齿轮传动中，轮齿的齿面疲劳点蚀，通常首先发生在 【 】

A．齿顶部分 B.靠近节线的齿顶部分 C．齿根部分 D.靠近节线的齿根部分

4．齿轮传动中，通常开式传动的主要失效形式为 【 】

/ 6 A．轮齿折断 B.齿面点蚀 C．齿面磨损 D.齿面胶合

7．在下列四种型号的滚动轴承中，只能承受轴向载荷的是 【 】

A．6208 B.N2208 C.3208 D.5208 9．代号为1318的滚动轴承，内径尺寸d为 【 】 A.90mm B.40mm C.19mm D.8mm 10．下列哪种螺纹主要用于联接？ 【 】

A.矩形螺纹 B.梯形螺纹 C.锯齿形螺纹 D.三角形螺纹

二、填空题：本大题共10个小题，每空1分，共20分。把答案填在题中横线上。1．软齿面齿轮是指轮齿的齿面硬度HBS ；在一般情况下，闭式软齿面齿轮传动的主要失效形式是。

2．按照螺旋线的旋向，螺纹分为 和。4．键是标准件，主要分为、、楔键和切向键等。5．开式齿轮传动的主要失效形式是磨损，固通常只进行 计算。6．开始齿轮传动通常采用人工定期加油润滑的方式；闭式齿轮传动通常采用 或 的方式。

7．滚动轴承一般是由、、和保持架组成。

9．按照承受载荷的方向或公称接触角的不同，滚动轴承可分为 和。

三、简答题：本大题共6个小题，每题5分，共30分。把答案填在题中横线上。1．简述轮齿的失效形式主要有哪五种？ 3．试说明滚动轴承代号6308的含义。4．简述联轴器的分类及各自的特点。5．常用的螺纹紧固件有哪些？

答案：

一、选择题：

1－5：DDDCC 6-10：BBAAD

二、填空题： 1．≤350，点蚀 2．国家标准，行业标准 3．左旋螺纹，右旋螺纹 4．平键，半圆键 5．弯曲强度

6．浸油润滑，喷油润滑 7．滚子链，齿形链 8．外圈，内圈，滚动体 9．向心轴承，推力轴承

/ 6

10．螺旋弹簧，环形弹簧

三、简答题：

1．轮齿折断、齿面点蚀、齿面胶合、齿面磨损、齿面塑性变形…………各1分

2．若带所需传递的圆周力超过带与轮面间的极限摩擦力总和时，带与带轮将发生显著的相对滑动，这种现象称为打滑。…………2分

这种由于材料的弹性变形而产生的滑动称为弹性滑动。…………2分 打滑应当避免，弹性滑动不可避免。…………1分 3．6─深沟球轴承…………1分 3─中系列…………1分 08─内径d=40mm…………1分 公差等级为0级…………1分 游隙组为0组…………1分

4．联轴器分为刚性联轴器和弹性联轴器。…………1分 刚性联轴器又分为固定式和可移式。…………1分 固定式刚性联轴器不能补偿两轴的相对位移。…………1分 可移式刚性联轴器能补偿两轴的相对位移。…………1分

弹性联轴器包含弹性元件，能补偿两轴的相对位移，并具有吸收振动和缓和冲击的能力。…………1分

5．常用的螺纹紧固件品种很多，包括螺栓、双头螺柱、螺钉、紧定螺钉、螺母、垫圈等。

/ 6

标准答案

一、选择题：

1－5：BCBDC 6－10：DBDDD

二、填空题： 1． 弯矩，转矩 2． 深沟球轴承，17 3． 大于，大齿轮齿宽b2 4． 两侧面，上下面 5． 基孔，基轴

6． 静应力，变应力，循环变应力 7． 三角形螺纹，梯形螺纹，锯齿形螺纹 8． 开式传动，闭式传动 9． 齿面接触强度 10． 齿轮轴

三、简答题：

1． 螺栓联接、螺钉联接、双头螺柱联接、紧定螺钉联接。2． 降低螺栓总拉伸载荷的变化范围；

改善螺纹牙间的载荷分布； 减小应力集中； 避免或减小附加应力。

3． 闭式蜗杆传动的功率损耗包括三部分：轮齿啮合的功率损耗，轴承中摩擦损耗和搅动箱体内润滑油的油阻损耗。

4． 适于中心矩较大的场合；……………1分

带具有良好的扰性，可缓和冲击、吸收振动；……………1分

过载时带与带轮间会出现打滑，打滑虽使传动失效，当可防止损坏其他零件；…………2分 结构简单、成本低廉……………1分

5． 调心球轴承、调心滚子轴承、圆锥滚子轴承、推力球轴承、深沟球轴承、角接触球轴承、推力圆柱滚子轴承、圆柱滚子轴承、滚针轴承等。……………0.5分