vb程序设计基础大作业

vb程序设计基础大作业（通用8篇）

篇1：vb程序设计基础大作业

《VB程序设计》大作业

一、大作业的内容

本次大作业要求学生根据所学知识以及个人爱好，设计开发一个VB应用小程序。要能体现出：

1．《VB程序设计》各种语句的综合使用能力； 2．《VB程序设计》各种相关控件的使用能力；

3．根据具体的设计题目，设计清晰、美观界面的能力； 4．一定的综合设计能力。

二、大作业的要求

本次大作业应满足以下要求：

实用性：应用程序要有明确的应用主题，有一定的实用价值。结构性：应用程序具有良好的程序结构。可读性：应用程序具有较好的可读性。全面性：应用程序应包含比较全面的功能。

友好性：合理使用VB提供的各种控件，设计友好、美观的使用界面。

三、大作业的步骤 1．根据个人兴趣、爱好，以及提交时间的要求，自己确定设计题目（可参考附件1）； 2．查找与设计题目相关的资料；

3．进行应用程序总体结构、使用功能的设计； 4．进行应用程序的界面设计和源程序代码的编写； 5．上机编辑、调试程序；

6．保存应用程序, 并生成可执行文件； 7．撰写设计报告。

四、设计报告的基本格式

设计报告的基本内容至少包括封面、正文、总结三部分。(1）．封面(包括：题目、班级、姓名、指导教师、完成日期等信息)(2)．正文

1、课题的选材过程（设计思路）；

2、设计的将要达到的目标；

3、总体设计结构与功能；

（1）总体设计结构介绍（绘制：结构流程图）

（2）各功能模块运行界面的功能、算法和操作步骤；

4、设计结果分析；（运行结果展示、正确性分析）(3)．总结（感想、收获、启发、存在的问题）

五、课程大作业提交

（1）形式

设计报告 + 源程序文件(含可执行文件)

其中：<1>设计报告的封面统一（附件2）；

<2>源程序文件（含 *.vbp；*.frm；*.exe）打包压缩成一个文件，以学号+姓名（例如： 11020741姓名）为文件名。

（2）时间

2014年5月10日 之前；

（3）方法

纸质报告及压缩文件交各班学委，按顺序排好后由学委统一上交；

附件一：

参考题目

1、《班级信息系统》

描述：如同班级和每个成员的成长日记，信息量大，生动活泼，有纪念意义。要求：具有数据库、图片库等功能。

2、《幼儿算术游戏》

本系统面向3-6岁幼儿进行加、减法练习，要生动活泼，寓教于乐，主要以图形、动画、声音等多媒体形式提供学习环境。要求：

题型包括选择题和填空题两种形式。

随机出题，范围为100以内的加、减法，也可以是加减法的混合运算。以练习和试卷两种形式出题。

答案可以提供图片的形式进行选择，也可以从键盘输入。答题后要用声音或者动画给出奖励或评价。

提供背景音乐。

3、《记事本程序》

记事本主要是对文字进行编辑处理的软件。能进行新建、打开、保存等功能；并且能运用 剪贴、复制、粘贴、清除功能，对文字更方便的录入。另外还可以根据用户的需要查找相应的 文字，实现编辑功能。

由于记事本是一套简单的文本编辑器。要求记事本不但要具备完善的编辑、方便的性能，还要提供更简便的操作。这就要求设计人员在编辑过程当中尽可能的考虑到。包括以下内容： *对文本进行编辑； *用户根据不同的权限可对文本进行添加、删除、修改等操作；*对记事本进行各种编辑（精确、简单）；

4、《科学计算器》设计

本科学计算器是一种能实现 加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现了Windows自带计算器的所有功能。要实现计算器的这些功能就用到我们所学的VB知识编写程序来实现运算功能并解决问题，也是我们实训要达到的目的。

5、个人日常收入与开销记录、统计与查询

个人日常收入与开销记录包括收入与开销的时间、收入与开销来源或者去向、类型，备注，统计功能按月统计与按年统计，查询包含按时间段和类型查询。

6、《学生成绩管理系统》

本系统由三部分组成：系统管理、学籍管理、成绩管理、报表。1.用户管理：实现用户的添加、删除、密码修改、用户登录等功能。2.成绩管理：实现学生的成绩录入、成绩的查询、成绩的统计。4.报表：可以打印学生的学籍信息、成绩。数据存放到access数据库中。使用菜单、界面友好、功能完善。

VB学单词

本系统功能要求：

1.能够自动显示单个单词中英文及词性。

2.显示单个单词的时间可以调整，并随时显示已用时间。3.有暂停功能。

4.可用文本文件存储单词。

题目：饭店点菜系统

目的 通过该题目的设计，使学生掌握软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能；掌握利用VB开发数据库系统的方法

主要内容和要求（包括原始数据、技术参数、设计要求等）

主要功能有：

菜式浏览功能：能分类浏览饭店的所有菜式、采样及价格；

点菜功能：进行点菜操作后能预览点菜结果，并可对其进一步修改； 留言板功能：记录顾客的意见和建议，并具有浏览功能；

抽奖功能：当顾客的消费达到指定金额时，可分档抽取小奖品。要求：

用数据库或文件保存相关信息。

VB程序语言设计

课程大作业

题目名称：_________________________________ 班 级：_________________________________ 姓 名：_________________________________ 学 号：_________________________________ 课程教师：

温海骏

学 期： 2013-2014学年

第2学期

完成时间：

篇2：vb程序设计基础大作业

一、实验目的

1．对已学习的程序设计知识进行综合应用，结合自身兴趣，鼓励创新。2.掌握复杂程序的设计、调试方法。3.掌握撰写软件文档的能力。

二、实验内容

1使用VB语言，编程完成一个具有实用性的软件。2对所编制软件，撰写一篇相关文档。

三、设计要求

1、软件具体设计内容、功能自拟。

2、软件需具有一定实用性和复杂度。

3、软件设计思路及设计过程要求独立完成。

4、可以参考学习现有例程，但请勿全盘照搬。希望体现各人的思想和动手能力，对弄虚作假者，成绩为不及格。

四、设计思路

开动思维，观察发现程序设计的思路，题材不限

1、实用程序：个人记事本，日记薄，流水帐，我的浏览器，媒体播放器，相册，画板…

2、小游戏：五子棋，象棋，黑白棋，猜数字，跳棋…

3、网络应用：局域网聊天程序，局域网文件传输，电脑远程控制…

4、数据库应用：学生数据管理、电话联系人管理

5、硬件上位机：温度采集系统、信号采集系统

五、文档要求

 撰写关于软件的文档，可以为如下内容的一项或多项。

 软件使用说明（必须） 软件设计说明（必须）

 软件设计心得体会（可选） 等等…

 文档不少于1000字，否则不达标

六、设计内容验收、提交要求

时间：实验课内及16周前（暂定，具体时间另通知）验收方式：现场演示、回答提问 提交内容：

1、软件源程序

2、文档电子稿

3、文档打印稿

根据软件设计质量、难度和工作强度，文档撰写水平，演示和提问表现，综合评定课程设计成绩。

有使用课外的知识完成的软件可额外加分，如数据库、串口通信、网络通信等。

篇3：vb程序设计基础大作业

在Excel教学过程中, 我们要在多媒体电子教室收取学生作业。而在课堂上, 对学生的课堂作业要进行及时批改评分是很费时间的。这样就不能客观公正的对学生及时进行评价, 对教学中存在的问题不能及时发现。怎样才能对学生的作业及时批改评分, 笔者查阅了有关vb程序自动化控制Excel的有关资料, 编写了一个小系统, 可以对学生的作业进行评分。

1系统实现的关键技术

1.1自动化控制

自动化使应用程序能够对另一个应用程序中实现的对象进行操作, 或者将对象公开以便可以对其进行操作。自动化服务器是向其他应用程序 (称为自动化客户端) 公开可编程对象 (称为自动化对象) 的应用程序。自动化服务器有时称为自动化组件。

许多Microsoft的应用程序是自动化服务器, 包括Access、Word、Excel、PowerPoint、、FrontPage等。这意味着您可以再使用这些特色丰富的应用程序作为您的应用程序的服务器。

公开自动化对象使客户端能够直接访问通过服务器可用的对象和功能, 从而自动完成某些过程。当应用程序提供的功能对其他应用程序有用时, 这样公开对象是有益处的。

要让vb编写的程序作为客户端, Excel程序作为应用程序服务器, 让vb程序能自动化控制Excel程序, 首先应在vb程序中引用Microsoft Excel类型库。方法是:从“工程”菜单中选择“引用”命令;选择Microsoft Excel 11.0 Object Library (office 2003不同的版本, 库的版本也不一样) ;选择“确定”。然后, 在vb程序中创建Excel向用户公开的对象, 在通用对象的声明过程中定义Excel对象:Excel.Application 、 Excel.WorkBook 、Excel.Worksheet 、Range、chart等。Excel.Application对象相当Excel应用程序, Excel.WorkBook对象对应于用户工作簿, Excel.Worksheet对象对应于工作表, range对象是选取的区域, chart对象对应于图表。这样, vb程序就可以通过Excel服务器实现对对象的自动化控制, 完成对对象的属性的提取或判别。这也是实现对学主作业评分的最关键的技术。

1.2Excel中宏的录制和编辑功能

Excel对象库中基本对象的属性直接反映了对象的特征或状态, 通过对对象属性值和题目所要求的对象属性进行比对, 可以判断出学生作业做得对或者错。对象的属性非常多, 虽然我们可以通过对象浏览的方法和系统的帮助查阅到我们编程所需的对象属性, 但是费时费力, 编程的效率非常低。Excel 提供了非常强大的宏编辑功能, 我们可以通宏来解决这个问题。

在Excel工作簿中录制宏, 按题目的要求对指定的工作簿进行编辑, 将对象进行的操作和对象状态或属性的改变以代码的形式存储中宏中。打开宏, 将对象属性的或状态改变的代码提取、转换成对象属性或状态的测试语句, 也就是变成对学生作业评分的语句, 这样就提高了编程的效率和准确度。

例如:将a1:e1单元格区域字体设置为楷体

以下为宏代码

Range ("A1:E1") .Select

With Selection.Font

.Name = "楷体_GB2312"

.FontStyle = "常规"

.Size = 14

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

提取转换后的评分代码是

Range ("A1:E1") .Select

If Selection.Font.Name = "楷体_GB2312" then zf=zf+1 else ss=ss+”字体设置不正确”

如果正确设置了, 那么总分增加一定的值, 否则, 将出错原因记录在字符串ss中

1.3公共对话框的应用

要批量选择学生作业工作簿, 需要设计批量选取工作簿文件的对话框, 这会增加很大的工作量。Visual basic 提供了通用对话框 (common dialog box) 控件, 使得设计对话框十分方便。在默认情况下, 通用对话框控件不在工具箱中。在使用之前, 应将其添加到工具箱中。具体方法是在“工程”菜单中选“部件”命令, 打开“部件对话框。在“部件”对话框的“控件”选项卡中, 从列出的控件中找到microsoft common dialog control 6.0, 使在前面复选框中打下 “√”, 再单击“应用”按钮, 通用对话框就出现在在工具箱中, 就可以使用该控件了。

2系统的实现

2.1系统的功能模块

系统有四个模块, 分别是:① 选择评分工作簿:选取要批量评分的学生工作簿;② 评分:批量对学生的Excel作业进行评分, 并把学生的姓名、总分和出错原因写入“评分.xls”工作簿中;③ 查看结果:打开“评分.xls”工作簿, 查看评分的结果;④ 退出:退出系统。

2.2调用通用对话框批量选取学生作业工作簿的实现

通用对话框可以提供6种不同形式的对话框, 本系统使用的是打开对话框。为了批量选取学生作业工作簿, 将对话框的flags设置为512, 运行时允许用户选取多个文件, 所选的工作簿的路径和文件名在CommonDialog1.FileName中, 文件名之间以空格分隔。本系统将提取出路径和工作簿的文件名保存在数组myfilename中。为了便于记录成绩, 学生作业工作簿用自己的姓名作为文件名。

Private Sub Command3_Click ()

CommonDialog1.DialogTitle = "打开文件"

CommonDialog1.ShowOpen

'CommonDialog1.Filter = "所有文件 (*.*) |*.*|工作簿 (*.xls) |*.xls|"

CommonDialog1.Flags = 512 '允许多选

myfilename1 = CommonDialog1.FileName

j = 1

For i = 1 To Len (myfilename1)

If Mid$ (myfilename1, i, 1) <> " " Then myfilename (j) = myfilename (j) + Mid$ (myfilename1, i, 1) Else j = j + 1

Next i

‘将文件名置于数组中 多文件时取出各个文件名和路径置于数组中, 第一单元是路径;单文件时取出文件及路径名在数组的第一单元中

End Sub

2.3对学生作业进行批量评分并记录的实现

首先创建一个Excel.Application对象, 并用open方法打开“评分.xls”工作簿对象, 并激活工作表“sheet1”对象, 并选择“sheet1”的所有单元格, 清除单元格的内容, 并在第一行的三个单元格中输入“姓名”、“总分”、“出错原因”。因为对单个学生作业和对多个学生作业进行评分时, 提取文件名的方法不同, 所以分成两部分, 一部分是对多个学生作业, 进行评分, 另一部分是对一个学生进行评分。因为两部分只有提取文件名有一些不同, 所以本文只介绍对多个学生作业进行评分的部分。创建一个循环, 每循环一次打开一个学生作业工作簿对象, 并激活工作表对象 (Worksheet) , 选择其中的对象rang、cells、chart等对象, 把对象的属性或状态和题目所要求的对象的属性或状态进行比对, 主要是用判断语句, 如果正确, 则总分加一定分值。如果出错, 则将出错原因存入字符串ss中。最后, 激活“评分.xls”工作簿对象的“sheet1”对象, 将结果写入激活“评分.xls”工作簿对象的“sheet1”对象的单元格中。循环结束, 则将完成对所有学生的批量评分, 并将结果记录在““评分.xls”中

以下是程序代码:

Public j As Integer

Public myfilename1 As String

Public myfilename (100) As String (一个班最多100个学生)

Dim aa As Excel.Application

Dim bb As Excel.Workbook

Dim bb1 As Excel.Workbook

Dim cc As Excel.Worksheet

Dim cc1 As Excel.Worksheet

Dim ss As String

Private Sub Command1_Click ()

If j >= 2 Then

Set aa = CreateObject ("Excel.Application")

aa.Visible = True

Set bb1 = aa.Workbooks.Open (App.Path & "评分.XLS")

Set cc1 = bb1.Worksheets ("sheet1")

cc1.Activate

cc1.Cells.Select

Selection.Clear

cc1.Cells (1, 1) = "姓名"

cc1.Cells (1, 2) = "总分"

cc1.Cells (1, 3) = "出错原因"

For m = 2 To j

myfilename1 = myfilename (1) & myfilename (m) '多文件时取出各个文件名置于数组中, 第一单元是路径, 其它各单元是文件名

Set bb = aa.Workbooks.Open (myfilename1) 打开要评分的学生作业文档

Set cc = bb.Worksheets ("sheet1")

zf = 0 记录总分

ss = "" ‘记录出错原因

Form1.Show

Range ("b15") .Select

If Selection.Formula = "=SUM (B3:B14) " Then

zf = zf + 1

Else

ss = ss + "1计算不正确"

End If

Range ("f3") .Select

If Selection.Formula = "= (B3+C3+D3+E3) /3" Then

zf = zf + 1

Else

ss = ss + "2计算不正确"

End If

If Selection.NumberFormat = "$#, ##0.000;$-#, ##0.000" Then

zf = zf + 1

Else

ss = ss + "数据格式不正确"

End If

Range ("A1:e1") .Select

If Selection.HorizontalAlignment = xlCenterAcrossSelection Then

zf = zf + 1

Else

ss = ss + "设置了跨列居中不正确"

End If

If Selection.Font.Name = "楷体_GB2312" Then

zf = zf + 1

Else

ss = ss + "设置了楷体不正确"

End If

If Selection.Font.Size = "18" Then

zf = zf + 1

Else

ss = ss + "设置字号不正确"

End If

If Selection.Font.ColorIndex = 5 Then

zf = zf + 1

Else

ss = ss + "设置了字符颜色错误"

End If

cc1.Activate

l1 = Len (myfilename (1) )

l2 = Len (myfilename1)

cc1.Cells (m, 1) = Mid$ (myfilename1, l1 + 1, l2 - l1 - 4) ‘学生作业用学生自己的名字命名, 取得学生姓名

cc1.Cells (m, 2) = zf

cc1.Cells (m, 3) = ss

'Form1.Print ss 打印评分说明

Set cc = Nothing

bb.Save

bb.Close

Set bb = Nothing

Next m

Else 单个学生的评分与上基本相同 (略)

2.4查阅评分结果

打开“评分.xls”工作簿, 让用户查看评分的结果。

因为习题是千变万化的, 所以评分程序也要不断更新。为提高效率, 我们要充分利用Excel的宏功能, 实现快速编程。另外, 我们也可以根据教学内容编写习题集和相应的评分程序集。

参考文献

[1]谭浩强, 袁玫, 薛淑斌.visual basic程序设计[M].北京:清华大学出版社, 2006.

篇4：作业巧设计 彰显大魅力

关键词：数学作业；巧妙设计；彰显魅力

中图分类号：G623.5 文献标识码：A 文章编号：1009-010X（2015）23-0046-03

机械重复、内容枯燥、形式单一的作业，会成为学生的一个包袱、一个枯燥而又不得不投入的活动，大大扼杀了学生的求知欲、好奇心、创造性，甚至成为他们的精神负担。新形势下的数学教师要重新定位作业的功能，巧妙设计充满魅力的数学作业，使学生乐于去思考、去探索、去完成，从而保持他们应有的童真。

一、联系社会生活，摒弃纸上谈兵

《九年义务教育数学课程标准》（2011版）指出：“要重视从学生的生活实践经验和已有的知识中学习数学和理解数学。”因此，教师要注意将数学作业与学生的实际生活紧密联系起来，引导学生用数学的眼光观察生活世界，在生活中加深对数学知识的理解，从而让学生体会到“数学源于生活、寓于生活、用于生活”的真谛。

例如，学习了“扇形统计图”之后，我布置学生调查上个月自己家各项支出情况，并把支出情况制成扇形统计图，再认真观察扇形统计图，从图中可以获得哪些信息？对于上个月的支出，自己准备向爸爸妈妈提出什么合理化的建议？这种与社会生活紧密联系的作业，不仅加深了学生对扇形统计图的认识，还可以使学生真切地感受到数学在生活中的应用价值，从而激发了学生学习的热情，强化了学生学习的动机，发展了学生的应用意识，学生都能乐于地去完成此项作业。

二、改变呈现形式，远离枯燥无味

学生对作业是否感兴趣，在很大程度上取决于作业的内容是否新鲜、有趣。他们对内容枯燥、形式单调的作业感到乏味，而喜欢贴近生活实际、富有童趣的作业。

例如，复习“体积和容积单位”知识后，可布置“生活在线”——“小马虎的日记”：“今天早晨，我起床后，来到了空间为3立方分米的卫生间，拿起容积为200毫升的刷牙缸接了180升水开始刷牙。刷完牙，急急忙忙地洗脸、吃早饭。上学路上，我看见一辆载有60立方分米集装箱的卡车，那卡车油箱的容积足足有600毫升。到了学校，看到老师已经在教室里讲课了，我赶紧从容积为10立方米的书包里翻出笔记本，从体积为0.3立方米的文具盒里拿出笔认真地做起笔记。”老师在小马虎的日记上批了“可能吗”三个字，同学们，知道这是为什么吗？

本题将干巴巴的“在括号中填上合适的单位名称”改为富有情境性的数学日记，说是给作业“化妆”，其实质还是让学生掌握一些基本的体积和容积单位。我还常常这样“化妆”作业：将“选择题”美其名曰“快乐do re mi”、“连线题”包装为“最佳搭档”、“改错题”变成了“我当小医生”……经过“化妆”的作业，成了极富情趣的智慧之旅、充满爱心的情感渠道，学生兴趣盎然、乐在其中。

三、注重言语交流，调动多感参与

提到作业，许多教师习惯于布置笔头作业，而忽视了口头作业。其实，对于小学生来说，口头作业也很重要。因为，口头作业既能巩固当天所学的知识，又能提高学生的口头表达能力；再加上与家人在一起，本来就喜欢分享一天的收获，学生肯定很乐意接受这样的作业，并不折不扣地去完成。

例如，学习了“24时计时法”一课后，可以让学生和家人用普通计时法说一说：早上，自己几时几分起床，家人几时几分起床；下午，自己几时几分放学，家人几时几分下班等，这些时间转换成24时计时法又该怎么说？学生在说、换的过程中，既加深了对普通计时法和24时计时法的理解，还能感悟到家人的辛苦，无形之中也培养了学生爱家、爱父母的情感。

四、引入亲子互动，培养积极情感

丰富的情感、积极的态度、正确的价值观是学生学习、生存和发展的基础。数学课程标准也提出教学中要重视对学生情感态度的培养。在作业中，设计亲子互动作业，也不失为培养学生积极情感的一个重要举措。

例如，学习了“口算两位数加两位数”的加法后，我改变了布置很多道算式让学生口算作为家庭作业的形式。而把此项作业布置成“亲子作业”：由家长向学生出十道两位数加两位数的算式，学生在家长的监督下口算完成，并请家长指定其中的几道算式让学生说一说口算时是怎么想的，且批改订正，最后交由老师进行评价，结果再通过“家校E通”反馈给家长。如此一来：作业量少了，过程真实了，效果也好了。在达到巩固口算加法的同时，既增进了学生与家长之间的亲情交流，也给学生及家庭带来了无穷乐趣。

五、加强实践操作，发展综合能力

《数学课程标准》指出：“有效的数学学习活动不能单纯地依赖模仿与记忆，动手实践是学生学习数学的重要方式。”因此，在作业设计中，要提供各种机会，让学生参与实践操作活动，使学生在参与过程中掌握知识，发展能力，拓展思维。

例如，学习了“长方体和正方体表面积”一课后，让学生回家做一个长方体或正方体，并计算其表面积，做得好的放在“学习角”上展示，供大家欣赏。完成这样的操作型作业，学生既要考虑制作的顺序，又要考虑所用材料的大小，思维被有效激活。这种操作型的作业将知识巩固、兴趣激发、思维训练、能力提高融为一体，真正达到了做作业目的。

又如，在学习了“比例”一课后，我布置学生运用所学知识想办法测量学校的旗杆有多高。在活动中，学生既要考虑测量的方法，又要考虑测量需要的材料，还要考虑测量的一些外部因素……整个活动过程，学生真是乐此不疲，既找到了测量旗杆有多高的方法，加深了对比例知识的理解和运用；又感受了数学与生活的紧密联系；还积累了探索并发现规律的经验，可谓是一举数得。

六、重视学科渗透，提供“全营养”教育

数学是一门基础学科，与其他学科有着密切的联系。教师应建立大数学观，探索并设计与其他学科相结合的作业，给学生提供“全营养式”的教育。

例如，学习了“轴对称图形”一课后，让学生回家画一幅具有对称性的图案，第二天带到学校展示。学生会把数学作业当做美术作业来做，兴趣浓厚。由认识“轴对称图形”到创造“轴对称图形”，使得学生在知识和能力方面都得到一次提升。

又如，学习了“分数乘除法”后，我布置了一项这样的作业：音乐中不同的音符表示不同的时值，你能算出二分音符和八分音符的时值各是多少拍吗？再算一算多少个十六分音符时值等于1个四分音符的时值？这样的作业使数学知识和乐理知识有机融合。学生为了完成作业，首先要知道五线谱里的音符也可以用分数来描述，而怎么描述呢？全音符的时值通常是多少拍呢？于是，他们会选择查阅资料、上网搜索或选择去请教音乐老师，整个过程都兴致盎然。这样的作业，拓宽了学生知识面，开阔了视野，比直接要求学生硬性计算等于多少趣味浓厚。

再如，在测量学校旗杆有多高的实践活动后，可让学生回忆整个测量过程：想一想你是怎样发现物体的高度和影长之间的关系的，活动中遇到过什么样的困难，又是怎样克服的？通过参与这一活动有哪些收获和体会……然后把它们写出来。因为亲身经历，所以有话写，也乐于写。在写的过程中，一篇篇数学小论文、小日记就悄无声息地诞生了。这个作业，使学生享受成功乐趣的同时，拓宽了师生情感交流的时空，提高了学生的语文写作水平。

篇5：vb程序设计基础大作业

一、单项选择题

1.Visual Basic程序中分隔各语句的字符是(:)

2.工程文件的扩展名是（vbp）

3.下列运算符中，运算级别最高的是（*）

4.下列可作为Visual Basic的变量名的是(Filename)

5.下面的程序的输出结果是(21 21)

x=5

For i = 1 To 20 Step 2

x=x+i5

Next i

Print x, i

6.下列赋值语句合法的是（A=A+B）

7.下列属性中，目录列表框和文件列表框都有的属性为（Path）。

8.执行下面的程序段后，x的值为(21)

x=5

For i = 1 To 20 Step 2

x=x+i5

Next i

9.向一个顺序文件中写数据时，（Append）是从文件末尾添加的方式打开顺序文件。

10.Seek方法用于在（表）类型的记录集中查找满足条件的记录。

11.当函数EOF()的返回值为真时，表示文件的指针指向（尾部）

12.如果要退出Do„Loop循环，可使用语句（Exit Do）。

13.在VB中，称对象的数据为（属性）。

14.不论何对象，都具有（Name）属性。

15.使用Public Const语句声明一个全局的符号常量时，该语句应放在（标准模块的通用声明段）。

16.下面关于变量的作用域，正确的描述是（同一模块中不同级的变量不能同名）。

17.设a=2，b=3，c=4，d=5，下列表达式的值是（False）a＞b AND c＜=d OR 2*a＞c

18.把数值型转换为字符（串）型需要使用下列哪一个函数？（Str）

19.以下叙述错误的是（KeyPress事件中可以识别键盘上某个键的按下与释放）

20.用于设置或返回文件类型的属性是（Pattern）。

21.要删除列表框中的某一个项目，需要使用（ReMoveItem）方法。

22.以下语句的输出结果是(在立即窗口中)(Δ27ΔΔ65Δ)a=27 ＜CR＞(＜CR＞为回车)b=65 ＜CR＞ Print a;b ＜CR＞

23.语句Print 5*55/5的输出结果是(25)

24.编写如下事件过程：

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

if shift=6 and button=2 then

print “BBBB”

end if

end sub

程序运行后，为了在窗体上输出“BBBB”，应执行的操作为（同时按下ctrl、alt键和鼠标右键）

篇6：《创业基础》大作业

一、材料阅读题(30分)从全球范围来说，当人类进入2l世纪后，创业已成为经济发展的源动力。创业是创新和变化的源泉，刺激了生产力和经济竞争力的提高。

创业这个词很早就有。如，《孟子·梁惠王下》：“君子创业垂统，为可继也。”诸葛亮《出师表》：“先帝创业未半，而中道崩殂”。实际上，现在我们经常读到或听到创业这个词，它究竟是指什么？

“创业”（entrepreneurship）定义很多。《现代汉语词典》的解释是：创办事业。《辞海》的解释是：创立基业。熊彼特（Schumpeter）对创业的定义是：“强调革新，包含新的产品、新的生产方法、新的市场、新的组织形式。财富就是在满足新的需求的革新的活动中被创造出来的。从这个角度来说，创业者可以被视为那些将各种不同的因素组合在一项革新性的活动中，并以此满足消费者的需求的人。同时，他们也希望实现的价值要超越原来的各因素的价值总和，并且能够创造出新财富。”。

美国百森商学院被誉为“创业教育之父”的蒂蒙斯（Timmons）认为，“创业不仅仅意味着创办企业、筹集资金和提供就业机会，也不只等同于创新、创造和突破。”

南开大学创业管理研究中心主任张玉利教授认为，“把创业仅仅理解为创建新企业是片面的，创业的本质更在于把握机会、创造性地整合资源、创新和快速行动，创业精神是创新的源泉。”

创业是不考虑当前所控制的资源而追求机会的过程。创业行为的本质在于识别机会并将有用创意付诸实践。创业不仅是创办新组织或开展新业务，更是一个创新的过程，在这个过程中，新产品或新服务的机会被确认、被创造，最后被开发出来产生新的财富（Drucker，1985）。

创业的本质是创新，其核心在于超越既有资源限制而对机会的追求。具体包括：一是新组织或活动创立。二是创新。三是组织内部创业。德鲁克（1985）就曾说：”今天的大企业，除非它们拥有创新能力，否则将难以生存下去“。组织内部创业可分为三种类型：（1）在已经存在的组织内部创立一个新组织；（2）组织的改变或策略性重建，这种形式更加普遍；（3）通过根本上改变该行业的创新来改变该行业的竞争准则。

创业的涵义近来已从传统意义上的企业创建范畴拓展到非营利组织创业等多个层面。

一般认为，创业的概念分为狭义的创业和广义的创业。

狭义的创业概念为”创建一个新企业的过程“，包括两个层次的内容：即创建新企业和企业内部创业。

广义的创业概念为：创业是不拘泥于当前资源约束，寻求机会、进行价值创造的过程。所有进行价值创造的过程都是创业，既包括创办营利性组织，也包括创办非营利性组织；既包括创办大型的事业，也包括创办小规模的事业甚至”家业"；既包括创办各类组织，也包括创办各类组织混合体，以及创办各种活动的过程。

根据古今中外人们对创业概念的阐述，你认为在社会实践中，应该采用广义创业概念还是狭义创业概念，请详细阐述(30分)。

二、案例分析题（30分）

状元张謇投身社会创业事业

张謇，江苏南通人，为光绪甲午科状元。甲午战争，日军侵华，北洋水师全军覆没，李鸿章被迫签定《马关条约》，割地赔款，丧权辱国，帝国主义更掀起瓜分狂潮，中国处于亡国灭种边缘。张謇虽为状元郎，却无意于官场角逐，常常夙夜难眠，为国家命运而徘徊辗转。

终于有一天，一外国人一番话使他恍然大悟：“言中国非不能普及教育、公共卫生、大兴实业、推广慈善，必不能共和，必不能发达。行此四事，一二十年后，必跻一等国；能行二三事，亦不至落为三等国。”

为了能实现“匡济天下”的抱负，他抛弃官职，下海经商，踏上实业救国之路。张謇此举风险极大，稍有不慎便可能身败名裂，因此以“舍身饲虎”形容，但为天下苍生，他义无反顾，大有“我不入地狱，谁入地狱”的悲壮。出于“天地之大德曰生”的儒家理念，他将所创办的实业命名为“大生”，历经数十年商海沉浮，大生纱厂成为中华民族资本主义的骄傲。创办实业不过是张謇获取资金的途径，他真正醉心是教育、慈善事业的振兴。

南通为张謇故乡，在晚清乱世中饱经战火蹂躏，灾害摧残，民生凋蔽、满目疮痍，张謇为了能拯救父老乡亲于水火，倾尽财力心血。

张謇兴办许多慈善事业，为帮助穷困潦倒的节妇，1896年，他出资设立儒寡会，优恤士族妇女；为拯救被溺杀的婴儿，1905年，他发起建立新育婴堂，收容婴儿1300名；为安置无业贫民，1914年，他募资开办贫民工厂，招收贫民100人；为救助误入风尘女子，1915年，他支持警察局设立济良所，帮助娼妓改过自新；为造就残疾人独立生存能力，1916年，他购地兴建残疾院和盲哑学校，教授残疾人生存技能；同年，他将养济院改成栖流所，收养乞丐；为救助无依老人。张謇创办和支持建立的慈善救助机构还有为死亡而无处安葬的贫穷者提供帮助的义冢，面积达540亩。除此之外，张謇还创办女红传习所、医院、博物馆、图书馆、剧场、公园等公益机构。

兴办慈善事业需要大笔资金，张謇除将大生纱厂每年盈利拨出相当部分作为慈善专项基金，还在百忙之中，卖字筹资，育婴堂创办时，资金难以维持，于是张状元在报纸登广告，一卖就是数年。所筹资金捐给育婴堂。张謇还利用自身影响力，号召政府拨款资助慈善事业。他还注意慈善机构改革，教养结合，让弱势群体自力更生、丰衣足食。尽管如此，张謇还是负担沉重，在二十年岁月中，张謇为慈善事业捐资一百五十万，负债五十万元。

在张謇的努力下，使南通从一个落后、封闭的县城转变为陶渊明笔下的“世外桃源”，百姓安居乐业，街道秩序井然，许多慕名前来考察的外国友人被良好的社会风貌与优美的自然风光所陶醉，称其为“人间天堂”。南通成为中国近代城市的鼎范。

湖南大学中国社会创业（公益创业）研究中心，借鉴牛津大学，采用的社会创业定义是:“社会创业”，指个人、社会组织或者网络等在社会使命的激发下，追求创新、效率和社会效果，是面向社会需要、建立新的组织、向公众提供产品或服务的社会活动。湖南大学社会创业研究中心为了使社会创业具有可操作性，初步确定其为以下几类：（1）创办兼顾社会利益的非营利组织，如创建慈善公益基金会等。（2）创办兼顾社会利益的营利企业。（3）志愿公益活动等。各类组织，如多种形式的实践活动，社团或沙龙的组织管理、报刊的构思与设计、新观点的提出、小实验、小制作，举办学术报告、科研竞赛、创业竞赛、暑期学生社会实践活动、创办各种形式的创业园等等，这都是社会创业实践活动的重要内容。（4）产学研混合型社会创业等。

根据社会创业概念的阐述，你认为状元张謇投身社会创业社会实践中，主要涉及了哪些类型？您认为社会创业与创办企业的狭义创业定义进行了哪些方面拓展？请阐述社会创业的价值和意义。状元张謇社会创业对当今社会的借鉴意义，怎样借鉴？请详细阐述(30分)。

三、论述题（40分）

根据创业和社会创业相关概念，请您分析您现在所处的环境的机会和威胁，分析您自身优势和不足，怎样扬长避短进行岗位创业或者未来创办企业或者社会组织。请阐述您的创业设想方案(40分)。

答案：

一、材料阅读题。

答：在社会实践中，我认为应该采用广义创业概念。

随着经济不断增长，经济体系已经开始了朝着多元化的方向发展，创业的模式已经不仅仅是传统的简单的创建一个新企业的模式——也就是狭义的创业模式，广义的创业模式更合适以及满足经济市场的需求。

创建一个新企业首先就要看准行业，这样不仅会受入行条件的限制，导致适合行业的选择面变窄，而且很难体现个人的兴趣及个性，此外，狭义的创业模式思路单一，遇到不可抗因素时调整的灵活性降低，不利于发展。但是市场多元化造就了更多的创业机会，广义的创业模式更能适应市场，而且不受资源约束可以让创业的阻力大大减小，广义创业也更能实现创业者的自我价值。

二、案例分析题 答：

1、张謇投身社会创业社会实践中，主要涉及了：

（1）创办兼顾社会利益的非营利组织，如出资设立儒寡会，优恤士族妇女；发起建立新育婴堂，收容婴儿等。

（2）创办兼顾社会利益的营利企业，如募资开办贫民工厂，招收贫民。

（3）志愿公益活动等，注意慈善机构改革，教养结合，让弱势群体自力更生、丰衣足食。

2、社会创业与创办企业的狭义创业定义进行的拓展面有：（1）、创业者的对象方面，社会创业中，创业者已经不仅仅是个人，或人组成的群体，也包含网络等信息传播媒介。

（2）、创业的初衷不同，社会创业是以社会使命的激发为前提的。（3）、社会创业不是创建一个新企业，也会是创建新组织。（4）、社会创业不仅仅追求创新和效率，还追求社会效应。

3、社会创业的意义和价值：（1）、缓解社会就业压力；（2）、推动社会发展进程；（3）、激发社会公益事业发展；（4）、缓解社会矛盾；（5）、增加社会剩余资源的循环利用率，减少资源浪费等。

4、张謇社会创业对当今社会的借鉴意义：（1）、创业方向多元化，社会创业方向应该多元化，就如张謇不仅设立儒寡会，优恤士族妇女；为拯救被溺杀的婴儿，他还发起建立新育婴堂，收容婴儿；

（2）、公益不应单是救助，更应是引导教育。俗话说“救急不救穷”，在社会创业过程中，“授人以渔不如授人以鱼”，我们除了物质上的救助外，更应该是精神上的救助，就像张骞为造就残疾人独立生存能力，他购地兴建残疾院和盲哑学校，教授残疾人生存技能。

三、论述题 答： 我的项目：学校食堂餐饮连锁

创业打算：在创业初期，先以我工作所在学校为例，重点以石门县几所中学为最初经营范围。当经营到一定规模时，逐步推广到其他市区乃至全省甚至全国院校。创业原因：

1.在学校中一直被诟病的就是学校食堂的饮食问题，学校的饮食质量不高已成为公认的问题，仅仅是满足了学生们的温饱问题,而质量却远远没有达到学生们的要求。部分学校的饮食状况令人担忧，甚至有的学校食堂出现了集体中毒事件。

2.食堂提供的是大锅饭，菜式是以量多，而品种单一化，以远远不能满足师生们的就餐需要和营养补足。人的口味也是有规律可循的，海鲜吃多了想烧烤，大菜吃多了想小吃，饺子好吃也不能天天来，细粮吃腻了换粗粮，认真观察同学们的口味变化，随时改变菜式。这才是学校校园的食堂，这才是我们学生想要的食堂，而事实上呢？同学对食堂的抱怨也不是一时半刻了！随着我们学校的不断发展，基础设施的不断完善，学校招生数量日益增多，而人均生活空间日益降低、学校食堂已不能满足学生餐饮的需要，这也为我们学校餐饮提供新的机遇和商机。

3.在双休日期间，有很多同学因忙碌的学习过后想趁此多睡一会，却误了早餐时间而没早餐吃；有的同学嫌食堂的口味不好选择外面的路滩小店，而外面的卫生状况也令人堪忧；还有的同学两者都不选，而是空着肚子或吃点零食就算早餐了等等。这种隐藏在学生中的小事一直没有被老师发现和被人反应，而作为学生的我们都能感觉到的。这样不吃早饭和不卫生的餐点会直接损害学生的身体健康，而这也是我们学校不愿看到的。

4.我校食堂虽然有包餐点和炒菜点，但为什么不能缓解我校师生就餐方面的压力呢？原因就是规模太小，价格偏高，而且量也比较少，不能实实在在为学生着想。所以很多学生宁愿跑远到外面去吃，也不愿到食堂就餐。

为了使以上现象得到改善，我决定进行自主创业，开设学生餐饮连锁机构，真正站在一个在校学生的角度上，为学生们着想，开设学生们真正喜欢的食堂。服务宗旨：物美价廉、种类齐全、让利学生、取信学生

创业细节:1.学生饮食连锁以不断提高学生饮食质量、价格便宜的食物为目标。可以通过我们的采购部于蔬菜种植基地，水果种植基地以及牲畜养殖场达成贸易共识，并建立配送车队，为学生饮食连锁在各高校的分部统一生产配送蔬菜水果等食品原料。减少中间环节，以降低成本，并让利给学生，使学生感到食物价格便宜了、质量提高了。必然赢得生源。

2.学生饮食连锁以做出不同风味的小吃满足不同地区同学的口味。不同地区的同学有不同的口味，外面包餐店可以不断增多，就是能够满足学生的口味需要。我们可以如法炮制，并开出不同风味的包餐店，并增设自主选择炒菜店、快餐店和特色小吃店。也增加些各地方名吃，吸引同学们的口味；我们通过对学生口味的变化进行调查和四季的变化进行对菜式的调整，以满足同学们变化的需求。而不是像食堂一样盲目、单一的服务学生，我们用的是更人性化、更优质的服务，一定能得到学生们的认同和青睐。

3．学生饮食连锁为学生提供像快餐一样快捷、便利的早餐外送服务，解决有些同学吃早餐难的问题；提供各式口味的早餐小吃，解决早餐口味单一化，满足同学的口味问题。同时推出自主选择服务，就是老师和同学可以拿碗自主选择想吃的，量的多少、种类可以自己定。这是我们早餐方式的亮点，比别的早餐方式更有吸引力。

4．学校的扩大，学生的扩招。我们学生饮食连锁为不同地区、不同口味的同学设置不同的售菜窗口，让同学能感觉到家的温暖。也让不同地区的同学吃到各式口味的菜肴，吸引学生的食欲。

5.学生饮食连锁以整洁的就餐环境，卫生、安全的食物质量，让学生吃的安心、放心。比起外面的环境卫生而言，学生定会选择卫生的地方就餐。

.6.学生饮食联盟的发展要求低。只要是学校内或学校外围，有合适的店我们可以租店。如果没有，只要给我们地盘，架着蓬子也可以干的风风火火。

创业特色： 1.鉴于很多学生懒于买早餐项目，我们将开设免费配送早餐项目。也会开设外卖服务。

2.可以自主择量。有的学生吃的较少，有的学生则吃的多些。比如最基本的:男生和女生的饭量就会有很大的差异.但大部分学校食堂则不顾量的差异，价钱都一样，这样吃的少的同学很容易造成浪费，相反的有些同学可能吃不饱。针对这种现象，我的餐饮部可以自主择量，量越少价格越低。

3.所有服务人员都将收纳在校贫困学生，对其进行简单的培训。这样可以减少贫困生的经济负担。

风险预测:学生饮食联盟在创业初期的风险预测： 在学生饮食联盟的创业初期，可以设立一到两个试点

观测经营效果和师生的动态反应。如果可以发展就加大投资力度；如果不行可改变经营方式，或退出经营，以减小初期风险。

资金来源：各院的食堂和学校的入股合作---我们学生饮食联盟与之发展的伙伴就是各院的食堂和学校，我们通过与他们协商，并出示相关可行的方案等，以借助他们的有生力量小本创业，共同聚集分散的资金、共建学生饮食联盟、共同谋求未来的发展创业投资，为学生的安全卫生饮食而努力。以此打动他们和我们合作，得到入股资金。

管理理念;（1）尊重餐饮业人员的独立人格。

篇7：vb程序设计基础大作业

一、填空题（本大题共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

篇8：vb程序设计基础大作业

关键词：教学改革,过程化考核,VB.NET,程序设计

1 引言

在以课程为基本单位的高校教育中,考试常常被认为是一门课程的结束,考试成绩被看作是反映学生最终学习效果和教师教学质量的一个重要因素。但是,学习本身是一个过程,在这个过程中,如何激励学生更积极主动地投入学习并提高学习效果,如何引导教师提高教学水平,这才是高校一直在探索和改革的重要方向。

程序设计基础VB.NET是目前高等院校普遍开设的一门计算机基础课程,无论是计算机专业还是非计算机专业,对于大部分学生来说,学习该课程基本都是零起点起步。学生通过学习该课程,可以为今后的深入学习以及后续课程的学习打下坚实的基础。作为编程基础课程,该课涉及的学生数量较多,面向的学院较广,对相关后续学习的影响也较大。

2 存在的问题

目前的程序设计基础VB.NET课程的教学中,主要采用单次期末考试结合平时表现的考核方式。期末考试的成绩在考核中占较大比重;通过平时作业和上机操作情况会得到的平时成绩,在考核中占较小的比重。从多年的教学实践情况看,这种方式存在诸多弊端。从学生的角度来看,单次考试方式影响学习效果,学生中普遍存在一些情况,平时学习不努力,主要精力投放在期末突击应考。通过一个短期的密集复习,学生能够取得一定的学习效果,但是,快进必然快退,一段时间后,知识又快速遗忘,无法取得应有的成效,甚至还会影响后续课程的学习。而且,程序设计课程注重学生解决问题的能力和实践动手能力,这样的考核方式也不能全面得体现出学生的真实学习效果,反而容易误导学生对知识的掌握要求,从而偏离课程设置的初衷。从教师的角度来看,教学过程中,平时作业和上机操作的督促和激励效果有限,学生中存在一定比例的抄袭参考行为,这样学生学习的真实情况无法及时体现,导致教师在衡量教学方法、调整教学进度以及教学内容的合理安排等方面不能得到及时有效地帮助,不利于教育质量的提高。

3 过程化考核方案

基于以上问题,课程组对课程的考核进行了认真细致的分析思考,提出了过程化考核的教学改革方案,并在教学工作中进行试点实施。

考核方式具体安排如表1所示:

采用百分制计分,满分100分;

学习表现共占10%,这部分成绩通过评价学生平时的出勤和课堂表现获得;

上机实践课,学生上机完成教师布置的内容并书写实验报告,教师根据按时提交的实验报告给出实践能力分,占比为20%;

教学过程中引入两次阶段性测试,阶段性测试形式为上机完成,分别考核学生基础内容的掌握和提高内容的掌握,每次考核计10分,总共占20%;

期末考试为闭卷,旨在真实反馈学生对于基本概念、重要知识点和综合应用的掌握情况。在总评中占比为50%。

4 过程化考核方案的特点

4.1 兼顾整体和个体

在施行本方案的学期,共有10个教学班级,涉及9位任课教师参与教学改革活动。由于本课程面向多个学院多个专业,过程化考核需要在每个教学班级都有统一的执行力度才能保证课程的整体一致,所以在贯彻执行过程化考核方案的同时,课程组定期召开教学交流会,及时贯彻和讨论方案的执行。全体任课教师全程参与方案细节的详细讨论,每位教师对于教学大纲、过程化考核方案都逐步形成统一的认识。任课教师授课的教学范围、教学进度的统一,实践项目、内容的统一,保证了教学一致性;过程化考核的范围和次数的统一,期末考试采取教考分离的统考,保证了考核一致性;考核细则和评分依据的统一,保证了评定一致性。这些是这一方案面向课程保证教学整体规范,并顺利完成过程化考核教学改革的基础。

在施行本方案的学期,一共有683名学生学习本课程,这些学生的专业背景各不相同,涉及经管、人文、化学、国际经贸等多个专业,各班级的上课时间各不相通,而且个别教学班级的周学时存在差异。教学过程中针对不同的对象,还需要能够兼顾个体的差异,所以在过程化考核的方案并没有太死板的规定。例如实践项目明确了实践的内容和工作量,但没有统一规定完成哪几道题目,教师可以根据实际情况安排学生的实践题目;阶段测试规定了测试的内容范围和完成测试的时间区间,但没有统一测试时间和具体试卷。这样的做法使得教师有一定的空间调整教学安排,更合理的应对教学需求,同时也杜绝了不同班级之间学生作弊的可能。教学活动一定程度上兼顾了教学个体的差异。

4.2 教考同步

我们理解,学习是一个过程,注重这个过程,才能让学生学习的广度和深度达到较好的水平。单纯依赖期末考试,学生容易忽视学习的这个深入过程而依赖最后一搏。所以在制定考核方案时,我们特别注重考核贯穿于整个学习过程中。在本课程的考核方案中,有50%的成绩是随着教学活动的推进同时展开的。这50%的考核包含学习表现、实践能力和阶段性测试三个层次的考虑:一、学生的平时表现,即是否能够以积极认真地态度对待学习,具体表现为学习表现的评分;二、知识的理解和应用,即能否跟上教学活动的进程,具体表现为每次实践内容的完成情况;三、对于学过的知识点能否建立有机联系,进行较为综合的应用面,具体表现为阶段性测试的表现。这三个层次是学习广度上的扩展也是学习深度上的递进,可以较为科学的反映学生学习过程的实际情况。

同时,在该方案中实践部分的能力评分占总分的40%,也和教学大纲中实践课时对总授课课时的占比一致,能够较大程度体现学生实践能力的水平,体现出课程对学生实践能力培养的重视。

4.3 加深了解

采用该过程化考核方案,教师通过实践能力和阶段性测试两个环节,能够及时了解学生的掌握情况,方便教师调整教学方式和进度安排。学生也很关心自己的平时表现、上机实践和阶段性测试的情况,也能让学生对自身的学习效果有更好的认识,有助于学生调整自身的学习方式。师生之间通过课堂、机房、测试多方面的互动,提高了相互的了解,更有利于提高教学活动的质量。

5 运行效果

课程组收集了方案运行过程中的教学讨论会交流结果、所有学生成绩、任课教师的过程化考核反馈信息表,教学活动结束后还收集了一部分学生的反馈信息。主要从三个方面来看:

1)学生成绩

总体来说,过程化考核后学生的总评成绩有了一定程度的提升。下图所示是最近一个非过程化考核的学期2014-15(2)和采用过程化考核的2015-16(1)两个学期各成绩段人数在总参考人数的占比对比。

由于两个学期任课教师、学生专业背景、学生人数、使用教材等方面存在不同,所以不能太乐观于成绩的大幅提高。但是不能否认学生成绩是有一定的提高的,尤其是成绩较落后学生,提高比较明显。

2)学生评价

从收集到的一些学生评价来看,学生评价各有不同。一些学生觉得过程化考核只是考核方式改了,但是学习过程没有特别大的变化。一些学生认为过程化考核后,期末临时抱佛脚的方式不可靠了,多级测试下学习压力变大了。也会有一些学生为了取得比较好的成绩,会主动跟上课程的节奏,及时完成作业,最终成绩有了进步。

3)学风建设

综合分析各方评价,过程化考核最大的影响可能在于学风的推进。教考同步的考核方式,会引导学生跟上课程的节奏。相当一部分教师和学生都表示,因为50%的成绩都在学期进行中给出,所以学生对于平时的上课和时间的表现有了或多或少的提高、阶段性测试也会督促一些学习积极性不高的学生及时复习。该方案确实能够一定程度上调动学生的学习积极性,改变一部分学生较为懒散的学习习惯。

4)存在的不足

阶段性测试中作弊行为难以杜绝,特别是人数较多的大班。虽然任课教师采取各种措施,有的教师上机笔试结合,有的教师甚至一次考试出多套试卷,作弊行为虽然不多,但还是存在。另外阶段性测试会占用一定的课时,所以课程的进度安排会稍显紧张,这是后续方案会考虑解决的一个问题。

6 小结

结合试点班级学生和教师的反馈,我们发现,过程化考核有效地激励了学生的学习主动性和积极性。整个课程进行过程中,学生学习和实践的时间明显增加了,并且学习进度和课程的要求同步推进,提高了学生的学习效果。同时过程化考核有助于教师教学水平的提高和因材施教能力的提升。不同专业的学生本来对于程序设计课程的兴趣是不同的,接受能力也会有不同。过程化考核使得教师使对学生的学习情况有比较全面及时地了解,能够及时针对授课班级的实际情况做出调整,从而提高教学的质量。也让教师能够在授课中,积累更多经验从而有利于教师本身授课水平的提高。总体比较来看,采用过程化考核方案较原来的教学和考核方式更有利。我校在执行该课程的教学活动将继续采用过程化考核的方案,并在后续教学活动中积累经验更加优化方案。

参考文献