个人vb上机考试总结

2024-07-28

个人vb上机考试总结（通用7篇）

篇1：个人vb上机考试总结

1.Option Base 1

‘下标从1开始 Dim a(100)As Integer

‘全局变量 Private Sub Command1_Click()Open “in.txt” For Input As 1

‘读入1号文件

For i = 1 To 100

Input #1, a(i)

‘100个数一次读入

Next i Close 1 End Sub

Private Sub Command2_Click()Dim s As Integer s = 0 For i = 1 To 100

If a(i)>= 400 And a(i)< 800 Then

s = s + a(i)

‘400到800之间的数字相加

End If Next i Text1 = s putdata s

‘将结果存入考生文件夹中 End Sub 2.这个题很简单，回顾一下知识

Private Function fun(x As Integer)As Long Dim sum As Long sum = 1 For i = 1 To x

sum = sum * i Next i fun = sum End Function Private Sub Command1_Click()Dim a As Integer Dim s As Long a = InputBox(“请输入”)s = fun(a)Text1 = s putdata “out.txt”, Text1 End Sub 3.调用标准模块中isprime函数判断是否为素数，求100-200间素数的和 Private Sub Command1_Click()Dim i As Integer Dim s As Integer For i = 100 To 200

‘从100 到200 If isprime(i)= True Then

‘如果为素数则相加

s = s + i End If Next i Text1 = s putdata “out.txt”, Text1

‘查看代码确定变量个数End Sub 打开标准模块的方法

工程资源管理器----form1----右击----添加----添加模块 4.8+88+888+8888 Private Sub Form_Click()Dim a As Integer, n As Integer, j As Integer, sum As Single a = 8 n = 4 For j = 1 To 4

sum = sum + Item(a, n)Next j Print “sum:”;sum End Sub Function item(a, k)Dim p As String, q As String, s As Single Dim k As Integer, i As Single p = “" For i = 1 To k

q$ = Str(k)

p$ = p$ + q$ Next i s = Val(p$)item = s End Function

Private Sub Form_Click()Dim a As Integer, n As Integer, j As Integer, sum As Single a = 8 n = 4 For j = n To 1 Step-1

If j = n Then

sum = item(a, j)

Else

sum = sumhscroll.Value

‘用滚动条控制速度 End Sub Private Sub Timer1_Timer()Static i As Integer If i = 0 Then Picture1.Picture = LoadPicture(”2.ico“)

‘随时间变化，图片变化

i = 1 Else Picture1.Picture = LoadPicture(”1.ico“)i = 0 End If End Sub 6.-2.-，73，82，-76，-1，24，321，-25，89，-20 打印其中的每个负数及计算并输出正数及负数的和 Private Sub Form_Click()Dim num As Integer negativesum = 0: positivesum = 0 For i = 1 To 10 num = InputBox(”enter data:“)

‘从键盘中输入10个数

If num < 0 Then

Print num

negativesum = negativesum + num Else

positivesum = positivesum + num

End If Next i Print Print ”negativesum=“;negativesum Print ”positivesum=“;positivesum End Sub 7.a aa aaa aaaa bbbb bbb bb b

Private Sub Command1_Click()Dim a(4)As String, b(4)As String Dim k As Integer, l As Integer myfile = App.Path & ”“ & ”picture.dat“ Open myfile For Output As #1 For k = 1 To 4

a(k)= String(2 * k1, ”b“)Next k For k = 1 To 4

Print #1, a(k)Next k

‘若为负数则输出再计算其和

‘计算正数和 string函数

‘ For k = 4 To 1 Step-1

‘步长一定要写

Print #1, b(k)Next k Close #1 End Sub 8.单击command1将list1中全部选中单机command2 全部写入“output.txt”中（multiselect=1）Private Sub Command1_Click()Dim i As Integer For i = 0 To List1.ListCount – 1

‘从下表为0的列表到最后一个选中都变为真

List1.Selected = True Next i End Sub

Private Sub Command2_Click()Dim i As Integer Open ”out7.txt“ For Output As #1

‘先打开文件再逐个写入文件中 For i = 0 To List1.ListCount500

Image1.Width = Image1.Width-500 End If End Sub 11.Private Sub Command1_Click()Text1 = InputBox(”请输入要添加的项目“)

‘从键盘输入到文本框再添加到列表框中 List1.AddItem Text1 End Sub

Private Sub Command2_Click()Text1 = InputBox(”请输入要删除的项目“)For i = 0 To List1.ListCount – 1

‘从第一个到最后一个只要与text1中相同则删除

If List1.List(i)= Text1.Text Then

List1.RemoveItem i

End If Next i End Sub 12 Private Sub Command1_Click()Dim chr As String, number As Integer, cp As Integer, lp As Integer Dim others myfile1 = App.Path & ”“ & ”prog8a.dat“

‘路径

myfile2 = App.Path & ”“ & ”prog8b.dat“ Open myfile1 For Input As #1

打开已有文件myfile1，创建myfile2分别作一号和二号文件 Open myfile2 For Output As #2

While Not Eof(1)

Input #1, chr

If Asc(chr)>= 48 And Asc(chr)<= 57 Then

number = number + 1

‘用asc码来识别性质

ElseIf Asc(chr)>= 65 And Asc(chr)<= 90 Then

cp = cp + 1

ElseIf Asc(chr)>= 97 And Asc(chr)<= 122 Then

lp = lp + 1

Else

others = others + 1

End If Wend Print #2, number, cp, lp.others

Close Command1.Caption = ”完成" Command1.Enabled = False End Sub

‘把得到的结果分别写入到二号文件中

篇2：个人vb上机考试总结

1、利用随机函数产生25个100到999之间的整数，构成55的矩阵，输出该矩阵。Dim a(1 To 5, 1 To 5)Private Sub Form_Click()Randomize For i = 1 To 5 For j = 1 To 5 a(i, j)= Int(Rnd *(99910 + 1)+ 10)Print a;s = s + a Next i Print Avg = s / 25 Print Avg End Sub

3、在窗体上按下鼠标的右键，记录其坐标。

Private Sub Form_Load()Label1.BorderStyle = 1 Label1.Alignment = 2 End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then Label1.Caption = X & “,” & Y End If End Sub

4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(1 To 25)Private Sub Form_Click()Cls For i = 1 To 25 a(i)= Int(Rnd *(991 For j = 1 To 251 + 1)+ 1)a(x)= a(x)+ 1 Next j For i = 1 To 6 Print i & “出现了” & a(i);“次” Next i

End Sub

6、在文本框中输入一些英语单词，统计空格的个数。

Dim n%, x As String, s% Private Sub Form_Click()n = Len(Text1.Text)x = Text1.Text For i = 1 To n If Mid(x, i, 1)= “ ” Then s = s + 1 Next i Print “共出现了” & s & “个空格” End Sub

7、编程计算下列公式的值，其中n(<10)为从键盘输入的正整数。S=1!+3!+5!+……+(2*n-1)!Private Sub Form_Click()n = Val(InputBox(“请输入一个不大于10的整数”))s = 0 For i = 1 To 2 * n2 * i1 a = a + 1 Print Str(a);Next j Print Next i End Sub

10、用For …Next语句编程，双击窗体后，在屏幕上显示如图：

Private Sub Form_DblClick()For i = 1 To 3 Print Tab(113 * i);For j = 1 To 5 Print x;Next j Print Next i End Sub

12、从文本框输入一个正整数，判断该数是否为素数。Dim a As Long Private Sub Form_Click()a = Val(Text1.Text)If a = 2 Then Tag = True ElseIf a Mod 2 = 0 Then Tag = False Else Tag = True For i = 3 To Sqr(a)Step 2 If a Mod i = 0 Then Tag = False: Exit For Next i End If If Tag = True Then Print a;“是素数” Else Print a;“不是素数” End If

End Sub

13、利用随机函数产生并显示10个3位数的正整数，找出其中的最大数。Option Explicit Dim i%, max%, loc% Dim a(1 To 10)As Integer Private Sub Form_Click()Randomize Form1.Cls For i = 1 To 10 a(i)= Int(Rnd *(9991000 + 1)+ 1000)Print a(i)Next i min = 9999 For i = 1 To 10 If a(i)< min Then min = a(i): loc = i Next i Print “最小的数是”;min Print “在数组中是第”;loc;“个数” End Sub

15、当按下鼠标左键时，窗体的背景色变为红色；松开鼠标左键时，窗体的背景色变为绿色。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Form1.BackColor = vbRed

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Form1.BackColor = vbGreen End Sub

16、编制一个时钟程序，如下图

：Option Explicit

Private Sub Form_Load()Label1.BackColor = vbWhite Label1.BorderStyle = 1 Label1.Alignment = 2 Timer1.Enabled = True Timer1.Interval = 1000 End Sub

Private Sub Timer1_Timer()Label1.Caption = Time End Sub

17、从键盘输入10个数，按输入的顺序和按输入顺序相反的顺序输出。Option Explicit Dim i% Dim a(1 To 10)As Single Private Sub Form_Click()For i = 1 To 10 a(i)= Val(InputBox(“请输入第” & i & “个数”))Print a(i);Next i Print For i = 10 To 1 Step-1 Print a(i);Next i

End Sub

18、计算圆面积的程序。程序运行时，单击窗体，然后在下图所示的输入框中输入圆的半径，即可在窗体上显示计算出的圆面积。

Option Explicit Dim r%, a As Single Const pi As Single = 3.14159 Private Sub Form_Click()r = Val(InputBox(“请输入圆半径” & vbCrLf & “（1-9）：”, “输入”, 5))a = pi * r ^ 2 Print “半径为”;r;“的圆面积为”;a End Sub

19、编写一个时钟程序，当选择“24小时”时，以24小时的方式显示如A，当选择“12小时”时，以12小时的方式显示如B。

Private Sub Form_Load()Timer1.Interval = 1000 End Sub

Private Sub Timer1_Timer()Select Case True Case Option1.Value Label1.Caption = Time Case Option2.Value Label1.Caption = Format(Time, “HH:MM:SS AM/PM”)End Select End Sub 20、设计一个程序，用户界面如图所示。程序运行后，用户在文本框中输入一段文字，然后按需要单击选择框，用以改变文本的字体、字型、颜色以及大小。

Option Explicit

Private Sub Check1_Click()If Check1.Value = 1 Then Text1.FontName = “黑体” Else Text1.FontName = “宋体” End If End Sub

Private Sub Check2_Click()If Check2.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub

Private Sub Check3_Click()If Check3.Value = 1 Then Text1.FontSize = 20 Else

Text1.FontSize = 9 End If End Sub

Private Sub Check4_Click()If Check4.Value = 1 Then Text1.ForeColor = vbGreen Else Text1.ForeColor = vbBlack End If End Sub

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

Private Sub Command2_Click()End End Sub 20做出2个周期的正弦波形.Private Sub Form_Click()Dim i%, x#, y# Const pi As String = 3.1415926 Form1.Scale(-2 * pi, 1.2)-(2 * pi,-1.2)Form1.Line(-2 * pi, 0)-(2 * pi, 0)Form1.Line(0, 1.2)-(0,-1.2)For x =-2 * pi To 2 * pi Step 0.01

y = Sin(x)

Form1.PSet(x, y)Next x End Sub 21以窗体为中心,产生1000个半径颜色随机的同心圆.Private Sub Form_Click()For i = 1 To 1000

x = Form1.ScaleWidth / 2

y = Form1.ScaleHeight / 2

r = Int(Rnd * y)

c = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)

Form1.Circle(x, y), r, c Next End Sub 22.九九乘法表 Private Sub Form_Click()Dim i%, j% Form1.Caption = ”九九乘法表“ Print Tab(48);Caption Print Tab(48);”-------------“ For i = 1 To 9

For j = 1 To i

Print Tab((j-1)* 12 + 1);i;”*“;j;”=“;i * j;

Next j Print Next i End Sub 23求最大公约数和最小公倍数 Private Sub Command2_Click()Text1.Text = ”“ End Sub

Private Sub command1_Click()Dim m%, n%, r%, t% m = Val(Text1.Text)n = Val(Text2.Text)If m < n Then t = m: m = n: n = t t = m * n Do

r = m Mod n

m = n

篇3：个人vb上机考试总结

每次考试后, 教师都必须准备批改几十份甚至几百份的试卷。对于这项工作的艰巨和繁琐, 每位教师都有自己深切的体会。出于对VB的兴趣以及减轻工作压力的需要, 利用VB 6.0程序设计语言开发了一个上机考试系统。通过运行该软件, 就会在计算机屏幕上出现一个考试说明的界面, 如考试时间、注意事项等内容, 输入姓名、学号等考生信息后即出现试题界面, 根据试题量一般会有多个试题页面, 每个页面都有试题区和答题区, 通过鼠标可以输入单选题、多选题、判断题的答案, 用键盘输入填空题、问答题或其他需要用文字回答的题型的答案。试卷页面可前后切换, 在点击交卷按钮并确认后, 可以自动将学生的卷面答案保存以备核对, 并且能自动阅卷评分, 从而大大减轻了教师的阅卷工作量。

2 实现过程

2.1 界面设计

该系统包括启动界面、登录界面和若干个试题界面, 试题界面的数量可根据实际情况调整。启动界面的内容主要是考试科目、考试注意事项的说明;登录界面要求考生输入姓名、学号, 以便于将考生的答案以其姓名为文件名保存, 供出现争议时的核对;试题界面根据考试内容可分为填空题、选择题、判断题、简答题等多个界面, 左边的文本框控件用于显示试题, 右边的答题区通过单选按钮控件可以让考生做选择题目和判断题, 通过文本框控件可以做填空题和简答题。同时在每一个试题界面都提供一组用于前后翻页的命令按钮和显示考试剩余时间的文本框控件, 最后一页试卷页面将向后翻页按钮改为交卷按钮。交卷后将出现成绩界面, 通过自动阅卷评分系统与预置答案比对, 从而可以立刻将考生的成绩显示出来, 将阅卷的工作量几乎全部代替, 教师要做的只是把学生的成绩登记下来即可。

2.2 设计思路

2.2.1 基本思路

为了避免软件生成的没有考生姓名的答案文件, 在登录时就要求必须输入考生姓名, 否则无法进入试题页面。进入试题页面后, 启动定时器自动倒计时, 并显示在每个试题页面的右上角。页面的切换相对而言比较简单, 要做的只是把页面显示或隐藏而已。交卷时稍复杂些, 首先以考生姓名为文件名建立一个答案文件, 然后将考生每一题的答案做为记录依次添加保存到该文件中。最后的自动阅卷评分只要把考生答案与预置的正确答案比较, 如果考生回答正确, 则按规定分数加分, 否则不加分。

2.2.2 设计要点

(1) 考试时间的计时与在不同页面间的时间值传递

考试页面上显示的时间为考试剩余时间, 具体步骤:

在第一个试卷页面上添加定时器控件, 并将定时器控件的Interval属性设置为60000, 即每分钟发生一次定时器事件, 在事件中添加代码:

在试卷第一个页面加载时, 先设置Text1.Text=90, 即考试时间设置为90分钟, 这个时间值可以修改。每分钟时间值减1, 同时通过Form3.Text1.Text=Form1.Text1.Text这类指令将变化后的时间值传递到其他试卷页面。当时间值减到0时, 试卷页面隐藏, 进入自动保存答案和评分环节。

(2) 交卷时保存考生答案。

为便于在出现争议时核对学生的具体答题情况, 需要将学生的答题情况保存起来, 具体步骤如下:

以此类推, 分别存放判断题和简答题的结果。

Close#1'保存文件, 即答案存放

当出现交卷或关闭最后一个试卷页面时会提醒考生确认是否需要交卷, 确认后保存答题情况并进行下一步自动评分。

(3) 自动评分即与预设的答案比对, 相符则加上相应的分数, 否则比对下一题, 直至结束。单选题、判断题的比对相对简单, 没有不确定因素。复杂些的就是填空题和需要用文字描述的简答题, 填空题的答案不能设置太单一, 要考虑学生答题情况的开放性, 有些回答意思正确, 只是描述不太规范, 这种情况也要酌情加分。简答题的评分主要看在回答的描述中是否出现预置的关键字, 相符则加上预设的分数。具体代码如下:

其中"数字信号处理"为答案, 如果学生的结果与答案一致, 得给i加上相应分数, 否则不得分。同时考虑答案的开放性, 一是填空结果的先后顺序, 给出如下解决方案:

即将并列的几个答案联结为一个字符串, 在其中有正确答案即可。

最后将评分结果添加到自动生成的学生答卷文件中。

(4) 防范措施。尽可能防止关闭评分页面。本软件采用对特定标签双击才能关闭评分界面, 另外即使关闭了评分界面, 也能通过保存的答题文件查询结果。

3 结语

(1) 由于时间和能力所限, 该程序在随机抽题、网络功能等方面尚有改进的余地。

(2) 从前几年的使用效果上说达到预期要求。

(3) 本程序在中文Windows XP、Win7及中文VB6.0下编译运行通过。

摘要：VB6.0作为一种被广泛应用的程序设计语言, 其易学易用的特点已勿需多加描述。介绍了上机考试系统软件利用VB6.0开发, 软件界面简洁, 功能完备, 特别注重实用性, 能够根据需要修改试题与评分标准, 并能够自动计时、自动阅卷评分, 大大减轻了教师的工作压力。

关键词：VB语言,上机考试,自动阅卷,卷面保存

参考文献

[1]贾宗维, 王晓芳.Visual FoxPro程序设计主观题自动阅卷系统设计思路[J].山西农业大学学报 (自然科学版) , 2008, (01) .

[2]李素铎.在线考试系统的制作经验与问题分析[J].科技创新导报, 2009, (30) .

篇4：vb大题上机总结

**********************************************************************

在考生文件夹下有一个工程文件sj44.vbp（相应的窗体文件名为sj44.frm），其功能是通过调用过程Sort将数组按降序排序，请装入该文件。程序

运行后，在四个文本框中各输入一个整数（如图1所示），然后单击命令

按钮，即可使数组按降序排序，并在文本框中显示出来（如图2所示）。

这个程序不完整，请把它补充完整，并能正确运行。

要求：

去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功

能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存

盘。

图1

图2 本题的考查的是数组的应用，通过调用过程Sort将数组按降序排序，Ubound()函数是用来获得数组的上界，Lbound()函数是获得数组的下界，打开工程文件sjt4.vbp和相应的窗体文件名为sjt3.frm，在代码窗口中补充如下代码：

Private Sub Sort(a()As Integer)Dim Start As Integer, Finish As Integer Dim i As Integer, j As Integer, t As Integer Start = LBound(a)Finish = UBound(a)For i = Finish To 2 Step-1 For j = 1 To Finishlowerbound+1)* Rnd + lowerbound)这里，upperbound是随机整数范围的上限，而lowerbound则是随机整数范围的下限。修改后的主要代码如下：

Private Sub Command1_Click()Text1.Text = “": Text2.Text = ”“ For i = 1 To 10 a(i)= Fix(Rnd * 99 + 1)For j = 1 To i1 Exit For End If（避免取相同的值）

Next j Next i For i = 1 To 10 Text1.Text = Text1.Text + Str(a(i))+ Space(2)（隔两个空格输出下一个）Next i End Sub

Private Sub Command2_Click()Dim num As Integer, i As Integer num = InputBox(”请输入待查找的数“)For i = 1 To 10 If a(i)= num Then

Text2.Text = Str(num)+ ”是数组中的第“ + Str(i)+ ”个值“ Exit For End If Next i If i > 10 Then Text2.Text = Str(num)+ ”不存在于数组中“ End If End Sub 按要求保存文件即完成本题。】

在名称为Form1的窗体上有三个Label控件和两个名称分别为COMSTART、COMEXIT，标题分别为”开始“、”退出“的命令按钮。编写函数ITEM(A,N)其功能是由数字A组成的不多于N位数的整数，并利用该函数求8+88+888+8888的和，结果写入考生文件夹下的wy36.dat文件中。执行完毕”开始“按钮变成”完成“，且无效（变灰）。

【语法

[Public | Private | Friend] [Static] Function name [(arglist)] [As type] [Statements] [name = expression] [Exit Function] [statements] [name = expression] End Function声明Function过程的名称，参数以及构成其主体的代码。】

在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件stud1.dat，存放考生的考号、姓名、成绩。1）自定义一个数据类型stu，字符型数据定长为10。

2）按”开始“按钮后，能从考生文件夹下的stud1.dat 中读出所有数据并写入考生文件夹下的stud.dat文件中； 3）执行完毕，”开始“按钮变成”完成“，且无效（变灰）；

第6 题.在名称为Form1的窗体上画二个文本框，名称分别为T1、T2，初始情况下都没有内容。请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中（如图所示）。程序中不得使用任何变量。*注意：

存盘时必须存放在考生文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。

Private Sub T1_Change()T2.Text = T1.Text End Sub 按要求保存文件即完成本题。

真・vb大题・正式版1.0

第30题在名称为Form1的窗体上用名称为shape1的形状控件画一个长、宽都为1200 的正方形。请设置适当的属性满足以下要求：

1）窗体的标题为”正方形“，窗体的最小化按钮不可用；

2）正方形的边框为虚线（线型不限）。运行后的窗体如图所示。

注意：

存盘时必须存放在考生文件夹下，工程文件名为sj116.vbp，窗体文件名

为sj116.frm。

【本题主要考查了形状控件的Width、Height和BorderStyle属性，同时考查了窗体的Caption和MinButton属性。Width：设置对象的宽度。Height：设置对象的高。BackStyle：设置边框类型。Caption：设置标题。

MinButton：设置窗体最小化按钮是否可用。本题各控件属性设置如下：控件名属性属性值 Shape1 Width 1200 Shape1 Height 1200 Shape1 BackStyle 2-Dash Form1 Caption 正方形 Form1 MinButton False】

第9题.在考生文件夹下有一个工程文件sj83.vbp，相应的窗体文件为sj83.frm。在窗体上有一个命令按钮，其名称为Command1，标题为”计算并输出“。程序运行后，如果单击命令按钮，程序将计算500以内两个数之间（包括开头和结尾的数）所有连续数的和为1250的正整数，并在窗体上显示出来。这样的数有多组，程序输出每组开头和结尾的正整数，并用”～“连接起来，如图所示。该程序不完整，请把它补充完整。

篇5：vb上机心得体会

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

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

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

篇6：VB上机实习第五、六章

6.2.1题目

一、选择题

1.以下叙述中，错误的是（）。

A.双击鼠标可以触发DbiClick事件

B.窗体或控件的事件名称可以由编程人员确定

C.移动鼠标时会触发MouseMove事件

D.控件的名称可由编程人员确定

2.程序运行后，先将焦点移到文本框中，按A键，然后单击窗体，则在窗体上显示的内容是（）。

A．MouseDownB。MouseUpC。LoadD。Click

3.窗体的MouseDown事件过程如下：

From_MouseDown（button As Integer，shift，xAs Single，y As Single）

其中有4个参数，正确的描述是（）。

A．通过button参数可判定当前按下的是哪一个鼠标按键

B． Shoft参数只能用来确定是否按下Shift键

C． Shift参数只能用来确定是否按下Alt键与Ctel键

D．参数x、y是用来设置鼠标当前位置的坐标

4.当用户按下并释放一个键后触发KeyPress、KeyUp和KeyDown事件，这3个事件的发生顺序是（）

A．KeyPress、KeyUp、KeyDown

B．KeyDown、KeyUp、KeyPress

C．KeyPress、KeyDown、KeyUp

D．KeyDown、KeyPress、KeyUp

5.设窗体的KeyPreview属性为True，并且有下列程序。当焦点在窗体上的文本框上时，按下X键，文本框接收到的字符是（）。

Private Sub From_keyDown（keycode AS Integer，Shift As Integer）

Keycode=keycode+1

End Sub

A.XB.YC.空格D.没有接收到字符

6.下列关于键盘事件的说法中，正确的是（）。

A.按下键盘上的任意一个键和数字键盘的1键的keycode码相同

B.大键盘上的1键和数字键盘的1键的keycode码相同

C.keyDown和KeyUp事件过程中都有keyascii参数

D.大键盘上的4键的上档字符是“￥”，当同时按下Shift键和大键盘上的4键时，Key-Press事件过程中的keyascii参数值是“$”的ASCII值。

7.在KeyDown或KeyUp事件过程中，能用来检查Ctrl和F3键是否同时被按下的表达式是（）。

A.（button=vbCtrlMask）And(keycode=vbKeyF3)

B.Keycode=vbKeyControl+vbKeyF3

C.(keycode=vbKeyF3)And(shift And vbCtrlMask)

D.(shift And VBCtrlMask)And(keycode And vbKeyF3)

1.2.3.4.5.6.7.在执行KeyPress事件过程时，keyascii是所按键____ 值。对于有上档字符和下档字符的键，当执行KeyPress事件过程中，keycode是____ 字符的____ 值在KeyDown和KeyUp事件过程中，当参数shift的值为____，____，____，时，分别代表____，____，____ 键在MouseDown和KeyUp事件过程中，当参数shift值为____，____，____，时，分别代表鼠标的____，____，____，键当用户单击鼠标右键时，MouseDown,MouseUp和MouseMove事件过程中的button参数值为____当用户同时按下Ctrl和Shift键时，单击鼠标，MouseDown,MouseUp和MouseMove事件过程中的shift参数为____，如果要在程序运行期间改变鼠标的形状必须先将MousePointer设置为vbCustom,然后在程序中用LoadPicture函数将需要的图标文件《。Ico》或指针文件《.cur》装入____ 属性中。7.只要将MousePointer属性设置为______，鼠标指针就会恢复原样。

1．在菜单中放置分隔栏的方法是将该菜单项的Caption设为()

A．连字符(-)B．下划线(__)

C．连接符(&)D．两个连续的下划线(_ _)

2．以下陈述中正确的是()(多选)

A．分隔栏可以出现在顶级菜单项中

B．顶级菜单项的Checked属性不能为True

C．对同一个菜单项，为其指定访问键后，就不能再为其指定快捷键

D．菜单项的Enabled属性设为False后，它会被灰化显示

3．菜单项数组必须满足()(多选)

A．Name属性值可以不同 B．有相同的行首缩进

C．所有元素在菜单中可以不连续 D．各元素必有惟一索引值

4．为了响应工具栏上的多个按钮的单击事件，可以通过按钮的()属性识别是由哪个按钮引发。

A．Button B．Key C．Index D．B 和C均可

5．在使用菜单编辑器创建菜单时，可在菜单名称中某字母前插入()符号，那么在运行程序时按Alt键和该字母键就可以打开该命令菜单。

A．下划线 B．& C．$ D．@

6．如果要在两个菜单命令项之间加一条分隔线，可在标题文本框中键入()。

A．– B．+ C．& D．#

7．在用菜单编辑器设计菜单时，必须输入的项是()。

A．快捷键 B．标题 C．索引 D．名称

8．菜单控件仅支持以下()事件。

A．Click B．MouseDown C．KeyPress D．Load

9．在使用弹出菜单时，下面说法不正确的情况是()。

A．只能同时显示一个弹出菜单

B．使用PopupMenu 方法来显示弹出菜单

C．在设计时，应该将弹出菜单的顶层菜单项的Visible属性设为False

D．在显示弹出菜单以后，将执行以后的代码

10．下列不能打开菜单编辑器的操作是()。

A．按Ctrl+E

B．单击工具栏中的“菜单编辑器”按钮

C．执行“工具”菜单中的“菜单编辑器”命令

D．按Shift + Alt + M

11．假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效(变灰)，应使用的语句为()。

A．MenuItem.Enabled=False B．MenuItem.Enabled=True

C．MenuItem.Visible=True D．Menultem.Visible=False

12．以下关于菜单编辑器中“索引”项的叙述中，错误的是()。

A．“索引”确定了菜单项显示的顺序

B．“索引”是控件数组的下标

C．使用“索引”时,可有一组菜单项具有相同的“名字”

D．使用“索引”后,在单击菜单项的事件过程中可以通过“索引”引用菜单项

13．用户通过设置菜单项的()属性值为False来使该菜单项不可见。

A．Hide B．Checked C．Visible D．Enabled

14．下列关于菜单的说法中，错误的是()。

A．每个菜单项都是一个控件，与其他控件一样也有其属性和事件

B．除了Click事件之外，菜单项不可以响应其他事件

C．菜单项的索引号可以不连续

D．菜单项的索引号必须从1开始

17．以下有关由多个窗体和标准模块组成的应用程序设计方法的叙述中，错误的是()。

A．在缺省情况下，设计时的第一个窗体被指定为启动窗体

B．通过人为设置，可指定任一窗体为启动窗体

C．通过人为设置，可指定标准模块中的Main()过程为启动过程

D．通过人为设置，可指定窗体模块中的Main()过程为启动过程

18．以下陈述中正确的是()。(多选)

A．一个应用程序中只能有一个MDI父窗体

B．MDI父窗体上可以放置任意控件

C．可以用Print方法在MDI父窗体上显示信息

D．一个MDI子窗体最小化后，其图标显示在MDI父窗体中

19．要在工程中创建一个MDI父窗体只要()。(多选)

A．在菜单中选择“工程”—“添加MDI窗体”

B．在工具栏的添加按钮的下拉菜单中选择“MDI窗体”

C．新建一个窗体，其将MDIChild属性设为True

D．新建一个窗体，其将MDIChild属性设为False

20．要使MDI子窗体在加载时就自动显示出来，应()。

A．将Scrollbars属性设为True

B．将Scrollbars属性设为False

C．将AutoShowChildren属性设为True

D．将AutoShowChildren属性设为False

21．使用MDI窗体时，对于下面的说法选择正确的选项()。

A．能在MDI窗体中打开多个文档界面

B．子窗体是模式窗口

C．子窗体的和父窗体能够同时显示自己的菜单

D．如果子窗体的BorderStyle属性为vbFixedToolWindow,其大小将不能改变

22．多窗体程序由多个窗体组成。在缺省情况下，VB在执行应用程序时，总是把()指定为启动窗口。

A．不包含任何控件的窗口 B．设计时的第一个窗体

C．命名为Frm1的窗体 D．包含控件最多的窗体

23．要使自定义的对话框Form1退出，可以在该对话框的“退出”按钮的Click事件过程中使用以下()中的一个语句。(多选)

A．Form1.Unload B．UnloadForm1

C．Form1.Hide D．Unload Me

24．MDI窗体的QueryUnload事件将在()时候被触发。(多选)

A．在代码中使用Unload语句

B．当前Windows操作结束

C．利用Windows任务管理器关闭应用程序

D．MDI窗体正在关闭

E．窗体的所有者正在关闭

F．双击窗体图标或选择控制菜单中的“关闭”命令

二、填空题

1．菜单编辑器的“标题”选项对应于菜单控件的____________属性。

菜单编辑器的“名称”选项对应于菜单控件的____________属性。

菜单编辑器的“可见”选项对应于菜单控件的____________属性。

菜单编辑器的“索引”选项对应于菜单控件的____________属性。

菜单编辑器的“复选”选项对应于菜单控件的____________属性。

菜单编辑器的“有效”选项对应于菜单控件的____________属性。

2．菜单分为______菜单和______菜单，菜单总与__________相关联，设计菜单需要在______中设计。

3．不可以给______级菜单设置快捷键。

4．菜单中的分隔条是一种菜单控件，但不响应__________事件，也不能被选中。

5．为显示弹出式菜单，可以使用__________方法。

6．如果菜单标题的某个字母前输入一个“&”符号，那么该字母就成了热键字母；如果在建立菜单时在标题文本框中输入一个“______”，那么显示时形成一个分隔符。

7．如果把菜单项的______属性设置为True，则该菜单项成为一个选项。

8．不管是在窗口顶部菜单条上显示的菜单，还是隐藏的菜单，都可以用______方法把它们作为菜单在程序运行期间显示出来。

9．菜单设计中每一个菜单项是一个控件，这些控件都只有一个______事件。

10．为了能够通过键盘访问主菜单项，可在菜单编辑器的“标题”选项中的某字母前插入_______符号。运行时，该字母会带有下划线，按Alt键和该字母就可以访问相应的主菜单项。

11．弹出式菜单在___________中设计，且一定要使其______级菜单不可见。

12．要使用工具栏控件设计工具栏，应先在“部件”对话框中选择__________，然后从工具箱中选__________控件。

13．设置工具栏控件的__________属性可以改变工具栏在窗体上的位置。

14．要给工具栏按钮添加图像，应首先在__________控件中添加所需要的图像，然后在工具栏的属性页中选择与该控件相关联。

15．运行时，要使工具栏ToolBar1中索引值为5的按钮无效，应使用语句：________________________________。

16．要使工具栏控件的某按钮呈菜单的式样，可以在其属性页中设置其______选项为5-tbrDropDown。

17．要使用状态栏控件设计状态栏，应首先在“部件”对话框中选择________________，然后从工具箱中选择__________控件。

18．状态栏由多个“窗格”对象组成，“窗格”对象的特征是通过状态栏的_____属性决定的。

19．要在运行时给状态StstusBar1的第二个窗格添加一幅图片，该图片由文件“c:windowsglass.ico”指定，应使用语句：______________________________。

20．SDI指__________界面，MDI指__________界面。

21．要将某窗体定义为一个MDI子窗体，需要将其__________属性设置为True

22．在一个MDI应用程序中，可以含有________、_______、______这3类窗体。

23．一个应用程序最多可以有__________个MDI父窗体。

篇7：个人vb上机考试总结

一、上机考试与传统考试不同特点分析

于传统的考试形式相比,上机考试有其特殊性。两者的不同点主要反映在以下几个方面:

(1)传统科目的考察重点为学生对于该门课基本概念、理论的掌握,以及联系实际的应用计算等。上机考试重点考察学生的实际操作水平。

(2)传统科目以试卷为载体,学生按要求完成试卷相关内容。上机考试学生答题以计算机作为工具,所答内容为计算机形成的电子文档。

(3)考试地点不同。传统科目的考试在普通教室,要考虑到考试真实、诚信的因素,往往设计A、B两种试卷,学生隔开坐即可。上机考试要在机房完成,由于机位的限制、网络的联通以及电子文档易拷贝等因素增加了考试作弊的可能性。

(4)考试评分问题,传统考试教师以标准答案为依据,对比学生试卷进行评分。而上机考试由于学生完成的电子文档存放在计算机(或教师的U盘中),可行的评分方法有:一是由教师逐个查阅磁盘文件再人工评分,评分的准确性好,但教师的阅卷工作量非常大。此外,还有考试结束后由于操作不当可能造成答题文件丢失,或机房上课时间上的冲突无法人工阅卷等问题。二是计算机自动评阅,由考试系统中评分子系统自动完成评分工作,学生考试成绩可在考试结束后系统自动给出。这种评分方式大大减少教师阅卷工作量,但由于评分系统的功能限制,以是或非的形成给出成绩,如果考生按要求完成一道题的大部分(或基本完成),只有少量错误该题也得零分,使得学生真实的操作水平不能很好地反映,成绩不准确。

二、SolidWorks上机考试评分方法研究

总结上述分析,可以知道上机考试关键是采用何种考试形式,如何评分,怎样确保评分准确、合理、有效

1. SolidWorks上机考试题目的设计

SolidWorks是一款在总结与继承了大型机械

CAD软件的基础上,在Windows环境下实现的第一个三维C A D设计软件。由于其操作方便快捷,系统逻辑性较强,全中文界面,有符合中国的国家标准和与其他软件良好的接口等优点,成为当前世界范围内运用最为广泛的三维C A D软件之一。在产品造型技术方面,SolidWorks采用特征造型技术和参数化设计技术。每个零件的建模造型过程都是基于草图(二维或3D草图)生成特征,建模过程是生成各种特征以生成材料(或去除材料)的过程。若干特征在三维空间中有机组合,保证各个特征间相对位置的正确而形成零件模型。同时,基于零件SolidWorks可实现对零部件的虚拟装配及工程图的自动生成等功能。

SolidWorks上机考试题目由理论题与建模题两部分组成,以纸质试卷给出。理论题部分,考察基本知识点及工程图相关内容,形式为是非题及选择题。建模部分是对学生草图绘制能力、建模能力以及装配体操作的考察。试卷给出模型图及尺寸,要求按尺寸建模后将SolidWorks可自动测出的模型特性如表面积、质量、重心等质量特性填入试卷中,以考察学生所建模型的正确性。考虑到前述上机考试特点,题目中的主要尺寸以公式形式给出,学生学号为变量,保证每位学生建模尺寸不同,从而给出的模型特性答案不同。为了避免相邻学生有不应有的交流,试卷仍有A、B两种,考试结束,交上试卷完成考试。图1为构建零件模型的试题题例。

2. SolidWorks上机考试评分方法

阅卷的任务是完成考生对试题操作结果与评分标准的比较工作,据此给出考生的成绩。考试评分分为三个环节。

(1)首先是考试过程中教师对学生成绩初步认定。在120分种的考试过程中教师有时间巡视学生的答题情况,做出初步判断,并对特殊情况如基本上就可确定不及格的考生有所记录。

(2)标准考题模型建立,教师根据题目做出标准模型。

(3)基于V B编写一简单评分程序,使评分程序与SolidWorks程序进行连接。应用SolidWorks参数化设计(改变模型尺寸,可以生成多个模型)功能以学生学号的后两位数00~99为变量可以快速生成每个考生应完成的模型。通过程序给出正确的模型质量信息。

Visual Basic是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发Windows环境下的各类应用程序。

程序设计时,需建立与题库模型一一对应的模型图片数据库,分别以sketch-1,sketch-2,....,part-1,part-2..,assembly-1,assembly-2....进行标号,应用VB控件与数据库连接,以保证SolidWork打开模型与试卷模型一致,提取质量信息正确。

阅卷时运行评分程序并打开SolidWorks程序,输入学生学号信息提取正确的模型特性信息,与考生的答案比较,给出分数。对于与正确答案对不上的答题,参考考试过程中对学生答题情况记录,分情况给分。程序设计流程图如图2所示。

提取模型特性的V B程序代码较为简单。把SolidWorks模型中有关尺寸参数设置为变量,将这些变量输入新的数值(随学号信息改变)即可自动生成新的模型,提取相应特性信息。主要程序代码如下:

完成后程序界面如图3所示。

借助于此程序可以快速的评阅试卷,在一次两班级(约80人)的考试中,考试结果如表1所示。从表中可以看出,如果用自动评分系统,良及中等的部分学生答案由于有失误,就会出现不得分现象。基于上述评分方法,考试分数基本上反映了不同层次学生的操作水平,考试结果合理。

三、结束语