工程1vbp
储存着工程文bai件，储存着工程类型，工du程调用的DLL、OCX信息，工程窗体、模块等文件地址。
vbp像一种数据库的索引
Form1frm
窗体文件，储存着窗体信息，保存着窗体自有的信息。
MSSCCPRJSCC
储存着工程加密内容，如果关闭Source Code Control插件，那么这个文件不会被生成。
最好为这个工程建个文件bai夹，点击保du存工程，工程文件的后缀为：zhivbp。
文件名显示在工dao程文件窗口的标题栏中。
包含下列三类主要文件：
1、窗体文件（Frm）:存储窗体上使用的所有控件对象、属性、事件过程及程序代码。
2、标准模块文件（Bas）:所有模块级变量和用户自定义的通用过程。
3、类模块文件（Cls）:可建立用户自己的对象，类模块包含用户对象的属性和方法不含事件代码。
后面的都按确定，要跟工程名字一样。
全都确定的程序可以点文件--生成工程exe，以后就直接可以打开运行了，关于生成文件的其他描述之类 可以在 工程-工程1属性--生成 里面详细设置。
扩展资料：
语言特色
制作应用程序安装盘等为用户提供了友好的集成开发环境，具体表现在：
可视化的设计平台：在使用传统的程序设计语言编程时，一般需要通过编写程序来设计应用程序的界面（如界面的外观和位置等），在设计过程中看不见界面的实际效果。
而在Visual Basic 60中，采用面向对象程序设计方法（Object-Oriented Programming），把程序和数据封装起来作为一个对象，每个对象都是可视的。
开发人员在界面设计时，可以直接用Visual Basic 60的工具箱在屏幕上"画"出窗口、菜单、命令按键等不同类型的对象，并为每个对象设置属性。开发人员要做的仅仅是对要完成事件过程的对象进行编写代码，因而程序设计的效率可大大提高。
事件驱动的编程机制：面向过程的程序是由一个主程序和若干个子程序及函数组成的。程序运行时总是先从主程序开始，由主程序调用子程序和函数，开发人员在编程时必须事先确定整个程序的执行顺序。
而Visual Basic 60事件驱动的编程是针对用户触发某个对象的相关事件进行编码，每个事件都可以驱动一段程序的运行。开发人员只要编写响应用户动作的代码。这样的应用程序代码精简，比较容易编写与维护。
结构化的程序设计语言：Visual Basic 60具有丰富的数据类型和众多的内部函数。其采用模块化和结构化程序设计语言，结构清晰，语法简单，容易学习。
强大的数据库功能：Visual Basic 60利用数据控件可以访问Access、FoxPro等多种数据库系统，也可以访问Excel、Lotus等多种电子表格。
ActiveX技术：ActiveX发展了原有的OLE技术，使开发人员摆脱了特定语言的束缚，方便地使用其他应用程序提供的功能，使Visual Basic 60能够开发集声音、图像、动画、字处理、电子表格、Web等对象于一体的应用程序。
网络功能：Visual Basic 60提供的DHTML（动态HTML）设计工具可以使开发者动态地创建和编辑Web页面，使用户能开发出多功能的网络应用软件。
参考资料：
A关系。
参考数据库access2003应用教程人民邮电出版社第6页“每一个关系都是一个二维表”。
表由字段组成。就像一张纸质表一样，假如你有一张人员基本信息表，姓名、性别、年龄、出生年月日、家庭住址、职务、职称，等等这些在数据库表设计中就称为字段，字段；
有一些属性，最重要属性是它数据类型，比如姓名、性别、家庭住址、职务、职称在ACCESS中一般设置成文本类型，出生年月日则是日期类型，年龄可以整数型或者小数类型。
Access拥有的报表
创建功能能够处理任何它能够访问的数据源。Access提供功能参数化的查询，这些查询和Access表格可以被诸如VB6和NET的其它程序通过DAO或ADO访问。在Access中，VBA能够通过ADO访问参数化的存储过程。
与一般的CS关系型数据库管理不同，Access不执行数据库触发，预存程序或交互式登录 *** 作。Access 2010包括了嵌入ACE数据引擎的表级触发和预存程序，在Access 2010中，表格，查询，图表，报表和宏在基于网络的应用上能够进行分别开发。
百度百科-ACCESS数据库
VB历年真题集
真题一
一、选择题
在下列各题的A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确的选项涂写在答题卡相应位置上，答在试卷上不得分。
（1）为了避免流程图在描述程序逻辑时的灵活性,提出了用方框图来代替传统的程序流程图,通常也把这种图称为
A)PAD图
B)N-S图
C)结构图
D)数据流图
（2）结构化程序设计主要强调的是
A)程序的规模
B)程序的效率
C)程序设计语言的先进性
D)程序易读性
（3）为了使模块尽可能独立,要求
A)模块的内聚程度要尽量高,且各模块间的耦合程度要尽量强
B)模块的内聚程度要尽量高,且各模块间的耦合程度要尽量弱
C)模块的内聚程度要尽量低,且各模块间的耦合程度要尽量弱
D)模块的内聚程度要尽量低,且各模块间的耦合程度要尽量强
（4）需求分析阶段的任务是确定
A)软件开发方法
B)软件开发工具
C)软件开发费用
D)软件系统功能
（5）算法的有穷性是指
A)算法程序的运行时间是有限的
B)算法程序所处理的数据量是有限的
C)算法程序的长度是有限的
D)算法只能被有限的用户使用
（6）对长度为n的线性表排序,在最坏情况下,比较次数不是n(n-1)/2的排序方法是
A)快速排序
B)冒泡排序
C)直接插入排序
D)堆排序
（7）如果进栈序列为e1,e2,e3,e4,则可能的出栈序列是
A)e3,e1,e4,e2
B)e2,e4,e3,e1
C)e3,e4,e1,e2
D) 任意顺序
（8）将E-R图转换到关系模式时,实体与联系都可以表示成
A)属性
B)关系
C)键
D)域
（9）有三个关系R、S和T如下:
由关系R和S通过运算得到关系T,则所使用的运算为
A)并
B)自然连接
C)笛卡尔积
D)交
（10）下列有关数据库的描述,正确的是
A)数据处理是将信息转化为数据的过程
B)数据的物理独立性是指当数据的逻辑结构改变时,数据的存储结构不变
C)关系中的每一列称为元组,一个元组就是一个字段
D)如果一个关系中的属性或属性组并非该关系的关键字,但它是另一个关系的关键字,则称其为本关系的外关键字
（11）窗体文件的扩展名是
A) bas
B) cls
C) frm
D) res
（12）设y是整形变量,能判断y为奇数的表达式是
A)Not(y Mod 2<>0)
B)y Mod 2<>0
C)(y-1)Mod 2<>0
D)y Mod 2<>1
（13）下面说法不正确的是
A) 变量名的长度不能超过255个字符
B) 变量名可以包含小数点或者内嵌的类型声明字符
C) 变量名不能使用关键字
D) 变量名的第一个字符必须是字母
（14）定义有5个整数型元素的数组,正确的语句是
A)Dim a(4) As Integer
B)Option Base 1:Dim a(5)
C)Dim a &(5)
D)Dime a(5) As Integer
（15）设a=6,则执行
x=IIF(a>5,-1,0)
后,x的值为
A)5
B)6
C)0
D)-1
（16）如果将文本框的Locked属性设置为True,则以下说法正确的是
A) 此时在属性窗口不可以修改文本框的Text属性值
B) 运行时用户不可以在界面修改文本框中的内容
C) 在程序代码中不可以修改文本框的内容,如不可以使用语句Text1Text="aaa"
D) 以上均不正确
（17）编写如下事件过程:
Private Sub Form_keyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_Keypress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情况下(即不按住Shift键和锁定大写键时) 运行程序,若按"T"键,则程序输出的结果是
A) T B) t
T T
C) T D) t
t t
（18）以下事件过程可以将打开对话框的标题改为"新时代"的是
A) Private Sub Command2_Click()
CommonDialog1Dialogtitle="新时代"
CommonDialog1ShowOpen
End Sub
B) Private Sub Command2_Click()
CommonDialog1Dialogtitle="新时代"
CommonDialog1ShowFont
End Sub
C) Private Sub Command2_Click()
CommonDialog1Dialogtitle="新时代"
CommonDialog1Show
End Sub
D) Private Sub Command2_Click()
CommonDialog1Dialogtitle="新时代"
CommonDialog1ShowColor
End Sub
（19）如果要将窗体中的某个命令按钮设置成无效状态,应该设置命令按钮的什么属性
A) Value
B) Visible
C) Enabled
D) Default
（20）要使文本框可输入多行文字,要更改的默认选项是
A) SorollBoars和MultiLine
B) Visible
C) ScrillBoars
D) 以上都不是
（21）要触发组合框的DblClick事件,只有将组合框的Style属性设置为
A) 0
B) 1
C) 2
D) 3
（22）在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为:
Private Sub Timer1_ _________( )
TxtTimetext=Time
End Sub
在下划线上应填入的内容是
A) Enabled
B) Visible
C) Interval
D) Timer
（23）要使文本框获得输入焦点,则应采用文本框控件的方法是
A) GotFocus
B) LostFocous
C) KeyPress
D) SetFocus
（24）假定有如下的窗体事件过程:
Private Sub Form_Click()
a$="MicrosoftVisual Basic"
b$=Right(a$,5)
c$=Mid(a$,1,9)
MsgBox a$,34,b$,c$,5
End Sub
程序运行后,单击窗体,则在d出的信息框的标题栏中显示的信息是
A) Microsoft Visual
B) Microsoft
C) Basic
D) 5
（25）下面程序段执行结果为
x=Int(Rnd()+4)
Select Case x
Case 5
Print"excellent"
Case4
Print"good"
Case 3
Print"pass"
Case Else
Print "fail"
End Select
A) excellent
B) good
C) pass
D) fall
（26）设A="123456",则表达式Val(Left(A,4)+Mid(A,4,2))的值为
A)123456
B)123445
C)5
D)6
（27）在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程。
Private Sub Command1_Click()
CommonDialog1Flags=vbOFNHideReadOnly
CommonDialog1Filter= "All Files() ||Text Files(txt)|txt
CommonDialog1FilterIndex=1
CommonDialog1ShowOpen
MsgBox CommonDialog1FileName
End Sub
程序运行后,单击命令按钮,将显示一个"打开"对话框,此时在"文件类型"框中显示的是
A) All Files()
B) Text Files(txt)
C) Batch Files(bat)
D) All Files() |Text Files(txt)
（28）如果要将窗体中的某个命令按钮设置成无效状态,应该设置命令按钮的哪个属性
A) Value
B) Visible
C) Enabled
D) Default
（29）函数过程Fun1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。
Function Fun1(b As Integer)
if _____ Then
Fun1=0
Else
Fun1=1
End If
End Function
使该功能完整,应在空行处填入以下哪条语句
A)b Mod 2<>0
B)b Mod 2=0
C)b / 2=1
D)b
（30）假定有下表所列的菜单结构:
要求程序运行后,如果单击菜单项"大图标",则在该菜单项前添加一个"√"。以下正确的事件过程是
A) Private Sub bigicon_Click()
bigiconChecked=False End Sub
B) Private Sub bigicon_Click()
MeappearbigiconChecked=True
End Sub
C) Private Sub bigicon_Click()
bigiconChecked=True
End Sub
D) Private Sub bigicon_Click()
appearbigiconChecked=True
End Sub
（31）下列对变量的定义中,不能定义a为变体变量的是
A)Dim a As Double
B)Dim a As Variant
C)Dim a
D)a=24
（32）有如下程序:
Private Sub Command1_Click()
a$="A WORKER IS HERE"
x=Len(a$)
For i=1 To x - 1
b$=Mid$(a$, i, 3)
If b$="WOR" Then S=S + 1
Next
Print S
End Sub
单击命令按钮，程序运行结果为
A) 1
B) 2
C) 3
D) 5
（33）Mid("Hello Everyone",7,3)的执行结果是
A)yon
B) every
C) Eve
D) one
（34）在窗体上有一个命令按钮,然后编写如下事件过程。
Private Sub Command1_Click()
Dim a(5)As String
FOR i=1 To 5
a(i)=Chr(Asc("A")+ (i-1))
Next
For Each b In a
Print b;
Next
End Sub
程序运行后,单击命令按钮,输出结果是
A)ABCDE
B)1 2 3 4 5
C)abcde
D)出错信息
（35）在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
For i=1 To 4
x=4
For j=1 To 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,单击命令按钮,输出结果是
A)12
B)13
C)16
D)17
二、填空题
请将每一个空的正确答案写在答题卡序号的横线上，答在试卷上不给分。
（1）测试的目的是暴露错误,评价程序的可靠性;而 1 的目的是发现错误的位置并改正错误。
（2）某二叉树中度为2的结点有18个,则该二叉树中有 2 个叶子结点。
（3）当循环队列非空且队尾指针等于队头指针时,说明循环队列已满,不能进行入队运算。这种情况称为 3 。
（4）在关系模型中,把数据看成一个二维表,每一个二维表称为一个 4 。
（5）在计算机软件系统的体系结构中,数据库管理系统位于用户和 5 之间。
（6）下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。
例如: a=5 , n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。
Private Sub Command1_Click()
Dim a As Integer, n As Integer, Cout As Integer
Dim Sn As Long, Tn As Long
Cout=1
Sn=0
Tn=0
a=InputBox("请输入a的值:")
n = InputBox("请输入n的值!")
Do
Tn=Tn 10 + a
Sn=Sn + Tn
Cout=Cout + 1
6
DebugPrint a, n, Sn
End Sub
（7）用户可以用 7 语句定义自己的数据类型。
（8）下列程序运行后的输出结果是 8 。
Private Sub f(k,s)
s=1
For j=1 To k
s=sj
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i,s)
Sum=Sum+s
Next
Print Sum
End Sub
（9）函数Int(Rnd10)+10的值为范围是 9 。
（10）有如下 函数过程:
Function gys(By Val x As Integer, ByVal y As Integer) As Integer
Do While y<>0
preminder=x / y
x=Y
y=preminder
Loop
gys=x
End Function
以下是调用该函数的事件过程,该程序的运行结果是 10 。
Private Sub Command1_Click
Dim a As Integer,b As Integer
a=10:b=2
x=gys(a,b)
Print x
End Sub
（11）语句Form2Show 0 表示 11 ;
语句Form3Show 1 表示 12 ;
（12）下列程序的功能是:将数据1,2,…,8写入顺序文件Numtxt中,请补充完整。
Private Sub Form_Click()
Dim i As Integer
Open "Numtxt"For Output As #1
For i=1 To 8
� 13 �
Next
Close #1
End Sub
（13）下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form
Dim Y As Single
Open � 14 �
Y=314159 / 180
For i=1 To 90
KscK=i
KscSinx=Sin(i Y)
KscCosx=Cos(i Y)
� 15 �
Next i
Close #2
End Sub
真题二
一、选择题
在下列各题的A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确的选项涂写在答题卡相应位置上，答在试卷上不得分。
（1）程序流程图中带有箭头的线段表示的是
A)图元关系
B)数据流
C)控制流
D)调用关系
（2）下面不属于软件设计原则的是
A)抽象
B)模块化
C)自底向上
D)信息隐蔽
（3）下列选项中,不属于模块间耦合的是
A)数据耦合
B)标记耦合
C)异构耦合
D)公共耦合
（4）下列叙述中,不属于软件需求规格说明书的作用的是
A)便于用户、开发人员进行理解和交流
B)反映出用户问题的结构,可以作为软件开发工作的基础和依据
C)作为确认测试和验收的依据
D)便于开发人员进行需求分析
（5）算法的时间复杂度是指
A)执行算法程序所需要的时间
B)算法程序的长度
C)算法执行过程中所需要的基本运算次数
D)算法程序中的指令条数
（6）已知数据表A中每个元素距其最终位置不远,为节省时间,应采用的算法是
A)堆排序
B)直接插入排序
C)快速排序
D)B)和C)
（7）栈底至栈顶依次存放元素A、B、C、D,在第五个元素E入栈前,栈中元素可以出栈,则出栈序列可能是
A)ABCED
B)DCBEA
C)DBCEA
D)CDABE
（8）数据库设计包括两个方面的设计内容,它们是
A)概念设计和逻辑设计
B)模式设计和内模式设计
C)内模式设计和物理设计
D)结构特性设计和行为特性设计
（9）关系表中的每一横行称为一个
A)元组
B)字段
C)属性
D)码
（10）设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份z号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字 (键或码)为
A)课号,成绩
B)学号,成绩
C)学号,课号
D)学号,姓名,成绩
（11）下列选项中,不属于模块间耦合的是
A) 数据耦合
B) 同构耦合
C) 异构耦合
D) 公用耦合
（12）设a=5,b=4,c=3,d=2,则表达式3>2b Or a=c And b<>c Or c>d的值是
A) 1
B) True
C) False
D) 2
（13）以下合法的变量名是
A)A%B
B)Test1
C)1cost
D)And
（14）下列程序运行时输出的结果是
Option Base 1
Private Sub Form_Click()
Dim x(10) As Integer,y(5) As Integer
For i=1 to 10
x(i)=10-i+1
Next
For i= 1 to 5
y(i)=x(2i-1)+x(2i)
Next
For i= 1 to 5
Print y(i)
Next
End Sub
A) 3 7 11 45 19
B) 19 15 11 7 3
C) 1 3 5 7 9
D) 不确定的值
（15）在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:
Private Sub Command1_Click()
a=InputBox("请输入日期 (1~31)")
t="旅游景点:"& IIf(a>0 And a<=10, "长城","") &
IIf(a>10 And a<=20, "故宫","") & IIf(a>20 And a<=31, "颐和园","")
Text1Text=t
End Sub
程序运行后,如果从键盘上输入16,则在文本框中显示的内容是
A) 旅游景点:长城故宫
B) 旅游景点:长城颐和园
C) 旅游景点:颐和园
D) 旅游景点:故宫
（16）若要求从文本框中输入密码时在文本框中只显示""号,则应当在此文本框的属性窗口中设置
A)Text属性值为
B)Caption属性值为
C)password属性值为空
D)Passwordchar属性值为
（17）编写如下两个事件过程:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode) 恒转换出来都是大写字母
End Sub
Private Sub Form_Keypress(KeyAscii As Integer)
Print Chr(KeyAscii) 看实际情况~~~~
End Sub
在一般情况下(即不按住Shift键和锁定大写键时) 运行程序,如果按"A"键,则程序输出的结果是
A)AA
B)aA
C)Aa
D)aa
（18）单击滚动条的滚动箭头时,产生的事件是
A)Click
B)Scroll
C)Change
D)Move
（19）当把框架的什么属性设置为False时,其标题会变灰,框架中所有的对象均被屏蔽
A) Name
B) Enabled
C) Caption
D) Visible
（20）要获得当前驱动器应使用驱动器列表框的属性是
A) Path
B) Drive
C) Dir
D) Pattern
（21）在Visual Basic中,组合框是文本框和下列哪一项的特性的组合
A) 复选框
B) 标签
C) 列表框
D) 目录列表框
（22）计时器文件设置时间间隔的属性是
A)Enabeld
B) Index
C)Tag
D) Interval
（23）要使文本框获得输入焦点,则应采用文本框控件的
A)GotFocus方法
B)LostFocus方法
C)KeyPress方法
D)SetFocus方法
（24）在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
c="ABCD"
For n=1 To 4
Print ______
Next
End Sub
程序运行后,单击命令按钮,要求在窗体上显示如下内容:
D
CD
BCD
ABCD
则在______处应填入的内容为
A) Left(c,n)
B) Right(c,n)
C) Mid(c,n,1)
D) Mid(c,n,n)
（25）阅读程序:
Function Fun(a As Integer)
Static c
b=0:b=b+2:c=c+2
F=abc
End Function
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 2
Print Fun(a);
Next
End Sub
运行上面的程序,单击命令按钮,输出结果为
A)8 16
B)9 18
C)10 20
D)7 14
（26）下列程序段的执行结果为
For X=5 To 1 Step -1
For Y=1 To 6-x
Print Tab(Y+5); "";
Next
Next
A)
B)
C)
D)
（27）下列各选项说法错误的一项是
A) 文件对话框可分为两种,即打开(Open) 文件对话框和保存(Save As) 文件对话框
B) 通用对话框的Name属性的默认值为CommonDialogX,此外,每种对话框都有自己的默认标题
C) 打开文件对话框可以让用户指定一个文件,由程序使用;而用保存文件对话框可以指定一个文件,并以这个文件名保存当前文件
D) DefaultEXT属性和DialogTitle属性都是打开对话框的属性,但非保存对话框的属性 下列各选项说法错误的一项是
（28）以下语句中那句可以选择指定的表项或取消已选择的表项
A) 列表框Selected(索引值)
B) 列表框Selected(索引值)=True|False
C) 列表框Selected
D) 列表框Selected=True|False
（29） Sub过程与Function过程最根本的区别是
A) Sub过程可以用Call语句直接使用过程名调用,而Function过程不可以
B) Function过程可以有形参,Sub过程不可以
C) Sub过程不能返回值,而Function过程能返回值
D) 两种过程参数的传递方式不同
（30）要使菜单项MenuOne在程序运行时失效,使用的语句是
A) MenuOneVisible=True
B) MenuOneVisible=False
C) MenuOneEnabled=True
D) MenuOneEnabled=False
（31）设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组说法错误的是
A) 命令按钮的所有Caption属性都是Command1
B) 在代码中访问任意一个命令按钮只需使用名称Command1
C) 命令按钮的大小都相同
D) 命令按钮共享相同的事件过程
（32）以下关系表达式中,其值为假的是
A)"XYZ"< "XYz"
B)"VisualBasic"="visualbasic"
C)"the"<>"there"
D)"Integer">"Int"
（33）在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
c="ABCD"
For n=1 To 4
Next
End Sub
程序运行后,单击命令按钮,要求在窗体上显示如下内容:
D
CD
BCD
ABCD
则在处应填入的内容为
A) Left(c,n)
B) Right(c,n)
C) Mid(c,n,1)
D) Mid(c,n,n)
（34）阅读程序:
Option Base 1
Dim arr()As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer
ReDim arr(3,2)
For i = 1 To 3
For j = 1 To 2
arr(i,j)=i2+j
Next
Next
ReDim Preserve arr(3,4)
For j=3 To 4
arr(3,j)=j+9
Next
Print arr(3,2)+arr(3,4)
End Sub
程序运行后,单击窗体,输出结果为
A) 21
B) 13
C) 8
D) 25
（35）下列程序段的执行结果为
a=3:b=1
For i=1 To 3
f=a + b:a=b:b=f
Print f
Next I
A) 4 3 6
B) 4 5 9
C) 6 3 4
D) 7 2 8
二、填空题
请将每一个空的正确答案写在答题卡序号的横线上，答在试卷上不给分。
（1）测试用例包括输入值集和 1 值集。
（2）在树形结构中,树根结点没有 2 。
（3）数据结构分为逻辑结构与存储结构,线性链表属于 3 。
（4）一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体"项目主管"与实体"项目"的联系属于 4 的联系。
（5）数据库设计分为以下6个设计阶段:需求分析阶段、 5 、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。
（6）设有如下程序:
Private Sub Form_Click()
Dim a As Integer, s As Integer
n=8:s=0
Do
s=s+n:n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是计算1到8的和。程序运行后,单击窗体,输出结果为 � 6 �。
（7）如果不指明函数过程参数的类型,则该参数的数据类型为 7 。
（8）下面运行程序后,单击命令按钮,输出的结果是 � 8 � 。
Private Sub Command1_Click()
Dim a%(1 To 5),i%, s#
For i=1 To 5
a(i)=i
Next
s=Fun(a)
Print "s="; s;
End Sub
Function Fun(a() As Integer)
Dim t#, i%
t=1
For i=LBound(a) To UBound(a)
t=ta(i)
Next
Fun=t
End Function
（9）在Visual Basic的立即窗口内输入以下语句
X=97 <CR>
Chr$(X) <CR>
在窗口中显示的结果是 9 。
（10）下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。
例如: a=5 , n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。
Private Sub Command1_Click()
Dim a As Integer, n As Integer, Cout As Integer
Dim Sn As Long, Tn As Long
Cout=1
Sn=0
Tn=0
a=InputBox("请输入a的值:")
10
Do
Tn=Tn 10 + a
Sn=Sn + Tn
Cout=Cout + 1
11
DebugPrint a, n, Sn
End Sub
（11）在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可以用公式n!/(n-r)!r!计算,下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值,单击Command1按钮即可求出选法的个数,并显示在Text3文本框中(见下图)。请填空。
click()
Private Sub Command 1
Dim r As Integer,n As Integer
n=Text1
r=Text2
Text3=fun(n)/ fun( 12 )/ fun(r)
End Sub
Function fun(n As Integer)as long
Dim t As Long
x=1
For k=1 To n
t=tk
Next
fun=t
End Function
（12）下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。
首先在窗体层定义如下变量:
Dim PaintStart As Boolean
编写如下事件过程:
Private Sub Form_Load()
DrawWidth=2
ForeColor=vreen
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
PaintStart = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If PaintStart Then
PSet (X, Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
13
End Sub
Private Sub Form_DblClick()
Cls
End Sub
（13）有一个事件过程,其功能是:从已存在于磁盘上的顺序文件NM1txt中读取数据,计算读出数据的平方值,将该数据及其平方值存入新的顺序文件NM2txt中。请填空。
Private Sub Form_Click()
Dim x As Single, y As Single
Open "NM1txt" For Input As #1
Open "NM2txt" For Input As #2
Do While Not EOF(1)
� 14 �
Print x
y=x ^2
� 15 �
Print y
Loop
Close #1, #2
End Sub
求采纳为满意回答。
企业资源管理系统 好写些
摘要
随着计算机网络技术的发展与普及，小型ERP（enterprise resource planning）已经成为一个企业管理热点。如何更好地管理企业资源成为各类公司面临的问题。基于网络企业资源管理系统是企业管理的重要组成部分。本文针对津达自行车制造厂当前业务管理方面存在的问题，对基于网络企业资源管理系统的设计与开发进行了较深入的研究，介绍了企业资源管理系统的开发原理、总体规划、设计思想及具体实现过程。从需求分析、功能设计、技术实现方案以及系统的关键技术等几个方面论述了一个完整的基于网络的企业资源管理系统的设计与开发的各个环节。文章对数据库的设计、企业进销存思想进行了较为详细的描述。同时，介绍了系统的测试和安全性技术，对所设计开发的系统作了简单介绍。论文还对系统中存在的问题进行了讨论，对未来的发展和应用前景进行了展望。
--------------------------------------------------------------------------------
正文
第一章 绪论
11概述
111背景综述
计算机应用技术的迅猛发展与日趋成熟为现代企业应用技术的研究与发展带来了新的机遇，如何把计算机和网络技术更有效地引进企业管理领域为企业服务，已成为各级各类企业面临的一个新的课题。从根本上说，企业就是一个利用资源（人、财、物、时间），为客户创造价值的组织，企业资源计划就是对这些资源进行计划、调度、控制、衡量、改进的管理技术和信息系统。现今的企业并不只是人力资源、资金和产品的组合，它还应该包括供应、销售、市场营销、客户服务、需求预测，以及其他更多的东西。
公司目前存在的问题是：信息化不足，计算机使用率低，大量的日常工作皆是手工处理，因此工作效率低落，企业内部沟通不良等等问题很难克服，仓库管理很不合理，不能及时根据需要调整库存。公司希望解决的问题是：一是：缺少一个集成的信息平台和信息系统，而各个业务部门之间缺少信息沟通（即重复劳动）和共享是传统库存管理中资金占用过大的主要原因之一；二是：解决企业内部统一的物料编码管理，物流管理中的信息流通。库存积压与物料的配套问题。三是：完善质量检验，对生产过程中的质量信息进行全面管理，包括原材料、外购外协件、半成品、成品各道工序的质量控制，用户反馈，售后服务，并对各种数据进行统计分析；四是：生产管理，对车间作业进行管理，对施工通知单、设计更改通知单进行制订与查询。五是：销售部门能方便地根据预测信息、各仓库的库存信息和客户的要货情况作出货物的调拨计划和改制计划；六是：随时了解供应商的供货（原材料和外协加工）执行情况、制造车间的加工（合格、报废、返工等）执行情况及公司的各仓库库存情况，以便随时协调或采取合适的补救措施；七是：管理供应商，在供应到货的到期日前，主动与供应商联系，检查及时到货的可能性；同时在物流和信息流上允许供应商的部分零件直接发货到客户处。对供应商的考核从质量、交货及时程度和价格上给出统计数据。八是：计划过程不太理想，无物料清单，凭经验办事；对计划的执行率未作统计；九是：现有量、在制品、再途库存和历史记录等多方位查询需求；十是：库存信息与供应和生产等各部门的及时反馈和共享问题信息查询与决策，对公司的各种资源与信息进行查询，包括销售、采购、生产、质量、人事、财务等信息数据进行查询、统计与分析，对根据信息作出快速合理的经营决策，增强应变反应能力。
企业资源管理系统，企业管理者可以系统市场产品需求信息分析和产品的销售以及产品的库存情况、进行生产和企业投资的规划、安排、管理，也可以及时查看产品的生产情况、企业中的各种资源的查看；各部门通过企业资源管理系统可以很简单实现其职能，如仓库管理员可以记录出入库零件、产品的情况作为以后查询浏览、统计、盘库的基础信息；帮助企业人员分析出教学的薄弱环节等等。
总之，纵观企业综合管理和管理技术的发展，企业资源管理系统已经成为企业管理系统的不可缺少的重要组成部分，成为大多数企业的一种手段，给管理带来极大便利。
112该系统的主要特点
1、 企业资源管理的预测性
系统可以订单、现生产、成品和零件的库存情况，预测自动生成下一步生产安排单，管理者根据实际情况对生产单修改，制订下一步生产。
2、减轻企业管理者和工作人员的工作量
省去管理者对企业各种数据实时的统计、分析。
3、提高企业管理的规范性
减少了人为的书写、计算的错误，各种名称的统一。
4、及时浏览企业信息
数据储存在电脑中，系统可以实时更新，供管理者和各个部门 *** 作人员的浏览。
5、安全保密性
通过使用计算机加密手段以及对企业信息进行的科学管理，使得各个工作人员只能根据自己的权限查看和管理企业信息。在使用结束时， *** 作员退出系统，提高了的保密性。
对于系统企业信息资源的保护旨在两个主要目标：一是保护信息的安全性，即防止未经许可的泄露；二是保护信息的正确性和完整性，即防止做未经许可的修改。
企业资源管理系统以准确、高速、网络化的信息技术为手段，实现企业资源管理的高度自动化和科学化。系统通过提高管理的效率、增强市场的反馈效果、揭示管理者知识能力的局部缺陷，使生产与销售都更有针对性，从而提高了企业管理生产水平，将管理者从单调繁重的劳动中解放出来。
12 ERP系统的发展现状
121国内外ERP系统
。。。。。。。。。。。。。
33系统功能流程图和数据流程图
331系统功能流程图
根据系统总体设计，首先用户必须通过系统验证后才可登录系统。 34质检部子系统功能模块设计
341产品检验管理
一、系统的功能
质检部子系统主要功能包括：
生产线日检：记录不合格工位，原因。
原材料出入库检验
成品出入库检验
统计每日不合格率，月不合格率，不合格都出现在哪些工位，每个工位出错率功能。
1、 生产线日检
表单名：frmPDateCheckfrm；
完成的功能：日检不合格产品的录入；
包括：ID号、产品编号、出错工位、当天日期、备注，对数据的录入。
2、 原材料检验
表单名：frmMaterialCheckfrm；
完成的功能：日检不合格原材料的录入；
包括：ID号、零件编号、零件类型、日期、备注，对数据的录入。
3、 产品检验
表单名：frmPProductCheckfrm；
完成的功能：任何日期检验不合格产品的录入；
包括：ID号、产品编号、出错工位、日期、备注，对数据的录入。
4、 统计
42系统的实现
421企业资源管理系统的主界面
首先在客户段计算机上进入系统的主界面，如图4-1所示。
图4-1 企业资源管理系统主界面
主界面包括进入客户端的相应模块，如质检部包括产品质量检查、废品管理、系统工具等。
422产品质量检查管理
产品质量检查管理包括生产线日检、原材料检测、成品检测、统计
单击生产线日检菜单，输入系统管理员的用户名和密码，选择登录按钮，进入生产线日检界面。
生产线日检界面包括：产品日检出错的工位登记，记录出错产品的编号、工位、个数以及原因；
进入后选择成品编号，填写出错的个数，工位，以及备注，可以输入一条或多条输入数据，最后单击保存按钮，系统自动填写当天日期。
单击原材料检验菜单，进入原材料检验界面，可以记录任意时间损坏材料的情况。
第二章 VB的界面设计
21 VB用户界面设计基础
1 概述
界面的设计有两步：先绘制控件，然后确定控件属性。
绘制控件：在工具箱里单击想画的控件，在窗体里按下鼠标并拖曳，然后松开鼠标即可。确定属性：先选中控件，然后按F4键或单击工具栏上的属性窗口进入属性（Properties）窗口，再在属性窗口中找到要设置的属性并进行设置。
2 常用属性的设置
（1）Name属性
对象都有名字，计算机把名字看成对象于对象之间的根本差异，因此在同一窗体里不许出现重名的情况（除非这是一个控件数组），且名字不得超过40个字。
在简单的程序里，给控件命名不是很必要，完全可以使用控件Name属性的缺省值。例如Text1。但在有几十个控件的复杂窗体里，就很难区分它们。所以，VB推荐由三个小写字母的前缀和一个第一个字母为大写的描述性单词组成的名字。例如cmdMyButton是一个命令按钮（前缀是cmd）
推荐的前缀
对象
前缀
例子
确认框（Check Box）
chk
chkCareerChioce
组合框（Combo Box）
cbo
cboCrimesCommitted
命令钮（Command Button）
cmd
cmdExit
数据库控件（Data Control）
dat
datTopSecretInfo
目录列表框（Directory List Box）
dir
dirTree
驱动器列表框（Drive List Box）
drv
drvHardDisk
文件列表框（File List Box）
fil
filDocuments
窗体（Form）
frm
frm1040Tax
框架（Frame）
fra
fraGroupButtons
水平滚动条（Horizontal Scroll Bar）
hsb
hsbTemperature
图形（Image）
img
imgPrettyDrawing
标签（Label）
lbl
lblFakeName
线（Line）
lin
linBorder
列表框（List Box）
lst
lstCandidates
菜单（Menu）
mnu
mnuHamAndEggs
选项钮（Option Button）
opt
optStation101
图形框（Picture Box）
pic
picPrettyPicture
几何图形（Shape）
shp
shpUpOrShipOut
文本框（Text Box）
txt
txtWarning
垂直滚动条（Vertical Scroll Bar）
vsb
vsbMoneyRaised
以上就是关于VB在保存工程的时候生成了3个文件 ，能解释下这3个文件各有什么用全部的内容，包括:VB在保存工程的时候生成了3个文件 ，能解释下这3个文件各有什么用、在Access数据库中，表就是、计算机二级考试vb 题目要求文件必须存放在考生文件夹下，窗体文件名为jbt_1.frm 那么我保存等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）