vb技能考试试题及答案-盘古文库

vb技能考试试题及答案

资料大全

来源：火烈鸟

作者：开心麻花

2025-09-19

vb技能考试试题及答案（精选8篇）

vb技能考试试题及答案第1篇

VB试卷

一、单项选择题(每题2分,共40分)1.窗体的标题栏显示内容由窗体对象的属性决定。

A)BackColor B)BackStyle C)Text D)Caption 2.窗体的示意图标可用属性来设置。

A)Picture B)Image C)Icon D)MouseIcon 3.窗体的控制菜单的有无由窗体对象的属性决定。

A)ControlBox B)MinButton C)MaxButton D)BorderStyle 4.若要取消窗体的最大化功能，则可设置属性为False来实现。

A)ControlBox B)MinButton C)MaxButton D)Enabled 5.以下4个选项，不属于VB的工作模式。

A)编译 B)设计 C)运行 D)中断 6.窗体的边框样式由窗体对象的属性来设置。

A)BackStyle B)BorderStyle C)WindowState D)FillStyle 7.若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。

A)FontName B)Font C)FontSize D)FontBold 8.命令按钮的标题文字由属性来设置。

A)Text B)Caption C)Name D)(名称)9.VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。A)变量 B)属性 C)事件 D)方法

10.若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。A)Value B)Cancel C)Default D)Enabled 11.若要使命令按钮不可见，可设置属性为False来实现。

A)Value B)Enabled C)Visible D)Cancel 12.运行程序时，系统自动执行窗体的事件。

A)load B)click C)unload D)GotFocus 13.若要设置文本框最大可接收的字符数，可通过属性来实现。

A)MultiLine B)Length C)Max D)MaxLength 14.若要使某命令按钮获得控制焦点，可使用方法来设置。

A)Refresh B)SetFocus C)GotFocus D)Value 15.若要使命令钮可响应事件，可通过设置属性的取值来实现。

A)Visible B)Enabled C)Default D)Value 16.在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的属性为True来实现。

A)Enabled B)Value C)Default D)Cancel 17.标签框的边框，由属性的设置值决定。A)BorderStyle B)BackStyle C)BackColor D)AutoSize 18.标签框文本的对齐方式由属性来决定。

A)Align B)Alignment C)Autosize D)BackStyle 19.标签框所显示的内容，由属性值决定。

A)Text B)Name C)Caption D)Alignment 20.在运行时，若要获得用户在文本框中所选择的文本，可通过访问属性来实现。A)SelStart B)SelLength C)Text D)SelText

二、填空题(每题2分,共20分)1.Visual Basic是一种面向的可视化程序设计语言，采取了的编程机制。2.在VB集成开发环境中，运行应用程序的方法有两种是：或。

3．Visual Basic的对象主要分为和两大类。

4.在Visual Basic中，用来描述一个对象外部特征的量称之为对象的。

5.在Visual Basic中，设置或修改一个对象的属性的方法有两种，它们分别是和。

6.在Visual Basic中，最基本的对象是。

7.在Visual Basic中，默认窗体名为，默认工程名为。8.若用户单击了窗体Form1，则启动的事件名为。9.调用方法的具体调用格式为。10．在代码中设置对象属性的格式为。

三、简答题(每题8分,共40分)1.简述VB的特点。

2.安装Visual Basic系统程序应具备什么条件？ 3.启动Visual Basic有几种方法？ 4．退出Visual Basic有几种方式？

5．什么是对象？什么是类？简述它们之间的关系。参考答案:

一、单项选择题

1.答：D 2.答：C 3.答：A 4.答：C 5.答：A 6.答：B 7.答：C 8.答：B 9.答：A 10.答：C 11.答：C 12.答：A 13.答：D 14.答：B 15.答：B 16.答：B 17.答：A 18.答：B 19.答：C 20.答：D

二、填空题

1.答：对象，事件驱动

2.答：编译运行模式、解释运行模式

3.答：窗体、控件 4.答：属性

5.答：在设计阶段利用属性列表框进行设置、在程序中通过程序代码进行设置 6.答：窗体

7.答：Form1、工程1 8.答：Click 9.答：对象名.方法名［参数名表］ 10．答：对象名.属性名＝属性值

三、简答题

1.答：Visual Basic是Microsoft 公司与1991年推出的基于Windows环境的语言，其主要特点如下：

(1)方便、直观的可视化的程序设计工具；

(2)面向对象的程序设计方法；

(3)事件驱动的编程机制；

(4)结构化程序设计语言；

(5)强大的数据库访问能力；

(6)提供强大的网络功能，并具备完备的联机帮助功能；

(7)强大的数据库管理和存取操作的能力。2.答：任何一个软件都要占用计算机系统一定的资源，因此对计算机系统都有一定的要求，Visual Basic系统程序对计算机系统的要求如下：

硬件要求：586以上CPU，16MB以上内存，100MB以上硬盘等。软件要求：Windows 95/98/2000/XP或Windows NT。3.答：通常有以下三种启动方式：

(1)通过“开始”按钮：单击桌面上的“开始”/“程序”菜单，然后打开“Microsoft Visual Studio 6.0中文版”子菜单中的“Microsoft Visual Basic 6.0中文版”程序，即可启动VB 6.0。

(2)利用快捷方式：若桌面上有VB 6.0的快捷图标，双击快捷图标也可启动VB 6.0。(3)利用运行命令：当VB系统软件安装在C盘默认路径下时，可以在“开始”菜单的运行对话框中输入如下命令来启动VB 6.0。

C:Program FilesMicrosoft Visual StudioVB 98VB6.exe。4．答：通常有四种方式：

(1)利用文件菜单：单击菜单“文件”/“退出”，即可退出VB环境。(2)利用快捷方式：利用快捷键Alt+F4，即可退出VB环境。(3)利用标题栏：鼠标右击标题栏，选择“关闭”，即可退出VB环境。

(4)利用关闭按钮：鼠标单击窗口右上方“关闭”按钮，即可退出VB环境。

5．答：对象(Object)是包含现实世界物体特征的抽象实体，反映了系统为之保存信息和与之交互的能力。每个对象有各自的内部属性和操作方法，整个程序是由一系列相互作用的对象构成的，对象之间的交互通过发送消息来实现。

类(class)是指具有相同的属性和操作方法，并遵守相同规则的对象的集合。从外部看，类的行为可以用新定义的操作(方法)加以规定。

类是对象集合的抽象，规定了这些对象的公共属性和方法；而对象是类的一个实例。

vb技能考试试题及答案第2篇

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 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

vb技能考试试题及答案第3篇

1 对象与方法

1.1 对象

2009社区医学专业学生，70人，年龄在15～18岁。

1.2 考试形式

本课程的技能考试单列，百分制，只有技能考试通过后方可参加理论考试。考试内容由四部分组成：绘图、大体结构辨认、显微镜下结构辨认、其他。其他包括：显微镜操作、体表投影、活体触摸。四部分满分依次是20分、35分、25分、20分。考试在期末进行，每个学生每部分考试均以抽签为序。

1.3 考试内容

(1) 绘图，既有大体形态结构图，又有镜下结构图。如胆道系统、心模式图、单层扁平上皮类别图等。 (2) 结构辨认，找出大纲要求的大体形态和微细形态的结构辨认。 (3) 其他，如显微镜的使用、重要脏器的体表投影、动脉的搏动、神经的走行等。

2 考试结果

分值以100%计，成绩占本项分值80%以上为优秀，70%～79%为良，60%～69%为中，占59%以下为差。每生四项合计过60分为及格。统计结果：及格率96.7%，绘图优秀率71.1%，大体辨认优秀率85.4%，镜下结构辨认优秀率75.2%，其他优秀率61.4%。

3 讨论

3.1 实践技能考试后，给我们的教学效果和对学生的技能锻炼增加了一项新手段，一改以往对学生技能检测的空白。

通过技能考试，我们可以进一步强化课时目标的落实，加强学生实践技能即科学思维统筹能力、动手操作能力和综合分析能力的培养。

3.2 考试成绩分析

在技能考试中，只需简单记忆，并在技能训练中反复对实物进行观察，而考试中只需客观表示出答案的内容，成绩较好，如大体结构辨认，相比因微细结构训练受限，成绩略差；书本上有现成内容、在训练中练习过、考试中需自己动手表示出来的答案，成绩居三，如绘图；将理论知识、实际操作能力和综合分析能力综合在一起的考试内容，既要客观反映结果，又要主观综合表示答案的，成绩最差，如体表投影等。

3.3 存在问题及解决办法

(1) 考试结果表明，多数学生缺乏实践技能完整性，在实践技能训练中，只重视客观再现、单纯记忆，而缺乏理论与实际的有机结合、形成“活”的知识。这要求在授课中，教师一定要把前后知识点串在一起，时时温故、更新，形成脉络，能在活体触到的结构，随堂解决，不要拖延和淡化。 (2) 合理、有效安排技能课时间。理论课与技能课比例2∶1，技能课紧跟在理论课之后，并要求同理论课一样的严格。 (3) 开放实验室，增加学生自主参与空间。实验室管理正规化、专业化、严格化。配备专门、专业的实验师，实验师到高校进修过，有制作标本和切片的经历，对学生的疑问能做出简洁的回答。必要时可以让学生参与到标本的制备过程。 (4) 安排授课教师每周两次晚自习辅导时间，及时反馈与解决授课中存在的问题。

摘要：解剖学与组织胚胎学是医学基础课的基础, 属形态学范畴, 直观性是其特点, 为达到知识活化, 有效的为其他学科做基础, 增设此学科技能考试, 尤显重要。本文从实施入手, 据结果分析, 有针对性的提出解决问题的办法。

化学操作技能考试常见问题及对策第4篇

关键词:规范操作;定性分析;定量分析

广东省中等职业技术教育专业技能课程考试中的化学考试主要是考查学生对化学基本知识以及基本实验知识的掌握程度和操作水平,而化学操作技能考试旨在测试学生对基本实验技能和操作技术的综合运用能力。考核时,学生每完成一个实验项目的各项操作,都要由考官检查实验结果的正确与否和实验过程中基本操作技术的正误。化学操作技能主要应对化学分析(又称化验),它综合了化学、数学和物理等多方面的知识,用以鉴定物质的组成,测定物质各组成部分的含量。前者称为定性分析,后者称为定量分析。

为使学生切实强化化学操作技能,并在今后的职业生涯中顺利地利用这项技能,笔者认为必须针对操作的规范和准确性,进行必要的研讨,同时作出有实效性的对策,以提高化学实验的定性与定量的精确度与准确度。

一、技能实操中存在的问题

在化学技能实操考试中存在着许多不规范操作,特别表现在一些细节方面。这些细节错误如果不能及时纠正,将会影响到实验结果的精确度与准确度,而在考试评分中,实验结果的精确度与准确度占有20分。这些细节问题,主要有以下几方面表现:(1)用毛巾擦拭移液管、滴定管,可能污染试剂,特别是用毛巾擦拭移液管、滴定管嘴或顶端;(2)许多考生没检漏,即使有检漏,检漏液面也没超过“0”刻度,或者检漏时间非常短;(3)许多考生把洗瓶嘴伸入到容器内进行吹洗;(4)润洗过程中,润洗液倒出的次序不正确;(5)润洗过程中排空气时机不正确;(6)调零的方法不正确;(7)棕色滴定管读数不正确。

二、存在问题的原因分析

存在以上不规范操作的原因,概括起来可能有以下几方面:

1.考生在培训时没有认真听讲,没有认真观察培训老师示范的操作动作要领;

2.考生在实训过程中没有对每个动作认真分析,没有充分理解每个动作的真正意义;

3.实训指导老师可能也不够专业,对滴定分析中的部分操作不规范,造成考生的不正确操作。

三、解决问题的对策

1.准确理解量的概念。

化学技能考试主要是定量分析的试题,测量结果准确性、可靠性可用以判断考生的等级。辅导老师在进行化学分析实操过程中一定要让学生注意量的概念,在测量试样的过程中,任何对测量结果可能造成影响的操作都要纠正并规范,如:用毛巾擦拭移液管、滴定管,可能污染试剂,特别是用毛巾擦拭移液管、滴定管嘴或顶端,对测量结果一定有影响;称量时戴着手套去拿外壁有水的锥形瓶,使手套有水,再去拿称量瓶,一定会使称量不准确,造成的误差是非常大的。

2.正确使用滴定管。

(1)检漏:滴定管在用洗滴液洗涤、自来水洗涤完后,要及时装满自来水进行检漏。检漏时间一般至少5分钟,检漏时液面要超过“0”刻。这样做的目的是:①可以节约蒸馏水;②保证滴定管嘴承受的压力与滴时的压力一样大,从而正确判断滴定管是否有漏。如果是用酸式滴定管检漏时,还必须使活塞一定要关死。在实际操作中,许多考生没检漏,或者即使有进行检漏,检漏液面也没超过“0”刻度,或者检漏的时间非常短。

(2)蒸馏水洗涤:在往滴定管加蒸馏水时,洗瓶嘴不能伸进管内。每次加入蒸馏水后,应先从管嘴放出一部分水,保持滴定管竖直。然后再慢慢放平滴定管,同时不断地转动滴定管,把管内另一部分水从上端倒出。在进行三次蒸馏水洗涤中,可以在任何一次进行排空气。在实际操作中,许多考生把洗瓶嘴伸入到容器内吹洗,这是错误的,因为洗瓶嘴不一定是干净的,如果洗瓶嘴不干净,就可能造成对试剂的污染。

(3)润洗:每次在滴定管加入试液后,应先从管嘴放出一部分试液,保持滴定管竖直,然后再慢慢地放平滴定管,同时不断地转动滴定管,把管内另一部分试液从滴定管上端倒出。

(4)粗调:润洗完后,应加满试液,再把液面调至“0”刻度附近(此为“粗调”)。如果液面离“0”刻度太高,不进行粗调,就会造成在细调时,滴定管壁吸附试液过多,影响读数的准确。

(注: 蒸馏水洗涤或润洗后,若滴定管外壁有水或试液,必须用滤纸擦拭,不能用其它不干净的毛巾等物体擦拭,以免造成污染。)

3.注意滴定过程的细节。

(1)滴定:滴定前,滴定管一定要调一次零(此为“细调”)。左手握滴定管开关,右手拿锥形瓶,在放液之前用锥形瓶的外壁去靠滴定管嘴。目的是把滴定管嘴上没计算体积的半滴靠掉(不管能不能看到半滴都一定得靠),这称为“外靠”。滴定进行过程中,如中途想暂停滴定,一定要用瓶的内壁把滴定管嘴上的半滴靠入瓶内后才能暂停滴定,这称为“内靠”。滴定至接近终点时,一定要进行半滴滴定,即滴定管慢慢挤出半滴后“内靠”,再摇一下锥形瓶观察瓶内试液颜色变化至终点颜色。许多考生在滴定管装试液时就调好零,而在滴定前一刻没调零,滴定过程中没有“外靠”与“内靠”,滴定终点时没进行半滴滴定,结果造成实验不成功。

(2)读数:读数时,滴定管一定要保持竖直。为了让滴定管保持竖直,只能用大拇指与食指捏住滴定管(其他手指不能碰滴定管),并且手指握的位置应在液面之上,使眼睛视线与液面的凹面下线(白色滴定管读凹面下线,棕色滴定管读液面上线)保持水平,进行读数,读完马上记录。读数应保留小数点后两位数,最后一位数是估读数,0～9中任意一个数都有可能,而不能都是“0”或“5”。

4.其它应该注意的问题。

用量筒量取试剂时,由于量筒只是粗略地量取溶液,许多考生在用试剂瓶向量筒倒试剂时,普遍存在一些问题。例如量筒量取50mL水,太过于小心,当倒多了点,就把试剂从量筒里倒出来,而又控制不好,却倒出来多了些,量筒的试剂又不够了,又往量筒里加水,又加多了,如此反复多次,浪费了大量时间。而实际量取时,只需量50mL左右就够了。

(作者单位:佛山市顺德区勒流职业技术学校)

VB期末考试试卷及答案第5篇

一·选择题

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】

【4】

Then k= k+1

Print a(j)

Next j

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

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

vb技能考试试题及答案第6篇

(1)在名称为Forml，标题为“输入”、最大化按钮不可用的窗体上画1个名称为Framel的框架控件，其标题为“选择性别”;再向框架内画两个名称分别为Optionl和Option2的单选按钮，其标题分别为“男”和“女”，并将单选按钮Option2设置为选中状态。请设置相应属性使得程序执行时，窗体界面如图所示。

注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjtl.frm，工程文件名为sjtl.vbp。

(2)在名称为Forml的窗体上画1个名称为Labell的标签，其标题为“计算机等级考试”，且能根据标题内容自动调整大小，有边框(如图所示);再在窗体上画1个名称为HScrolll的水平滚动条，并将滚动条所能表示的最小值设置为

10、最大值设置为20。

要求：编写适当的事件过程，使得程序运行时，当单击水平滚动条两端的箭头时，能将标签中的文字大小设置为滚动框当前位置值，程序运行后的界面如图所示。

注意：程序中不得使用变量，每个事件过程中只能写一条语句(不得使用选择语句或循环语句)。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

二、简单应用题

(1)考生文件夹中有工程文件sjt3.vbv。窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。运行窗体如图所示。

要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。

注意：考生不得修改窗体文件中已经存在的控件和程序。最后程序按原文件名存盘。

(2)考生文件夹中有一个工程文件sjt4.vbp。窗体上有两个文本框和一个标题为“运算”的命令按钮。程序的功能是，当程序运行时，单击“运算”按钮，能够产生10个1～100之间的随机整数，并显示在上面一个文本框中，然后，程序从中找出一个最大值，并将最大值与第1个数互换位置，最后把结果显示在下面一个文本框中。下图为程序某次运行的结果。程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。

注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。

三、综合应用题

考生文件夹下有工程文件sjt5.vbp，窗体界面如图所示。考生文件夹下的in5.dat文件中有某次歌睦大奖赛10位选手的得分，文件中的每一行数据包含选手的编号及5位评委的打分。程序运行时，单击“显示数据”按钮，则将in5.dat文件的内容读入二维数组a中，并将数组a各元素的值显示在Textl文本框中;单击“计算并排序”按钮，则先计算每位选手的平均分作为最后得分，再按最后得分从高到低排序，最后按序在Listl列表框中显示各选手的编号和最后得分(每组编号和最后得分用空格隔开作为一行)。单击“保存”按钮，则保存结果。“显示数据”和“保存”按钮的Click事件过程已经给出，请编写“计算并排序”按钮的Click事件过程实现上述功能。

注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须单击“计算并排序”按钮后，再单击“保存”按钮保存结果，否则无成绩。最后，程序按原文件名存盘。

参考答案及解析

一、基本操作题

(1)【解题思路】新建一个空白窗体，添加一个框架控件和两个单选按钮控件，设置窗体和控件的相关属性值。

【操作步骤】

步骤1：新建一个“输入”、最大化按钮不可用的窗体，相关属性设置如表4.1所示。

步骤2：向窗体中添加一个框架控件和两个选项按钮，并设置好相关属性，如表4.2所示。

设置完成后效果如图4.1所示。

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

(2)【解题思路】新建一个空白窗体，添加一个标签控件和一个水平滚动条控件，设置好该控件的相关属性，最后通过水平滚动条的change事件，将标签控件的fontSize属性设置为滚动条的value值。

步骤3：添加一个水平滚动条，设置控件的相关属性，如

表4.4所示。

设置完成后，窗体运行效果如图4.2所示。

步骤5：调试并运行程序，关闭程序后按题目要求存盘。

二、简单应用题

(1)【解题思路】本题主要考查对列表框控件的使用，包括向列表框中增加项目，从列表框中删除项目。修改列表框中选中项目的值。

第一个空使用列表框的Text属性，该属性的值为最后一次选中的表项的文本。

第二个空使用列表框的Lisflndex属性，该属性的值是已选中的表项的位置。

第三个空判断Text1文本框中的内容是否为空。

第四个空表示当列表框中无选中项目时，将Text1中的内容添加到列表框的最后。

第五个空表示将Text1文本框中的文本替换为列表框中选中的项目，使用列表框的List和ListIndex属性。

步骤3：调试并运行程序，关闭程序后按题目要求存盘

(2)【解题思路】本题主要考核对数组中元素的基本操作，利用循环语句找出数组中的最大值，并将保存最大值和其所对应的下标，然后将最大值与数组中的第一个元素进行互换操作。

三、综合应用题

【解题思路】本题主要考核列表框控件的基本操作，在事件过程中利用循环结构对二维数组中的元素求平均值，并将结果添加到列表框中，然后利用二重循环结构对列表框中的元素进行降序排列。

vb技能考试试题及答案第7篇

(2)在 Form1 的窗体上绘制一个名为 Lab1 的标签框，设置相关属性，使标签有框架。然后建立一个名为 mnuOp 的主菜单，其标题为“操作”，该菜单有两个名称分为 mnuOpDis 和 mnuOpHide 的菜单项，其标题分别为“显示”和“隐藏”。编写适当的事件过程，程序运行后，若单击“操作”菜单中的.“显示”命令，则在标签框中显示“二级 Visual Basic”;如果单击“隐藏”命令，则隐藏标签框。注意：程序中不得使用任何变量;文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp，窗体文件名为 vbsj2.frm。

第1小题

【审题分析】要实现本题要求的功能，只需在命令按钮的单击事件过程中，设置命令按钮的 Left 属性值增加50。

【操作步骤】

步骤1：新建一个”标准 EXE“工程，在窗体中画一个名 Cmd1 命令按钮，并设置其Caption 属性值为”移动按钮“。

步骤2：打开代码编辑窗口，编写命令按钮的 Click 事件过程。

参考代码：

Private Sub Cmd1_Click()

Cmd1.Left = Cmd1.Left + 50

End Sub

步骤3：按要求将文件保存至考生文件夹中。

第2小题

【审题分析】本题需用菜单设计器建立菜单，并编写”显示“和”隐藏“菜单项的单击事件过程。

【操作步骤】

步骤1：新建一个”标准 EXE“工程，在窗体 Form1 中画一个标签，在属性设置窗口中将其 Name 属性值设置为 Lab1，Caption 属性设置为空白，BorderStyle 属性设置为 1-Fixed Single。

步骤2：选择【工具】、【菜单编辑器】命令，打开菜单设计器，按表 53-1 中的设置建立菜单项。

表 53-1

步骤3：打开代码编辑窗口，编写以下事件过程：

参考代码：

Private Sub mnuOpDis_Click()

Lab1.Visible = True

Lab1.Caption = ”二级 Visual Basic“

End Sub

Private Sub mnuOpHide_Click()

Lab1.Visible = False

End Sub

vb技能考试试题及答案第8篇

随着高校计算机基础教学改革的深化,计算机基础教学正朝着科学化、规范化的方向发展。为适应该发展趋势、大力推进计算机基础课程教学的改革,从计算机“程序设计基础”课程考试方式和手段入手,积极探索由传统的纸笔方式过渡到无纸化、网络化上机考试方式的实现方法。

由于传统的考试方法主要考查学生的理论知识,对操作技能反映不足,使学生学习兴趣调动不够、开发能力受到了质疑,特别是随着计算机网络的发展,无纸化办公、高考网上阅卷的开展、面向对象程序设计语言的普遍开设,为计算机程序设计基础课程的无纸化、网络化考试创造了良好的环境,许多高校及软件公司,近年来在这方面做了许多有益的尝试,取得了很好的经济与社会效益。可以说,无纸化、网络化的计算机考试是顺应社会发展的一个产物,也是计算机基础课程考试的必然趋势。

在教学过程中传统考试涉及环节多(命题、印卷、考试、阅卷、成绩统计等)、过程繁琐、工作量大、试卷分析缺乏准确性,而且极易出现错误。试卷分析往往只对总分进行简单的分数段统计、平均分计算等大致分析,对涉及试卷质量的深层指标如均方差、信度、效度分析等有效指标很难涉及。如果实行无纸化、网络化考试则这些工作就容易解决。从2005年开始,就致力于这方面的工作,先后研发了延安大学C语言程序设计考试系统、C++程序设计考试系统、Visual Basic程序设计考试系统等。以Visual Basic程序设计上机考试系统为例,介绍计算机程序设计基础课程上机考试系统研发过程中的相关问题以及解决方法。

1 系统的设计目标及组成

1.1 系统设计目标

由于本系统主要应用于Visual Basic程序设计课程教学的考查及考核工作,根据这一实际应用要求确定了系统设计的两个目标,即实用性和健壮性。

(1)实用性:

本系统能够极大地提高评阅工作效率,解决人工评阅的多种弊端。通过考试方式的转变,极大地提升大学生计算机程序设计的应用操作能力。

(2)健壮性:

对于大规模的计算机程序设计基础课程考核,考生人数多,其中水平差别很大,本系统必须能够克服用户程序可能出现的各种软件错误,防止出现系统崩溃、系统死机等情况,同时保证阅卷的客观性、公正性,尽量避免由于用户程序设计中一个小的错误而出现大量的丢/失分数现象。

1.2 系统设计思路及方案的选择

当前开发的无纸化网络考试系统主要基于C/S与B/S两种模式,两种模式各有所长。C/S 结构(Client/Server)考试系统,应用的比较多。在局域网中,安装一台考试服务器,把题库、报名库和阅卷评分系统都装在服务器上,在考试机安装客户端,利用局域网和相应软件与服务器相连。每次考试都对服务器和客户端进行安装和配置,这样工作量比较大,且在地域上受限制。

B/S结构(Browser/Server)考试系统,利用Web技术,考生使用浏览器就可以访问多个不同平台的服务器。系统更新只需更新服务器即可,客户端仅安装浏览器,是目前考试中利用最多的一种无纸化网络考试系统结构形式。

1.3 系统的组成

不管是基于C/S或B/S哪种模式,为了实现无纸化考试的要求,基本有四个模块组成:

(1)题库管理系统:主要负责题库中各种类型题目的增加、删除、修改与考试时间、题型、题量、难度系数等要求的设定等。

(2)考试系统:考生验证、考试环境生成、考生数据存储、系统计时控制、自动阅卷评分等。

(3)成绩回收与分析系统:成绩入库、成绩的总体分析、各题得分情况的分析等。

(4)考生信息导入与服务器设置系统:考生信息的导入及服务器的自动设置。

基于上述分析,本系统采用的是类似于全国计算机等级上机考试系统的C/S模式,但考试客户端并不需要逐个安装,考试时,只要将其发送到每台学生机桌面上即可,基本上属于纯绿色软件。

2 考试系统开发中的关键问题及解决的方法

研发无纸化网络考试系统,通常涉及的关键问题有:试题图文混排问题、试卷导入/出与排版问题、答案描述问题、考试环境生成与智能评分问题,一般来说前3个问题在命题系统中涉及,通常大都采用RTF格式、特征值抽取等方式来解决;对于考试环境生成有的采用语句生成;有的则直接将环境数据文件信息存入数据表来解决,在研发该系统时就采用了后者;至于智能评分问题,对于客观题已经非常成熟,主观题(操作题)则是所有无纸化网络考试系统面临的共同难题,目前尚无公认的成熟、有效的方法,有的采用人工阅卷,有的只比较结果,而有的既看结果又考察过程,当然由于主观题解题方法的多样性,这种方法与命题质量有很大的关系,命题老师的水平会直接影响自动评分的准确性,这便是目前有些无纸化网络考试系统所出现的问题症结所在。

2.1 考试环境的生成

由于Visual Basic考试系统一般要涉及考试环境中原始程序文件,其中通常包含工程、窗体、模块及输入数据等若干文件,考试时要求考生根据给定的工程、窗体及控件来进行完善,如果用语句生成考试环境不仅缺乏灵活性,而且影响系统速度,为此,我们采用WinRar压缩/解压缩功能,将考试环境文件夹用WinRar压缩为一个压缩包文件,以二进制信息写入试题数据库(OLE对象),考试时再将试题库存入的信息还原成压缩包文件,然后调用WinRar解压为考生环境文件夹。实践证明,这种方法不仅快速,还适用任意类型的文件写入考试数据库。

具体做法是使用VB编制两个过程:WriteToTK (将试题写入试题库) 、ReadFromTK (将试题从数据库中读出),在命题端通过调用WriteToTK过程将考试环境压缩包文件写入试题库中,在考试端通过调用ReadFromTK过程来生成考试环境压缩包文件,然后使用VB的Shell()函数调用WinRar.exe从压缩包文件中还原考试环境文件夹。(Shell("Winrar.exe x-o+压缩包位置压缩包文件名.rar 考试环境文件夹”,0) )

2. 2 系统评分

计算机无纸化网络考试系统中自动阅卷评分子系统是整个系统中最关键、难度最大的一部分内容,它要求评分准确、快速、安全。实现对计算机程序设计课程操作考试试卷的自动评分,即自动测试用户程序,就是要判断考生所编制的程序文件是否符合考核要求。

对于Visual Basic程序设计上机考试系统来说,操作考试题型一般分为3种类型:①基本操作题:要求考生根据题目要求完成用户界面的设计,并对控件属性进行设置,同时允许编写表现用户界面特性的简单代码。本部分重在考查学生对VB 工程的创建、保存以及控件对象的掌握情况,即淡化一个完整VB应用程序设计中的编写事件过程代码的部分。②程序填空题(改错题):主要考查学生的阅读程序和调试程序的能力。在该类试题中,出错的程序事先都给出,并指出在哪个过程的哪个位置有错误,并在出错的一行上都给出注释,学生只要将出错的行改正过来并调试通过即可。③编程题:考试中提供完整的用户界面,甚至包含部分代码,学生根据题目要求编写程序代码,运行调试,完成题目。

在阅卷的过程中要根据不同题型,采用相应的方法进行评分。

2.2.1 基本操作题的自动评分

一个VB 工程主要由.vbp文件,.frm文件,.frx文件等组成。.vbp 文件对整个VB 工程进行管理,其内容主要包括引用的对象库,包含的.frm文件名、位置以及启动窗体等信息。.frm文件是对VB 程序界面的描述,包括界面上控件的类型、个数、相对位置以及它们的属性和事件过程代码。当程序界面包含图片以及ListBox,ComboBox控件时,VB自动生成.frx文件,以二进制形式存放相关的资源信息。对上述文件进行分析,描述VB 程序用户界面的.frm文件是一个有严格结构的文本文件。绝大部分界面设计题可以通过只分析.frm 文件来完成。对于特定的题目需要分析.frx文件和.vbp文件。据此,可得到以下评分思路:

(1) 对标准答案的.frm文件进行分析,提取有用信息,包括控件的类型、数目、相对位置、相关属性以及事件过程代码,并标准化,形成评分点,制定评分标准。

(2) 对考生答案的.frm文件进行分析,并做一定的标准化处理,然后提取相应的控件和过程代码信息,以一定的形式临时存放。

(3) 用标准化后的标准答案去匹配标准化后的学生答案,结合评分标准,给出成绩,同时记录匹配失败信息。

2.2.2 程序填空题(改错题)的自动评分

对于这样的题目评分只要打开相应的窗体文件(.frm),找到相应的程序行与标准答案进行比较即可。

2.2.3 编程题的自动评分

目前,编程题的自动评分仍然是个难题,因为编程题自动评分要解决的不仅仅是对程序语法的理解,还要深入到程序的语义层。在VB 上机操作考试中可以预先提供完整的用户界面,甚至是部分代码。这样,在实现自动评分过程中就不需要考虑如何控制VB 的IDE以及考生程序子窗口。现在要做的是,如何给学生程序提供必要的参数(输入),如何驱动相应的事件过程,如何分析输出。

(1) 编程题的自动评分思路

①提供用户界面的同时预先插入必要的程序测试代码,用来实现对学生程序提供必要的输入和临时保存程序的输出。

②根据VB 事件驱动的编程机制的特点,选取一定的事件,用来驱动学生编写的事件过程的执行。调用①中事先插入的代码为学生编写的过程提供输入并且临时保存输出。

③调用“输出分析程序”分析学生程序的输出是否符合标准输出。

④如果学生程序的输出与标准输出相符,则认为学生程序完全正确。否则,进行第⑤步。

⑤利用类似于前面对界面设计题中程序代码分析的方法,对考生程序代码进行分析,按变量的声明和输入部分、程序主体部分和输出部分分别考虑,结合评分标准给出成绩。

(2) 编程题自动评分的实现

在具体实现过程中,因题目的差异,实现过程会有所不同,有几个关键问题要注意:

①设计嵌入代码时选取恰当的事件,主要有Form_Load,Form_Activate,Form_Unload(需要学生运行程序后手动关闭窗体以触发该事件)3 个事件供选择,根据题目的不同,选取恰当的事件嵌入测试代码会使考试更加合理化。若程序要求用户输入数据,则一般要提供由多组测试数据,包括正确的输入数据、边界数据以及错误数据,才能对学生程序进行全面检查。

②临时输出文件要防止学生手动建立正确的输出文件。在实际实现时,可在输出文件生成时预先写入一个随机特殊数据,手动建立的输出是无效的。

③“输出分析程序”是一个外部.exe文件,其功能因输出数据的不同而不同,但主要程序框架不变。

④学生程序可能包含死循环等较严重错误,输出也可能千奇百怪。所以在驱动学生程序执行和分析输出过程中必须要有错误控制,解决的办法是,语法错误可用On Error 语句跳过,若超过一定的时间程序仍未响应则认为是死循环,应强行结束。

3 考试系统开发中必须注意的事项

虽然无纸化考试系统具有交互性、实时性等特征,能提高学生学习计算机课程的兴趣与动手能力,基本将教师从繁琐的考试环节中解放出来,节省了大量的人财物,使教师有更多的时间和精力放在试题的科学性建设和教学内容、教学方法的钻研中。在项目实践与使用过程中,下列问题必须重点注意并着重解决:

(1)由于所有考生都必须在机器上进行考试,考试需要按批次进行,题库必须达到一定的容量,题库安全都必须予以高度重视,否则不仅容易泄题,对考生来说也不够公平;

(2)由于目前对操作题的评分通常仅限于从答案和关键字匹配上给分,对于编程算法的多样化还只能靠教师命题来进行控制。因此,对命题质量要求较高,在智能评分的解决方法与技术上还有待突破和完善;

(3)对于大规模的考试来说,网络的安全和传输质量问题是至关重要的,否则容易造成网络阻塞,影响考试正常进行。

当然,无纸化考试毕竟是伴随着计算机与网络技术的发展而兴起的一种新的考试模式,也是一种教学改革尝试,随着时间的推移,这些问题都会得到圆满的解决。

参考文献

[1]许骏,柳泉波.IT技能测评自动化——理论.技术.应用[M].北京:科学出版社,2001.

[2]龚沛曾.基于VB的通用数据库系统的实现方法[J].计算机应用研究,1998,15(3).