vb上机题库及答案

vb上机题库及答案（通用7篇）

篇1：vb上机题库及答案

上机操作练习题

1．某数组有20个元素，其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。

Option explicit Dim a(1 to 20)as integer, I as integer, j as integer, t as integer Private Sub Form_Load()Show Print “原始数组是：” Randomize For i = 1 To 20

a(i)= Int(Rnd * 90)+ 10

Print a(i);If i Mod 10 = 0 Then Print Next i Print Print “现在数组是：” For i = 1 To 10

j = 211

a(k)= a(k + 1)

Next k

ReDim Preserve a(UBound(a)1 End If i = i + 1 Loop While(i <= UBound(a))If flag = False Then MsgBox n & “不在该数组中” Else Print “删除” & n & “后的数组是:” For i = 0 To UBound(a)Print a(i);Next i End If End Sub 3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。

注意：要求利用动态数组，能够实现多次插入 Private Sub Form_Load()Show n = 8: ReDim a(n)a = Array(5, 15, 23, 52, 68, 88, 90, 99)n = n + 1: ReDim Preserve a(n)m = InputBox(“请输入要插入的数据:”)For i = 1 To n1)Next k a(k)= m For i = 1 To n

Print a(i);Next i Print End Sub 4．6个评委为4位歌手打分，分数介于1-100之间。去掉一个最高分，一个最低分，求出每位选手的最后得分。将4位歌手得分从高到低排列输出，同时输出该选手的编号。

如：

歌手3 95分 歌手 1 87分 歌手 4 80分 歌手 2 70分

/ 19

Option Base 1

Private Type geshou

xuhao As String

fenshu(6)As Integer

score As Integer

pingjun As Integer End Type Dim singer(1 To 4)As geshou Private Sub Command1_Click()For i = 1 To 4 For j = 1 To 6

singer(i).fenshu(j)= Int(Rnd * 100)

singer(i).xuhao = “歌手” & i Next Next Call paixu End Sub

Private Sub paixu()Dim p As geshou For i = 1 To 4

For j = 1 To 5

For k = j To 6

If singer(i).fenshu(j)> singer(i).fenshu(k)Then

t = singer(i).fenshu(j)

singer(i).fenshu(j)= singer(i).fenshu(k)

singer(i).fenshu(k)= t

End If

Next

Next Next For i = 1 To 4 For j = 2 To 5

singer(i).score = singer(i).score + singer(i).fenshu(j)Next singer(i).pingjun = singer(i).score / 4 Next

For i = 1 To 3 For j = i To 4

If singer(i).score < singer(j).score Then

p = singer(i): singer(i)= singer(j): singer(j)= p

End If Next

/ 19

Next For i = 1 To 4 Print singer(i).xuhao & “得分：” & singer(i).pingjun Next End Sub Private Sub Form_Load()End Sub 10个评委给10个选手打分 Private Sub Form_Load()Show n = UBound(b)For i = 1 To 10

For j = 1 To 10

a(i, j)= Val(InputBox(“请第” & j & “位评委给第” & i & “位选手打分：”))Next j Next i For i = 1 To 10

max = a(i, 1): sum = 0

min = a(i, 1): ave = 0

For j = 1 To 10

If a(i, j)> max Then max = a(i, j)

If a(i, j)< min Then min = a(i, j)

sum = sum + a(i, j)

Next j

ave =(summin)/(n1

For j = i + 1 To n

If b(i)< b(j)Then

t = b(i): b(i)= b(j): b(j)= t

End If

Next j Next i Print “选手的得分由高到低为：” For i = 1 To 10

Print b(i);Next i End Sub 5．编写函数求一元二次方程ax2+bx+c=0的解。

注意：要求考虑方程有两相等实根、两不等实根和两个虚根的情况。Dim a As Single, b As Single, c As Single Dim s As Single a = InputBox(“请输入a”)

/ 19

b = InputBox(“请输入b”)c = InputBox(“请输入c”)s = b ^ 2Sqr(s))/ 2 * a End If End Sub 6.任意输入一组字符，统计出大写字母多少个，小写字母多少个，数字多少个？要求用过程实现。

Call tongji(a, n, m, o)Print “数字：” & n & Chr(13)& “小写：” & m & Chr(13)& “大写：” & o End Sub Private Sub tongji(a As String, n As Integer, m As Integer, p As Integer)For i = 1 To Len(a)If Asc(Mid(a, i, 1))> 47 And Asc(Mid(a, i, 1))< 58 Then

n = n + 1 ElseIf Asc(Mid(a, i, 1))> 96 And Asc(Mid(a, i, 1))< 123 Then

m = m + 1 ElseIf Asc(Mid(a, i, 1))> 64 And Asc(Mid(a, i, 1))< 91 Then

p = p + 1 End If Next End Sub 7．随机产生一个5*5的矩阵，将主对角线和次对角线元素都置为1，并求出矩阵的四周元素之和，显示在列表框中。

Option Base 1 Private Sub Form_Load()Dim a(5, 5)As Integer Dim s As Integer For i = 1 To 5 For j = 1 To 5

If i = j Or i = 6Asc(Mid(s1, i, 1))+ 64)ElseIf Asc(Mid(s1, i, 1))< 123 And Asc(Mid(s1, i, 1))> 96 Then convert = convert & Chr(1235: g = e

For j = 1 To n

If j > i Then

a(i, j)= 0

Else

If i = j Then

a(i, j)= 1

Else

a(i, j)= a(i1, ji + 1);String(2 *(i1)/ 2 To 1 Step(-1)

c = c + 1

s = Chr(64 + ii + c + 1);String(2 *(j1)/ 2 Else

x = x / 2 End If i = i + 1 Loop

ReDim Preserve a(UBound(a))If y < 0 Then For i = 1 To UBound(a)convert = convert & a(i)Next convert = “-” & convert Else For i = 1 To UBound(a)

/ 19

convert = convert & a(i)Next End If

End Function Private Sub Command1_Click()Dim y As Integer Text1.Text = “" y = InputBox(”请输入十进制数字“)Text1.Text = convert(y)

End Sub

Private Sub Form_Load()

End Sub 14．输入一个整数N，产生N个随机数（范围1—10*N），然后采用任何2种算法实现由小到大的排序。将排序前后的数据显示出来。

Option Base 1 Private Sub Command1_Click()Dim a()As Integer, n As Integer n = InputBox(”请输入数列项数“)ReDim a(n)For i = 1 To n

a(i)= Int(Rnd * 10 * n + 1)

Print a(i);Next Print ReDim Preserve a(n)For i = 1 To n1 For j = 1 To n2)+ fact(n2 s = s1 + s2: t = s2: s2 = s: s1 = t Next End Function

Private Sub Command2_Click()n = InputBox(”请输入n“)Print s(n)End Sub 17.编写2个函数，分别采用递归法和递推法求斐波纳契数列的第n个月的兔子数，n使用inputbox输入，调用函数的结果在窗体上显示。Private Sub Command1_Click()List1.Clear Dim i As Integer For i = Val(Text1.Text)To Val(Text2.Text)If isprime(i)= True Then

List1.AddItem(i)

c = c + 1

If i Mod 10 = 9 Then

/ 19

List1.Selected(c1 If n Mod i = 0 Then

isprime = False

Exit For End If Next End Function 18 Dim sum As Long Private Sub Command1_Click()

Dim i As Integer, j As Integer, a(40)As Long

a(1)= 1

a(2)= 1

For i = 3 To 40

a(i)= a(i2)

Next i

sum = 0

For j = 1 To 40

sum = sum + a(j)

Next j End Sub

Private Sub Command2_Click()

Open ”out18.txt“ For Output As #1

Print #1, ”数列1，1，2，3，5，8…的前四十项的之和是：“

Print #1, sum

Close #1 End Sub 1.百钱买百鸡

Option Explicit

Private Sub Command1_Click()Dim a As Integer, b As Integer For a = 1 To 34

For b = 1 To 20

If 3 * a + 5 * b +(100b)/ 3 = 100 Then

/ 19

Print a;

Print b;

Print 100b

End If

Next b Next a End Sub 2.分钱作业

Private Sub Command1_Click()Dim a As Single,b as single,c as single a = Text1.Text b = Fix(a / 100)Print ”100元：“;Print b c = ab * 50

b = Fix(c / 20)Print ”20元：“;Print b c = c0.05 * b b = Fix((c + 0.005)/ 0.02)Print ”0.02元：“;Print b c = c1

If a(i)= a(j)Then

GoTo aaa

End If

Next j

Next i For i = 1 To 10

Print a(i);Next i Print End Sub

Private Sub Command2_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9

For j = 1 + i To 10

If a(i)> a(j)Then

t = a(j)

a(j)= a(i)

a(i)= t

End If

Next j Next i For i = 1 To 10

Print a(i);Next i Print

End Sub

Private Sub Command3_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9

For j = 1 To 10c)> 10 ^(-5)i =(a + b)/ 2

If i ^ 2c = 0 Then

Exit Do

Else

a = i

End If Loop MsgBox(i)End Sub 7.闰年

Option Explicit

Private Sub 计算_Click()Dim i As Integer i = InputBox(”请输入一个年份“)If i Mod 4 = 0 And i Mod 400 = 0 Then

If i Mod 100 <> 0 Then

MsgBox ”NOT“

Else

MsgBox ”YES“

End If Else

MsgBox ”NOT“ End If

End Sub 8.三角

Option Explicit Private Sub Command1_Click()

/ 19

Dim a As Single Dim b As Single Dim c As Single Dim p As Single Dim s As Single

a = Text1.Text b = Text2.Text c = Text3.Text

p =(a + b + c)/ 2

s = Sqr((pb)* p +(p1

If n Mod i = 0 Then

MsgBox ”NOT“

Exit For

End If Next i If i = n Then

MsgBox ”YES“ End If End Sub

Private Sub Command2_Click()

Dim a As Boolean, n As Double, i As Double a = False n = InputBox(”请输入一个数：“)For i = 2 To n-1

If n Mod i = 0 Then

a = True

Exit For

End If Next i If a = True Then

/ 19

MsgBox ”NOT“ Else

MsgBox ”YES“ End If End Sub

Private Sub Command3_Click()Dim n As Double, i As Double n = InputBox(”请输入一个数：“)i = 2 Do While i < n

If n Mod i = 0 Then

MsgBox ”NOT“

Exit Do

End If i = i + 1 Loop If i = n Then

MsgBox ”YES“ End If End Sub

Private Sub Command4_Click()Dim n As Double, i As Double, sushu As Boolean n = InputBox(”请输入一个数：“)i = 2 sushu = True Do While i < n And sushu = True

If n Mod i = 0 Then

sushu = False

End If i = i + 1 Loop If sushu = True Then

MsgBox ”YES“ Else

MsgBox ”NOT" End If End Sub

/ 19

篇2：vb上机题库及答案

参考答案：

Private Sub Form_Click()

Cls

For i = 1 To 9

For j = 1 To i

Print i * j;“ ”;

Next j

Print

Next i End Sub

2、在工程中，添加一个窗体form2，在窗体上放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。

要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（本题编程完成，满分：30分）

参考答案：

Private Sub Check1_Click()

Text1.FontBold = Check1.Value End Sub

Private Sub Check2_Click()

Text1.FontItalic = Check2.Value End Sub

Private Sub Check3_Click()

Text1.FontUnderline = Check3.Value End Sub

3、在工程中添加一窗体form3，在窗体上按下图放置两个标签和一个文本框，一个列表框和一个命令按钮，各控件的名称属性取默认值。其他属性按下图进行设置。

要求：当用户在文本框输入他的籍贯后，单击“添加籍贯”按钮时，能够将籍贯添加到列表框中。双击列表框中的某一项时将该项删除.（本题：20分）

参考答案：

Private Sub Command1_Click()

List1.AddItem Text1.Text End Sub

Private Sub List1_DblClick()

List1.RemoveItem List1.ListIndex End Sub

4、在窗体form4中建立下图所示的菜单,各菜单项的名称如下：

文件：file，新建：NEW，-：kong1，打开：OPEN，关闭：CLOSE 编辑：EDIT，剪切：CUT，复制：COPY，粘贴：PASTE（本题不用编程，30分）

篇3：vb上机题库及答案

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

3、在一棵二叉树上第5层的结点数最多是(B)注：由公式2（k-1）得 A.8 B.16 C.32 D.15

4、下列关于队列的叙述中正确的是(C)A.在队列中只能插入数据 B.在队列中只能删除数据 C.队列是先进先出的线性表 D.队列是先进后出的线性表

5、对建立良好的程序设计风格，下面描述正确的是(A)A.程序应简单、清晰、可读性好 B.符号名的命名要符合语法 C.充分考虑程序的执行效率 D.程序的注释可有可无

6、下列叙述中正确的是(A)A.线性表是线性结构 B.栈与队列是非线性结构 C.线性链表是非线性结构 D.二叉树是线性结构

7、索引属于(B)A.模式 B.内模式 C.外模式 D.概念模式

8、算法的时间复杂度是指(C)A.执行算法程序所需要的时间B.算法程序的长度 C.算法执行过程中所需要的基本运算次数 D.算法程序中的指令条数

9、软件调试的目的是(B)注：与软件测试要对比着复习A.发现错误 B.改正错误 C.改善软件的性能 D.挖掘软件的潜能

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

11、数据库设计包括两个方面的设计内容，它们是(A)A.概念设计和逻辑设计 B.模式设计和内模式设计

C.内模式设计和物理设计 D.结构特性设计和行为特性设计

12、数据的存储结构是指(B)A.数据所占的存储空间量 B.数据的逻辑结构在计算机中的表示 C.数据在计算机中的顺序存储方式 D.存储在外存中的数据

13、程序流程图（PFD）中的箭头代表的是(B)A.数据流 B.控制流 C.调用关系 D.组成关系

14、下面不属于软件工程的3个要素的是(D)A.工具 B.过程 C.方法 D.环境

15、在结构化方法中，用数据流程图（DFD）作为描述工具的软件开发阶段是(B)A.可行性分析 B.需求分析 C.详细设计 D.程序编码

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

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

18、将E-R图转换到关系模式时，实体与联系都可以表示成(B)A.属性B.关系 C.键 D.域

19、软件调试的目的是(B)注：与软件测试要对比着复习A.发现错误 B.改正错误 C.改善软件的性能 D.挖掘软件的潜能

20、软件需求分析阶段的工作，可以分为四个方面：需求获取、需求分析、编写需求规格说明书以及(B)A.阶段性报告 B.需求评审 C.总结 D.都不正确

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

22、下列叙述中正确的是(A)A.线性表是线性结构 B.栈与队列是非线性结构 C.线性链表是非线性结构 D.二叉树是线性结构

23、在面向对象方法中，一个对象请求另一对象为其服务的方式是通过发送(D)A.调用语句 B.命令 C.口令 D.消息

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

25、数据库概念设计的过程中，视图设计一般有三种设计次序，以下各项中不对的是(D)A.自顶向下 B.由底向上 C.由内向外 D.由整体到局部

26、关系表中的每一横行称为一个(A)A.元组 B.字段 C.属性 D.码

27、数据库概念设计的过程中，视图设计一般有三种设计次序，以下各项中不对的是(D)A.自顶向下 B.由底向上 C.由内向外 D.由整体到局部

28、数据库设计包括两个方面的设计内容，它们是(A)A.概念设计和逻辑设计 B.模式设计和内模式设计

C.内模式设计和物理设计 D.结构特性设计和行为特性设计

29、关系数据库管理系统能实现的专门关系运算包括(B)A.排序、索引、统计 B.选择、投影、连接 C.关联、更新、排序 D.显示、打印、制表

30、设有下列二叉树：图见书P46 对此二叉树中序遍历的结果为(B)A.ABCDEF B.DBEAFC C.ABDECF D.DEBFCA

31、对建立良好的程序设计风格，下面描述正确的是(A)A.程序应简单、清晰、可读性好 B.符号名的命名要符合语法 C.充分考虑程序的执行效率 D.程序的注释可有可无

32、下列关于栈的叙述中正确的是(D)A.在栈中只能插入数据 B.在栈中只能删除数据

篇4：vb上机心得体会

刚开始学习vb的时候，我就觉得大一的计算机基础根本不值一提，难度相去甚远。我问过很多以前的同学，他们都说vb是编程语言中最简单的，但是在这次上机实习过程中，我发现要完成学生成绩管理系统实在有很大难度。平时看课本的时候，觉得还能够理解，看得懂，然而“纸上得来终觉浅”，一旦自己调试程序，总会犯很多错误，如前面说的“文件未找到”“下标越界”等等，都是平时没有机会解决和一些曾经被自己忽视的问题。有时候，为了找到代码中错误或不符合要求的地方，我不得不一遍又一遍地仔细检查程序，甚至标点符号都不能放过。细节决定成败，一个小小的分号也会起着扭转乾坤的作用。

在实习之前，我妄想从网站上下载一个或者请论坛上的好友帮忙，后来我发现这条路走不通，他们从来都不给别人提供实质性的帮助，只是象征性地说：“不会问老师。”于是我打消了这个念头，开始自己动手做。

当我无数次调试总算读出文件的时候，那种高兴劲可想而知。我慢慢觉得，其实自己调试程序蛮有意思的。既弥补了在vb学习中的漏洞，还学到了新内容，积累了一定的实战经验，对以后的期末考试和等级考试起到了相当大的促进作用。

篇5：VB上机实验报告 详细易懂

数组的应用

一、实验目的

1．掌握一维数组的概念、定义、数组元素的引用和初始化。

2．学会用数组和程序基本控制结构实现数据的求和、求平均、求极值和排序等算法程序的设计

3．加深对循环控制结构的理解和使用

二、实验环境

1．计算机

2．Visual Basic 6.0开发环境

三、实验说明

1．熟练运用Visual Basic 6.0开发环境 2．熟悉建立VB应用程序的步骤

3．学会使用一维数组实现简单的应用程序

四、实验内容和步骤

1.实验内容

随机产生10个两位整数，找出其中的最大值、最小值和平均值。2.实验步骤

（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；

（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；

考虑到要在不同的过程中使用数组，所以首先在模块的通用段中声明数组：

Dim a(1 To 10)As Integer 随机整数的生成由窗体的Load事件代码完成：

Private Sub Form_Load()

Dim p As String

Randomize

p = “"

For i = 1 To 10

a(i)= Int(Rnd * 90)+ 10

p = p & Str(a(i))& ”,“

Next

Label1.Caption = LTrim(Left(p, Len(p)– 1))End Sub 求最大、最小以及平均值由“确定”按钮Command2的Click事件代码完成：

Private Sub Command2_Click()

Dim n As Integer, m As Integer, s As Single

min = 100: max = 10: s = 0

For i = 1 To 10

If a(i)> n Then max = a(i)

If a(i)< m Then min = a(i)

s = s + a(i)

Next

Text1.Text = max

Text2.Text = min

Text3.Text = s / 10 End Sub “重置”按钮Command1的Click事件代码：

Private Sub Command1_Click()

Form_Load

Text1.Text = ”“

Text2.Text = ”“

Text3.Text = ”" End Sub 最后是“关闭”按钮Command3的Click事件代码：

Private Sub Command3_Click()

Unload Me End Sub

篇6：ACCESS上机试题及答案3

（1）在考生文件夹下，“samp1.mdb”数据库文件中建立表“tTeacher”，表结构如下。

（2）根据“tTeacher”表的结构，判断并设置主键。（3）设置“工作时间”字段的有效性规则为只能输入上一五月一日以前（含）的日期（规定：本年号必须用函数获取）。（4）将“在职否”字段的默认值设置为真值，设置“邮箱密码”字段的输入掩码为将输入的密码显示为6位星号（密码），设置“联系电话”字段的输入掩码，要求前四位为“010-”，后八位为数字。（5）将“性别”字段值的输入设置为“男”、“女”列表选择。（6）在“tTeacher”表中输入以下2条记录：

第1题分析

本题主要考核点：在一个数据库中添加一个新表、表结构的定义、主键的设置、有效性规则的设置、默认值的设置、输入掩码的设置、查阅向导的使用以及向表中输入记录。

本题解题思路：

第一步：打开考生文件夹下的“samp1.mdb”数据库。

第二步：打开数据库菜单选择“新建(N)”，在弹出的“新建表”对话框中，点击“设计视图”按钮，在弹出的表设计器中按题面要求依次输入各字段的定义。

第三步：主关键字是每个表中能惟一标识每条记录的字段，可以是一个字段，或是一组字段。由表中字段可知，“编号”为该表的主关键字，选中“编号”字段行，点击工具栏上的“主键”按钮。

第四步：选中“工作时间”字段行，再选中下面的“有效性规则”，在右边的框中直接输入“<=DateSerial(Year(Date())-1,5,1)”。

第五步：选中“在职否”字段行，在“默认值”右边的框中输入“True”。选中“邮箱密码”字段行，再选中下面的“输入掩码”，点击右边的“...”按钮，在弹出的“输入掩码”向导中选择“密码”，单击“下一步”按钮，再单击“完成”按钮。选中“联系电话”字段行，再选中下面的“输入掩码”，输入：“010-”00000000。

第六步：选中“性别”字段，在下面的“查阅”选项卡中的“显示控件”选择“列表框”，“行来源类型”中选择“值列表”，“行来源”中输入：男;女。然后以“tTeacher”保存该表。

第七步：向“tTeacher”表中输入题面所要求的各字段的内容。

二、简单应用

考生文件夹下存在一个数据库文件“samp2.mdb”，里面已经设计好三个关联表对象“tStud”、“tCourse”、“tScore”和一个空表“tTemp”。试按以下要求完成设计：

（1）创建一个查询，查找并显示有书法或绘画爱好学生的“学号”、“姓名”、“性别”和“年龄”四个字段内容，所建查询命名为“qT1”。

（2）创建一个查询，查找成绩低于所有课程总平均分的学生信息，并显示“姓名”、“课程名”和“成绩”三个字段内容，所建查询命名为“qT2”。（3）以表对象“tScore”和“tCourse”为基础，创建一个交叉表查询。要求：选择学生的“学号”为行标题、“课程号”为列标题来统计输出学分小于3分的学生平均成绩，所建查询命名为“qT3”。注意：交叉表查询不做各行小计。

（4）创建追加查询，将表对象“tStud”中“学号”、“姓名”、“性别”和“年龄”四个字段内容追加到目标表“tTemp”的对应字段内，所建查询命名为“qT4”。（规定：“姓名”字段的第一个字符为姓，剩余字符为名。将姓名分解为姓和名两部分，分别追加到目标表的“姓”、“名”两个字段中。）

第2题分析

本题主要考的是数据库的查询。

本题解题思路：

（1）点击“查询”，选择“新建(N)”，在弹出的“新建查询”窗体上选择“设计视图”，点击“确定”按钮，然后在弹出的“显示表”窗体上选择“tStud”表，点击“添加”按钮，关闭“显示表”窗体。然后从“tStud”表中选择“学号”、“姓名”、“性别”和“年龄”字段，并选择“简历”字段，把该字段的显示中的钩去掉，然后在“简历”字段的“条件”中输入：Like “*书法*” Or Like “*绘画*”，以“qT1”保存查询。

（2）选择“新建(N)”，在弹出的“新建查询”窗体上选择“设计视图”，点击“确定”按钮，然后在弹出的“显示表”窗体上分别选择“tStud”、“tCourse”和“tScore”表，点击“添加”按钮，关闭“显示表”窗体。选择题目中所说的三个字段，在“成绩”字段的“条件”中输入：<(select avg(成绩)from tScore)，最后以“qT2”保存查询。

（3）选择“新建(N)”，在弹出的“新建查询”窗体上选择“设计视图”，点击“确定”按钮，然后在弹出的“显示表”窗体上分别选择“tScore”和“tCourse”表，点击“添加”按钮，关闭“显示表”窗体。然后点击“查询”菜单中的“交叉表查询”菜单（或点击右键，选择查询类型中的“交叉表查询”）。在字段中选择“学号”，“交叉表”中选择“行标题”；选择“课程号”字段，在“交叉表”中选择“列标题”；选择“成绩”字段，“交叉表”中选择“值”，并在“总计”中选择“平均值”；再选择“学分”字段，并在条件中输入：<3，“总计”中选择“条件”；最后以“qT3”保存查询。

（4）选择“新建(N)”，在弹出的“新建查询”窗体上选择“设计视图”，点击“确定”按钮，然后在弹出的“显示表”窗体上选择“tStud”表，点击“添加”按钮，关闭“显示表”窗体。选择“查询”菜单中的“追加查询”菜单（或者右击鼠标，在弹出的菜单中选择“追加查询”），追加到当前数据库中的“tTemp”表中，点击“确定”。然后从“tStud”选择“学号”字段，再在“字段”行的第二个空格处输入“Left(([姓名]),1)”，第三个空格处输入“Right([姓名],Len([姓名])-1)”，再从“tStud”选择“性别”和“年龄”字段，追加到“tTemp”表对应的字段中，最后以“qT4”保存查询。

三、综合操作

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计了表对象“tEmp”、窗体对象“fEmp”、宏对象“mEmp”和报表对象“rEmp”。同时，给出窗体对象“fEmp”的“加载”事件和“预览”及“打印”两个命令按钮的单击事件代码，试按以下功能要求补充设计：（1）将窗体“fEmp”上标签“bTitle”以特殊效果：阴影显示。

（2）已知窗体“fEmp”的三个命令按钮中，按钮“bt1” 和“bt3”的大小一致、且左对齐。现要求在不更改“bt1” 和“bt3”大小位置的基础上，调整按钮“bt2”的大小和位置，使其大小与“bt1”和“bt3”相同，水平方向左对齐“bt1” 和“bt3”，竖直方向在“bt1” 和“bt3”之间的位置。

（3）在窗体“fEmp”的“加载”事件中设置标签“bTitle”以红色文本显示；单击“预览”按钮（名为“bt1”）或“打印”按钮（名为“bt2”），事件过程传递参数调用同一个用户自定义代码（mdPnt）过程，实现报表预览或打印输出；单击“退出”按钮（名为“bt3”），调用设计好的宏“mEmp”来关闭窗体。

（4）将报表对象“rEmp”的记录源属性设置为表对象“tEmp”。

注意：不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”；不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。

第3题分析

本题主要考的是窗体的设计。

本题解题思路如下：

（1）打开窗体对象“fEmp”的设计视图，选择“bTitle”标签控件，并点击工具栏上的“属性”按钮，特殊效果属性设置为“阴影”。

（2）打开窗体“fEmp”的设计视图，选中“bt2”按钮，并点击工具栏上的“属性”按钮，将命令按钮bt2的“左边距”设置为3厘米，“上边距”设置为2.5厘米，“宽度”设置为3厘米，“高度”设置为1厘米。

（3）打开窗体“fEmp”的设计视图，并点击工具栏上的“属性”按钮，点击“加载”属性右边的“…”打开代码生成器，在“*****Add1*****”与“*****Add1*****”之间输入“bTitle.ForeColor = 255”，保存窗体。

（4）打开窗体“fEmp”的设计视图，选中“bt1”按钮，并点击工具栏上的“属性”按钮，点击“单击”属性右边的“…”打开代码生成器，在“*****Add2*****”与“*****Add2*****”之间输入“mdPnt acViewPreview”，保存窗体。

（5）打开窗体“fEmp”的设计视图，选中“bt3”按钮，并点击工具栏上的“属性”按钮，点击“单击”属性并选择宏“mEmp”，保存窗体。

篇7：会计电算化上机考试试题及答案

一、单选题

1、组成报表的最小基本单位是（d）a,组合单元 b,表体 c，变动单元 d,表单元

2、会计住处系统中的表处理系统一般是一个三维立体报表处理系统，要确定一个数据的所有要素为（a）

a,表名、列、行和表页 b,主标题、副标题、表体、备注

c,标题、表头、表尾、备注 d,表名、列、表尾、备注。

3、在定义报表单元属性中，数值单元输入后只对（d）有效

a,其他报表 b,本表页 c,2张表页 d,所有表页

4、ufo报表中，总账函数“qc”代表的是（c）

a,期末函数 b,对方科目发生函数 c,期初函数 d,净额函数

5、红字余额在计算机内用（d）表示

a,正数 b,红字c,蓝字d,负数

6、期初余额录入完毕后，应该（b）

a,设置凭证类型 b,试算平衡c,输入凭证d,记账

7、若希望某类凭证必须不能出现某一科目，可选择（a）凭证限制类型

a,凭证必无 b,贷方必有 c,凭证必有d,借方必有

8、下列关于记帐操作，错误的是（b）

a,记帐可以在月中进行 b,每月记账可以多次

c,每月记账只能一次 d,未审核的凭证不能记账；

9、（a）提供的是常用会计凭证的模板

a,常用凭证 b,常用摘要 c,自定义项 d,自由项

10、银行对账是将企业的银行存款日记账和（c）进行核对，并生成银行存款余额调节表

a,支票登记簿 b,资金日报表c,银行对账单d,现金日记账

11、设置会计科目编码时，必须是（a）

a,科目全编码 b,明细科目编码 c,一级科目编码 d,助记码

12、信息科学中最重要的两个概念是（a）

a,数据和信息 b,系统和信息 c,系统和数据d,软件和系统

13、如果企业选择了运行广域网的b/s结构的会计软件，还要考虑选择合适的web游览器软件。而如果工作站中包括多种平台，则最好选择（a）a,ie b, outlook c,netscapor d, navigator

14、（a）是一种面向制造业，用来改善和克服制造企业普遍存在的库存量大、资金周转期长、原材料供应不及时、零部件装配中停工待料等问题的一种生产管理技术。

a,物料需求计划（mrp）b，企业战略管理（sem）

c,供应链管理（scm）d, 柔性制造系统（fmc）

15、在会计报表系统中(c)是一种一次设置,长期使用的操作.a，报表维护 b，报表汇总 c，报表格式设置 d，报表编制

16、报表系统中,报表运算公式运算符包括(c)

a，+.*.< b，+.*.>.< c，+._.*./.=.d,.+._.*.>.17、有关报表系统中报表文件名叙述正确的有(b)

a,报表名只能用汉语拼音 b,报表名可以是中文,也可以是西文或汉语拼音的缩写

c,报表名只能用中文 d，报表名只能用西文

18、总账函数“qm”代表的是(a)a,期末函数 b,净额函数 c,期初函数 d,对方科目发生函数

19、凭证体包括的内容有(b)科目.辅助信息和金额.a,附件数 b,摘要.c, 凭证类型 d,制单日期

20、对于网络用户,如果是几个人同时制单,系统将提示一个(d)

a, 0001凭证号 b,固定凭证号 c,空凭证号 d,参考凭证号

21、下列关于会计科目编码设置的描述不正确的是(b)

a, 科目编码必须惟一 b,科目编码应按级次的先后顺序建立

c,各级科目编码必须按会计制度的要求设定 d,科目编码应为全编码

22、转账凭证模板由科目的数据主要是从(b)中提取的a, 报表 b,记账凭证 c, 账薄 d,原始凭证

23、采用序时控制时.凭证日期(b)

a,不受限制 b,应大于系统启用日期c,应小于系统启用日期 d,可以超过业务日期

24、报表系统的数据主要来源于（d）

a,从其他核算系统取数 b.从系统处部取数c,从报表系统自身取数 d,从帐务系统取数

25、报表系统日常工作的处理不包括（）

a,报表输出 b,报表维护c,报表格式设置 d,报表的汇总和分析；

26、目前，多数商品化会计住处系统软件采用的方法是（b）

a,在现金等科目下分类设置明细科目的方法 b,使用调协现金辅助帐的方法

c,设立标志字段的方法 d,采用跟编制资产负债表一样的方法；

27、（d）是反映现金和银行存款科目当日借贷发生额及余额情况的报表。

a,现金和银行存款总帐b,资金余额表c,资金日报表 d,现金和银行存款日记帐；

28、“资金赤字控制”是指制单时，当现金、银行科目的最新余额出现（b）时，系统将予以提示。

a,正数 b,负数 c,大于1000 d,大于100

29、下列（c）不是帐务系统日常业务处理的内容。

a,凭证输入 b,凭证审核 c,期初余额录入d,凭证记帐；

30、记帐操作，每月进行（b）

a,三次b,多次c,一次d,二次；

31、数据处理目的是（c）

a,数据的存储 b,数据的收集和输入 c,数据的加工 d,数据的传送和输出；

32、帐套建立以后如果需要修改，可以由帐套来进行，但下列（d）不能修改。

a,操作人员 b,会计科目c,科目余额 d,启用会计日期；

33、对企业固定资产计提折旧，可以采用（b）

a,简单平均法 b,直接法 c,加权平均法d,使用年限法；

34、采购入库单可以由（b）生成。

a,采购合同 b,采购订单 c,采购退货单 d,采购付款单；

35、存货管理子系统从（d）角度对存货进行管理。

a,物流 b,资金流 c,信息流 d,资金流与物流。

36、使用asp服务（d）

a,只能单机运行b,必须在线运行c,只能在局域网环境下运行d,可以在线运行和单机运行

37、erp（企业源计划），这一观念最初是由（gartner group公司）提出的。

38、通用报表系统中，运算公式实现的主要2种方式：(a)a,通过键盘直接录入方式和系统采用引导输入方式

b,采用复制输入和系统采用引导输入方式

c,采用修改输入和系统采用引导输入方式

d,采用复制输入和修改输入

39、有关会计软件本身配备的表处理系统叙述不正确的有（a）

a,不能进行财务分析 b,可以直接从账务系统中提取数据以生成相应的统计图

c,可以直接从账务系统中提取数据以生成财务报表 d,提供了种类丰富的专用函数

40、报表尺寸定义的目的是（c）

a,定义单元属性 b,定报表的列数 c,确定报表的行数和列数 d,确定报表的行数

41、目前国内流行的通用报表处理软件一般都提供的四种图形分析功能是（d）

a,饼图、点图、折线图、立体图 b,点图、线图、折线图、立体图

c,饼图、点图、直方图、线图 d,饼图、直方图、折线图、立体图

42、计算机账务处理系统（a）会计科目输出对应账簿

a,可在任何一级 b,都不对 c,只能在明细 d,只能在一级

43、（b）是对个人往来款余额的时间分布情况进行账龄分析，以便财务人员及时了解个人往来款的资金另用情况。

a,个人往来催款单 b,个人往来账龄分析 c,个人往来余额表 d,个人往来清理

44、凭证类别只设置一种，通常为（b）

a,付款凭证 b,记帐凭证 c,收款凭证 d,转账凭证

45、对于已作废的凭证，可以退还（d）功能将其彻底删除。

a,凭证审核 b,凭证记账 c,凭证修改 d,凭证删除/整理

46、当输入的科目名称有重名时，系统令（b）

a,自动提示重名科目供选择 b,提示修改重名科目 c,任选一个输入 d,不能退还

47、会计信息系统软件的购销部分一般以（c）核心。

a,采购计划 b,销售管理 c,库存核算 d,采购管理

48、（a）有权在系统中建立企业账套

a,系统管理员 b,企业老总 c,销售总监 d,账套主管

49、调协工资项目属于工资系统（d）

a,日常业务处理 b,期末业务处理 c,系统初始化 d,数据维护

50、固定资产卡片项目定义完毕，系统投放使用后对卡片项目一般（a）

a,可以增删，不可以修改 b,可以修改 c,可以删除 d,可以增加

51、采购与应付系统的主要功能是（b）

a,采购管理 b,采购管理与核算 c,输出反应采购业务的各种报表 d,采购核算

52、销售与应收子系统中使用的库存产品代码（）

a,两组代码是不相同的概念 b,两组代码互不相关

c,不允许在销售系统中进行设置 d,必须与库存管理子系统中的代码保持一致

53、在存货管理子系统中，不能根据（c）生成会计凭证

a,采购入库单 b,材料书库单 c,存货调拨单 d,销售出库单

54、在会计信息系统建设过程中和软件选型同步进行的是（b）

a,管理持续改善 b,人才建设 c,基础工作规范化 d,硬件平台配置

55、在供应链管理系统中，供应链是（d）

a,企业内部的购销存 b,企业内部的物流 c,企业内部的物流与资金流 d,围绕核心企业的网链关系

56、报表中行高列宽的单位是（毫米）

57、偏移量的单位是（像素）

二、多选题

1、报表系统中，表元的数据源包括（abcd）

a,从报表系统自身取数 b，从帐务系统取数

c，从系统外部取数 d，从软件其他模块取数

2、有关报表输出功能命运述正确的有（abc）

a,可以打印输出 b，一般都提供打印设置功能

c，可以屏幕显示输出 d，不能打印空表

3、“收款凭证”类别设置限制类型为“借方必有”，则应选择（ac）科目

a，银行存款 b，应收帐款

c，现金 d，应付帐款

4、下列哪些情况可以实现凭证的无痕迹修改。（cd）

a，审核并经过记帐的凭证 b, 经过结帐后的凭证

c，输入后，末审核记帐的凭证 d，已审核但末记帐的凭证

5、一个报表的标题包括下列（abcd）

a,报表名称 b,报表编制日期 c,编制单位 d,使用货币单位

6、有关报表系统中单元属性叙述正确的是（acd）

a,字符单元输入后只对本表页有效 b,格式状态下输入内容的单元均默认为表样单元 c,表样单元输入后对所有表页有效 d,数值单元输入后只对本表页有效

7、项目核算的主要内容包括（ac）

a,项目账的输出 b,项目统计表 c,项目账核对 d,项目执行计划报告

7-1项目管理的主要内容包括：以上的bd

8、总账系统的日常业务处理包括（bcd）

a,结账 b,记账 c,填制凭证 d,凭证审核

9、个人往来核算功能包括（ab）

a,个人往来余额表 b,个人往来明额账 c,个人往来催款单 d,个人往来清理e个人帐龄分析

9-1个人往来管理包括以上的（cde）

10、系统的基本构成大致可以分成三部分即（abc）

a,系统 b,系统的周围环境 c,系统内部的各个子系统 d,数据

11、增加系统操作员时，必须指定基本的信息有（abd）a,操作员编号 b,操作员姓名 c,所属账套 d,操作员密码

12、固定资产的代码采用群码方式，一般固定资产代码由（abcd）构成a,类别码 b,使用情况码 c,使用部门码 d,每项固定资产的顺序码

13、选择国内会计软件可能的风险有（abcd）

a,随着工厂技术的发展，软件也会面临更新换代问题，国内会计软件在动态适应企业变化方面有待于进一步提高。

b,供应商实力良莠不齐，某些开发商发展不是十分稳健长期合作存在隐患。

c,软件购置费用及年维护费用远远大于自行开发的费用软件功勇的全面集成性稳定性不能满足某些企业的需要。d往往局限于企业当前的业务环境和管理要求，其管理思想的体现只能取于当前的管理人员和软件开发人员，往往起点较低经不起时间的考验。

三、判断题

1、销售部门和销售人员的编码一旦设定并使用，应该既不允许删除也不允许修改（对）

2、ufo报表中，日期养分字可以确认报表数据取数的时间范围，即确定数据生成的具体日期。（对）

3、会计报表软件的工作流程可分为四步，即报表格式及数据处理公式设置、报表名称登记、报表编制、报表输出。（对）

4、已使用的会计科目可以删除。（错）

5、若期初余额，则必须有本币余额。（对）

6、红字余额负数表示（错）

7、在用友u8软件中，可以只设置一种凭证类型，即“记帐凭证”类型。（对）

8、会计信息一般直接来源于记录在“单、证、帐、表”上各种原始会计资料。（错）

9、企业基础信息设置既可以在公共管理模块中进行，也可以在进入各个子系统后进行设置，其结果都有是由各个模块共享（对）

10、在发生销售退贷时，用户可以直接输入退货单，而无需调出原销售发票。（错）

11、供应链管理是“纵向一体化”管理思想的典型代表（错）

12、会计报表按编制单位分为单位会计报表和汇总会计报表（对）

13、ufo报表中舍位平衡公式中可以使用如“+”“/”“＊”等任何运算符号（对）。

14、已有余额的科目不能直接删除。（对）

15、设置科目编码时，各级科目编码必须惟一（对）。

16、期末转账业务通常是企业在每个会计期间结账前都要进行的固定业务（对）。

17、在用友u8软件中，可以自定义凭证类型（对）。

18、发现销售退货时，用户可以直接输入退货单，而无需调出原销售发票（错）。

19、采购入库单可由采购发票或采购订单完成。（对）

20、mrpii的销售管理子系统中不包括客户关系管理。（错）

21、同一报表不同时期的汇总只是进行数据叠加。（对）

22、报表的单元是指行和列确定的方格。（对）

23、凭证经审核签单后，只有取消审核才能修改和删除。（对）

24、手工输入的记账凭证需要审核，机制凭证不需审核。（错）

25、银行对账功能通常由出纳人员在会计期末进行。（对）

26、计算机会计信息系统的数据处理方式一般是由在程序控制下的计算机快速自动完成（对）。

27、账套主管自动拥有管辖帐套所有模块的操作权限（对）。

28、进行固定资产明细分类核算通常按每一独立的固定资产项目（连同附属设备）设置固定资产名片（对）。

29、销售即使钱货两清的销售业务也必须输入收款单，否则将会出错（对）。