vb上机实习报告-盘古文库

vb上机实习报告

资料大全

来源：开心麻花

作者：开心麻花

2025-09-19

vb上机实习报告（精选6篇）

vb上机实习报告第1篇

计算机上机实习报告

学院：石油工程学院班级：储运11204 姓名：魏亚荣

学号：XXXXXXX 班内序号：XX 指导教师：XXX

第 1 页

计算机上机实习报告

一.系统名称----------------------------3 二.实习目的----------------------------3 三.系统功能概要----------------------3 四.系统设计分析----------------------3 五．窗体设计与程序代码------------5 六．心得体会---------------------------16

第页

计算机上机实习报告

一、系统名称----班级学生成绩管理系统

二、实习目的：

综合应用所学理论知识，联系实际开发一个具备简易功能的班级学生成绩管理系统。熟悉程序编写与调试，熟悉数据文件的创建、打开、读写、关闭等相关操作，同时让我们熟悉VB 6.0的开发环境,掌握基本的编程方法,熟悉用VB语言完成一个应用程序的设计过程,掌握有关编辑和调试程序的方法和技巧。

三、系统功能概要

1、用记事本新建一个文本文件，将本班的M名学生的有关信息及本学期的N门考试课的成绩（要求用假想分数，并要求将自己的每门课的放在第一列）输入到这个文件中,建议按如下形式存放(注：20≤M≤50、5≤N≤8，下文以M=10,N=5为例): 序号

姓名

幸运日

出生日期

英语

VB 数学

体育

专业课

作者自己

1992.12.19 99

张某

1993.08.06 77

李某

1994.11.16 89

王某

1993.06.04 56

刘某

1994.01.05 82

孙某

1994.01.15 45

赵某

1992.01.05 82

陈某

1993.12.25 86

周某

1666.12.23 56

钱某

1994.03.03 56

2、将本学期的N门课程及其学分(16学时为1个学分)输入到另一个数据文件（文件类型同上题）中，建议如下列形式存放：

编号

课程名称

课程学分

英语

5.0 2

vb程序设计

数学

4.5 4

体育

3.0 5

专业课

10.0 1）找出“出生日”与幸运日相同的人，并打印出其信息（每行输出一个人信息）2）统计出分别拥有幸运数字1，2,3,4,5,6,7,8,9,0的人数 3）能查出任何一个你感兴趣的人的信息 4）可新添加一个人的信息 5）和删除一个人的信息

第页

计算机上机实习报告

6）可以对某个人的幸运数字进行修改，只改变其幸运数字，其他信息不变

7）根据以上两文件内容分别计算每个学生N门课的加权平均分（保留2位小数，4舍5入）,按平均分排列名次，平均分相同则名次并列，如第1、2、2、4、5、5、7…名。用VB创建一个数据文件，存放班级的成绩表，建议按以下形式存放。

学号

姓名

英语

vb程序设计

数学

平均成绩

名次

张某

80.5

李某

78.2

王某

88.8

赵某

68.5

8）分别统计全班每门课的平均分，并计算各分数段（60分以下；60～69；70～79；80～89；90分以上）的学生人数。用VB创建一个新的数据文件，在该文件中存放数据的格式如下：

范围.英语

.>=90

.80-89

...............................9）打印每名学生成绩条（并将结果存放到用VB创建的一个新的数据文件中）。

10）打印所有存在不及格课程学生的名单（含学号、不及格课程名称、课程的学分及成绩）。11）打印优等生名单（学号、Ｎ门课成绩、平均分名次）优等生条件：

a)平均分  90分

b)名次在本班位于前三名

c)平均分85分，并且有二门课的成绩都  95分

选做内容：打印每门课成绩分布图

说

明：所有输出结果应写入用VB创建的文件中，格式要整齐，并有适当的文字说明。实习报告要求：应包括分析设计与说明、部分过程（函数）的源程序清单、程序调试过程中遇到的问题及解决方法，有待改善或改进的意见，对本次实习的意见与建议、收获等。其中原始数据及程序运行的结果应作为附录附于实习报告之后。

四、系统设计分析：

1、该成绩管理系统中要同时表示学生的学号、姓名、成绩等一些信息，及课程、课程学分等一些信息，由于每项信息的意义不同，数据类型也不同，但还要同时作为一个整体来描叙和处理，因此需要通过用户自定义来解决。所以在编程之前新建一个标准模块用来定义自定义类型。

2、为了便于后面执行求加权平均分、排名等命令，在Form1发生Load事件时应将学生信息和课程信息读取并放到两个数组中，由于这两个数组在该管理系统的全程序都要用到，因此应定义为全局类型。如是在标准模块中定义两个数组。

3、由于原始数据文件中相邻的两列之间空格的长短不一，因此在调用Split函数之前应窗体通用模块中自定义一个space1函数将原始数据文件中相邻的两列之间空格数变为相同。

4、在编写程序时，由于该系统的程序代码较多，因此在编写时要合理。

5、在打印成绩条、不及格名单、优等生等信息时，应边用write语句分别将数据存入一个新的文件中。

第页

计算机上机实习报告

6、实习必须按着老师的严格要求完成所有的实习任务，并整理成文件打印。

五．窗体设计与程序代码

1.此次窗体设计使用了11个命令按钮分别对应不同的系统功能要求，具体界面如下

2.程序代码

⑴统计“出生日”与幸运日相同的人

Dim stu()As student, n%, kc()As kecheng, x% Private Sub Command1_Click()Cls For i = 1 To UBound(stu())

If Right(stu(i).birthday, 2)= stu(i).luckyday Then

Print stu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday;

For j = 1 To 5

Print stu(i).score(j);

Next j

End If Next i End Sub

第页

计算机上机实习报告

⑵统计不及格学生的名单

Private Sub Command10_Click()Cls Print “序号”;Spc(3);“姓名”;Spc(3);“成绩”;Spc(3);“学分”;Spc(3);“课程”;For i = 1 To UBound(stu())

For j = 1 To 5

If stu(i).score(j)< 60 Then

Print Tab(0);stu(i).num;Spc(3);stu(i).name;Spc(2);stu(i).score(j);Spc(3);kc(j).xf;Spc(3);kc(j).km;

End If

Next j Next i End Sub

⑶打印优等生名单

Private Sub Command11_Click()Cls Print “学号”“英语”;Space(3);“VB”;Space(3);“数学”;Space(3);“体育”;Space(3);“专业课”;Space(3);“排名”

第页

计算机上机实习报告

Dim zxf%, i%, j%, k% For i = 1 To UBound(kc())

zxf = zxf + kc(i).xf Next i For j = 1 To UBound(stu())

For k = 1 To 5

stu(j).average = stu(j).average + stu(j).score(k)* kc(k).xf / zxf

stu(j).average = Format(stu(j).average, “0.00”)

Next k Next j For m = 1 To UBound(stu())

stu(m).rank = 1

For n = 1 To UBound(stu())

If stu(m).average < stu(n).average Then

stu(m).rank = stu(m).rank + 1

End If

Next n Next m For i = 1 To UBound(stu())

k = 0

For j = 1 To 5

If stu(i).score(j)>= 95 Then

k = k + 1

End If

Next j

If stu(i).average >= 90 Or stu(i).rank <= 3 Or(stu(i).average >= 85 And k >= 2)Then

Print stu(i).num;Space(3);stu(i).name;

For m = 1 To 5

Print stu(i).score(m);Spc(4);

Next m

Print stu(i).rank

End If Next i End Sub

第页

计算机上机实习报告

⑷统计各幸运数字的人数 Private Sub Command2_Click()Cls For i = 0 To 9

Dim luckypeople%

For j = 1 To UBound(stu())

If Val(stu(j).luckyday)= i Then

luckypeople = luckypeople + 1

End If

Next j

Print “幸运数字为” & i;“的人数为:” & luckypeople

luckypeople = 0 Next i End Sub ⑸查询信息

Private Sub Command3_Click()Cls Dim rm As String, i%, j% rm = InputBox(“请输入你想要查询的同学的姓名”)For i = 1 To UBound(stu())

If Trim(stu(i).name)= rm Then

Print stu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday;

For j = 1 To 5

Print stu(i).score(j);

Next j

End If Next i End Sub

第页

计算机上机实习报告

⑹添加信息

Private Sub Command4_Click()Cls Dim xinxuesheng As String xinxuesheng = InputBox(“请依次按照序号，姓名，幸运日，出生日期，英语，vb，数学，体育，专业课的顺序输入新同学的信息，中间用空格隔开”)Open “e:vb作业1.txt” For Append As #1 Print #1, xinxuesheng Print Close #1 Do While InStr(Trim(xinxuesheng), “ ”)<> 0

xinxuesheng = Replace(Trim(xinxuesheng), “ ”, “ ”)Loop a = Split(xinxuesheng, “ ”)n = n + 1 ReDim Preserve stu(n)stu(n).num = a(0)stu(n).name = a(1)stu(n).luckyday = a(2)stu(n).birthday = a(3)For i = 1 To 5

stu(n).score(i)= a(3 + i)Next i For i = 1 To UBound(stu())

Print stu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday;

For j = 1 To 5

Print stu(i).score(j);

Next j

Print Next i

第页

计算机上机实习报告

End Sub

⑺删除信息

Private Sub Command5_Click()Cls Dim rm As String rm = InputBox(“请输入你要删除的同学的姓名”)For i = 1 To n

If Trim(stu(i).name)= rm Then

Exit For

End If Next i

For j = i To n1)For i = 1 To UBound(stu())

Print stu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday;

For j = 1 To 5

Print stu(i).score(j);

Next j

第页

计算机上机实习报告

Next i End Sub

⑻修改幸运数字

Private Sub Command6_Click()Cls Dim rm As String, shuzi As String, i%, j% rm = InputBox(“请输入你要修改的同学的姓名”)shuzi = InputBox(“请输入你要修改后的幸运数字”)For i = 1 To UBound(stu())

If Trim(stu(i).name)= rm Then

stu(i).luckyday = shuzi

Print stu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday;

For j = 1 To 5

Print stu(i).score(j);

Next j

End If Next i End Sub

第页

计算机上机实习报告

⑼计算每个学生的平均分 Private Sub Command7_Click()Cls Dim zxf%, i%, j%, k% For i = 1 To UBound(kc())

zxf = zxf + kc(i).xf Next i For j = 1 To UBound(stu())

For k = 1 To 5

stu(j).average = stu(j).average + stu(j).score(k)* kc(k).xf / zxf

stu(j).average = Format(stu(j).average, “0.00”)

Next k Next j For m = 1 To UBound(stu())

stu(m).rank = 1

For n = 1 To UBound(stu())

If stu(m).average < stu(n).average Then

stu(m).rank = stu(m).rank + 1

End If

Next n Next m Open “e:成绩单.txt” For Append As #3 Print #3, “序号”;Space(3);“姓名”;Space(3);“幸运日”;Space(3);“出生日期”;Space(4);“数学”;Space(4);“英语”;Space(4);“vb”;Space(4);“物理”;Space(3);“专业课”;Space(3);“平均分”;Space(3);“排名” For i = 1 To UBound(stu())

Print #3，Print #3, stu(i).num;Space(3);stu(i).name;Space(3);stu(i).luckyday;Space(3);stu(i).birthday;Space(3);

For j = 1 To 5

第页

计算机上机实习报告

Print #3, stu(i).score(j);Space(3);

Next j

Print #3, stu(i).average;Space(3);stu(i).rank;Next i Close #3 End Sub

⑽统计成绩分布

Private Sub Command8_Click()Cls Dim i%, j%, bsix%, ss%, se%, en%, anine%, a(1 To 25)As Integer, b(1 To 5)As Integer, c(1 To 5)As Integer, d(1 To 5)As Integer, e(1 To 5)As Integer, o(1 To 5)As Integer, p(1 To 5)As Integer, q(1 To 5)As Integer, r(1 To 5)As Integer, s(1 To 5)As Integer For i = 1 To 5

kc(i).zf = 0

For j = 1 To UBound(stu())

kc(i).zf = kc(i).zf + stu(j).score(i)

Next j

kc(i).average = kc(i).zf / UBound(stu())

kc(i).average = Format(kc(i).average, “0.00”)

Print kc(i).average Next i Open “e:成绩分布.txt” For Append As #4 Print #4, “范围”;Space(8);“数学”;Space(3);“英语”;Space(3);“vb”;Space(3);“物理”;Space(3);“专业课”

第页

计算机上机实习报告

For i = 1 To 5

For j = 1 To UBound(stu())

If stu(j).score(i)>= 90 Then

o(i)= o(i)+ 1

ElseIf stu(j).score(i)>= 80 Then

p(i)= p(i)+ 1

ElseIf stu(j).score(i)>= 70 Then

q(i)= q(i)+ 1

ElseIf stu(j).score(i)>= 60 Then

r(i)= r(i)+ 1

Else

s(i)= s(i)+ 1

End If

Next j Next i Print #4, “>=90”;Spc(8);For i = 1 To 5

Print #4, o(i);Spc(4);Next i Print #4, Print #4, “>=80”;Spc(8);For i = 1 To 5

Print #4, p(i);Spc(4);Next i Print #4, Print #4, “>=70”;Spc(8);For i = 1 To 5

Print #4, q(i);Spc(4);Next i Print #4, Print #4, “>=60”;Spc(8);For i = 1 To 5

Print #4, r(i);Spc(4);Next i Print #4, Print #4, “其他”;Spc(8);For i = 1 To 5

Print #4, s(i);Spc(4);Next i Print #4, Close #4 End Sub

第页

计算机上机实习报告

⑾打印学生成绩条

Private Sub Command9_Click()Dim stu(1 To 20)As String Open “e:成绩单.txt” For Input As #5 For i = 1 To 20 Line Input #5, stu(i): Print stu(i)Next i Close #5 End Sub

⑿文本信息的输入

Private Sub Form_Load()Dim str1 As String, a()As String, i%, str2 As String, b()As String Open “e:学生信息.txt” For Input As #1 Line Input #1, str1 Print str1

第页

计算机上机实习报告

Do While Not EOF(1)

Line Input #1, str1

Do While InStr(Trim(str1), “ ”)<> 0

str1 = Replace(Trim(str1), “ ”, “ ”)

Loop

a = Split(str1, “ ”)

n = n + 1

ReDim Preserve stu(n)

stu(n).num = a(0)

stu(n).name = a(1)

stu(n).luckyday = a(2)

stu(n).birthday = a(3)

For i = 1 To 5

stu(n).score(i)= a(3 + i)

Next i

Cls Loop Close #1 Open “e:学分.txt” For Input As #2 Line Input #2, str2 Print str2 Do While Not EOF(2)

Line Input #2, str2

Do While InStr(Trim(str2), “ ”)<> 0

str2 = Replace(Trim(str2), “ ”, “ ”)

Loop

b = Split(str2, “ ”)

x = x + 1

ReDim Preserve kc(x)

kc(x).bh = Val(b(0))

kc(x).km = b(1)

kc(x).xf = b(2)Loop Close #2 Cls End Sub

六．心得体会

1.通过这次上机实习，我受益匪浅，不仅更加熟悉VB的操作和运行环境，同时将课堂上所学的知识进行了系统化的整

第页

计算机上机实习报告

理与疏导；

2.在此次上机实习中，我切身体会到了编程对我们现代生活的重要性，编程能大大地方便我们日常的生活，使我们上网，工作更快捷，一个人就能干许多人的事情，大大地节约了人力，这将使计算机的应用更加普遍和普及，使社会的生产效率越来越高。

第页

vb上机实习报告第2篇

数组的应用

一、实验目的

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))& ”,“

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)

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

vb上机实习报告第3篇

关键词：Visual Basic 6.0,磺化反应工段,仿真,生产实习

生产实习是工科类院校学生能力教育的关键环节,是提高学生职业能力和职业素质的重要途径,对培养学生良好的工程意识、较强的实践能力、敏锐的创新能力和较高的综合素质具有举足轻重的作用[1]。但在实际执行过程中,由于化工生产行业的特殊性,例如生产的连续化,工业的复杂化,反应条件的苛刻性,生产车间的安全性等等因素,学生很少有机会动手操作,最终对化工生产只有一个感性的认识[2,3]。随着计算机技术的进步,化工仿真实验教学系统就在此时应运而生,用计算机在仿真系统上再现化工过程系统的实时性,模拟真实的化工生产操作控制系统环境,从而使操作人员身临其境地熟悉和掌握化工过程各单元操作设备的操作方法[4]。本文采用VB 6. 0 开发基于Windows 平台下的磺化反应工段仿真系统,本系统包括了开车、停车、演示和评分系统四个模块。

1 总体构想

在磺化反应工段仿真系统中,主体结构和主要功能有开车、停车、实时演示和评分系统。采用Visual Basic 6.0系统进行编程,利用Photoshop对图像进行处理的图片作为系统界面,并在相关的地方放上控件,利用控件实现相应的动态效果和数据的直观显示。通过文本、图形、动画、音效等多种多媒体数据制作技术主要完成了以下的工作:根据流程的需要,完成了系统的总体设计;建立了磺化反应工段的模型;完成了相关的系统界面设计;实现了流程工艺的动态功能;具有自动评分系统。

2 仿真系统制作过程

2.1 仿真界面的建立

由于需要实现磺化反应工段流程开车、停车等不同的功能, 选择多文档界面MDI窗体[5],可以简化软件的设计工作, 并且使软件的操作更加方便。

采用如图1的MDI主窗体,主菜单结构为文件(打印、退出)、工况(开车、停车、自动开车、自动停车)、工况重置(开车重置、关车重置、自动开车重置、自动关车重置)、帮助、退出。编写菜单代码的时候,只要在需要的选项上单击鼠标,窗口会出现不同的界面响应相关的操作,自动加载相应的程序和卸载曾经出现过的程序。例如开车按钮的程序

Private Sub kaiche_Click()

Formzdkai.Hide

Formzdguan.Hide

Formkai.Show

Formguan.Hide

Unload Formzdkai

Unload Formzdguan

Unload Formguan

End Sub

点击开车按钮后,开车程序界面自动显现,进入开车程序。

2.2 流程动态过程的实现

仿真软件要求尽可能的与实际操作相吻合、做到动态逼真、生动。本系统所要做的动态效果主要有:管道中的液体和气体流动,反应过程,流量显示等。在程序设计过程中, 利用VB 中的坐标系统, 将line控件和timer控件结合起来, 可将流体在管道中流动的动态效果很好地表现出来。例如:当点击阀门开关后,利用image控件的特性,使得图片之间进行转换,产生阀门开关的效果,此时触发timer5控件中的timer事件。

Private Sub Timer5_Timer() '冷却水出口打开

Line30.Visible=True

Line30.Y2=Line30.Y2-15

If Line30.Y2 < 850 Then

Line30.Y2=850

Timer5.Enabled=False

End If

End Sub

与此同时触发timer31控件的timer事件,使得水的流量显示达到一定的稳定范围,使得相关的操作数据可以在一定范围内进行随机浮动,并在界面显示出来,这充分体现出了化工生产过程中的控制效果,而不是死板的用一个数据代替。

Private Sub Timer31_Timer()

t11=30260.6 + Rnd() * 0.5

Label11.Caption=Format(t11, “####.00”) + “kg/h”

t10=119457.87 + Rnd() * 0.5

Label10.Caption=Format(t10, “####.00”) + “kg/h”

End Sub

流程通过不同的线条颜色来区别物料种类,并模拟反应的过程,相关的工程监控点的数据也随着反应的进行而变化,这样就给予操作者以直观的显示效果。例如,如图2所示的开车操作中的,在通入烷基苯后,降膜反应器中的列管壁上形成液膜,通入三氧化硫后两者进行反应,通过不同的线条颜色的转变,实现磺化反应的直观模拟。

2.3 仿真具体过程的实现

系统仿真主要通过鼠标进行实现,在进行相关开关操作是点击image控件,正确点击会使得image控件的picture属性发生变化,并触发相应的timer控件的timer事件,而错误的操作会出现相关的错误提示窗,通过下端操作提示一步步进行相关的正确操作。当液体流动停止后,才能进行下一步操作,相关的错误提示是为了确保操作的正确性。

2.4 自动开停车的实现

自动开停车的实现主要是基于开车与停车系统,自动开停车是为了让操作人员对于如何正确开车停车有一个直观的学习和了解,是为了使得操作者在没有人指导的情况下自行学习如何去进行正确的开车、停车操作。

自动开车停车的实现主要是通过各个步骤之间的时间差值进行实现的,利用timer控件进行计时。当完成某一个步骤时,触发某一timer控件的timer事件,当达到所要求的时间后,便自行触发下一个过程的程序,从而使得程序能够快速有效的进行下去。在操作人员的操作下,就能够直观的看到一个完整的正确的开停车步骤。

2.5 恢复初始状态的实现

磺化反应工段要求操作者可以进行重复操作, 这就要求仿真系统软件可以快速地恢复至原始状态, 以便操作者可以快速进行重复操作。或者当你进行到某一步时,忘记相应的操作步骤,这就要求软件可以重新进行操作。因此,设立了工况重置,同时操作者也可以重复学习自动操作状态下的操作步骤。

2.6 实验结果报告的形成

为了考察操作者的动手和理解能力, 加入了实验评分系统来统计学生在仿真实验中出错的次数。当学生操作出错的时候, 便会弹出窗口提示学生操作出错, 同时记录下出错次数,如开车时,先通入烷基苯,如果先打开三氧化硫的开关,则系统会给出相应的错误提示,如果当开关已经操作完成,仍然点这一开关,那么也会给出相应的错误提示。记录每种错误的次数,并对每种不同的错误进行分值的设定,在操作结束的时候,弹出对话框,问是否生成评分报告。生成的评分报告调用word软件,生成doc格式文档,记录每一次出错的地方,并给予一定的分值,使得操作者能够直观的确定操作的错误之处。

3 软件开发趋向

目前,所作的软件主要用于实验教学阶段,但希望在完成教学辅助教学任务的同时,也能够满足实际工程应用,这就要求进一步去思考工程软件的需求,有以下几个部分还需继续完善。

优化工艺计算,整理出相关数据的相互联系和处理磺化反应工段工艺设计的有关计算,采用合适的算法,建立通用的流程模拟程序。主要包括物料衡算、能量衡算以及其他计算等。

优化设计阀门控制和仪器仪表监视的运算模式,实现智能化和远程操控系统的设计。针对磺化反应工程所要求的控制点,设计控制回路,利用仪器仪表的数据监视进行自动调节。

设计故障报警和自动保护系统,在流程运行中,对于发生严重的错误操作,或者仪表监控的参数超出设计范围,并有造成损失的可能是,系统自动给予提示和操作建议,严重时,可以自动阻断相应操作。

4 结语

本仿真系统软件是在windows环境下,利用VB 6.0软件为平台而编写,具有界面友好,形象直观,操作方便的优点。针对化工生产行业连续性的特殊要求,在化工专业学生生产实习中不能动手操作的问题,本软件将工厂实习和理论操作有机结合,可使学生既能对生产实际有一个很好的认识,又将所学专业理论知识、基本技能与化工企业实际生产岗位有效地结合起来,具有广泛的应用前景。

参考文献

[1]张忠林,段东红,郝晓刚,等.化工单元操作实验仿真软件的开发与实践[J].太原理工大学学报:社会科学版,2003,21(z1):83-85.

[2]侯月平.化工仿真DCS系统在化工专业实习中的积极作用[J].时代教育:教育教学版,2010(6):266-266.

[3]姚嘉凌,闵永军.高校生产实习模式改革的思考和探索[J].中国大学教学,2007(3):81-82.

[4]周爱东,杨红晓.基于Borland C++的化工仿真实验考核方法[J].计算机与应用化学,2005,22(3):218-220.

高中信息技术课上机实习的思考第4篇

学好程序语言，除掌握教材中的基本语句、基本算法、分析好程序结构之外，关键是上机实习。通过上机实习，可以根据出错信息提示反复修改程序并及时处理，直到整个程序运行正常，能出示所需的结果为止。如何进一步提高上机实习效率，笔者通过多年的教学实践，以QBASIC为例做一些探讨。

一、充分的准备工作

上机实习前，要透彻分析书中涉及上机的每一个程序，充分理解程序的功能，明确问题要求和执行步骤，并写出程序的运行结果。与此同时，还应写出当程序几处关键点改动后，会出现的预期结果。只有这样学生才能在实际操作中更深地理解程序的内涵，从而学以致用，起到事半功倍的效果。

例如，在求解的程序段S=1！+2！+3！+…10！，经过算法分析，变量设计，细化一下算法，画出相应的框图，编出对应的程序段（以下编程均以QBASIC为例）

FACT=1:N=10

S=0

FOR I=1 TO N

FACT=FACT*I

S=S+FACT

NEXT I

PRINT N；”!=”;S

在上面这个程序中,I是循环控制变量,S是累加器,FACT是变量。在编程写出结果时,还应考虑当N为100时,FACT=0,S=10，或者S=S+FACT*I，或者S=S+S*I时的结果，以及是否能将30行和40行合并成一行·将这些题目留给学生，让他们做完题目再上机，验证效果会更好。

二、扎实的操作训练

学生做完上机实习作业后，应尽早上机实习。在上机实习中，对于能力较差的学生，应对照源程序录入；对于能力较强的学生，可以提倡不看实习题目录入编写程序的做法。

在实习中，辅导教师除了指导学生完成实习题目外，还可以对学生提出问题，提高学生对程序的理解。例如，求N！的程序，教师当场可以提出为什么S=0，FACT=1，如果不这样取值，结果会是多少·能不能让N取1000·I取值从N到1结果会如何·这些问题有利于提高学生的程序调试能力，加深对算法的掌握。

另外，上机时还可以分成录入程序、校对录入的程序两步，检查无误后，方可运行程序。最后，根据运行结果填写实习报告。

三、关键细节的突破

1.破解屏幕显示的英语及内涵

在上机实习中，经常出现一些英语来提示错误，要求学生能在课余时间里学习常见的屏幕上显示的英语，特别是针对某一程序。例如：QBASIC程序设计在编译运行当中出现“DUPLICATE DEFINATION ”错误信息提示时，说明数组越界，学生能返回编辑状态，对所定义的数组进行删除或修改，可试着用ERASE数组名和DIM数组名（上界）修改，存盘后继续运行；在读数和置数语句READ/DATA为变量赋值时，当数据不足时，出现“OUT OF DATA”错误码提示，学生能返回到QBASIC编辑器中，修改DATA语句，为这条语句添加数据，使添加数据后数据的个数应大于等于变量的个数，运行后就不再出现这条错误提示了。实质上，专业教师在授课当中，也可以将本书相关的屏幕显示英语尽可能多地传授给学生，使它们尽早领会其中的含义，这样有助于提高学生的编程效率。

2.丰富而适量的变式训练

教师在留给学生上机实习题目时，一定要适量。太多会影响学生上机的积极性，发挥不了主观能动性，使学生对上机失去信心。这样不仅不能提高程序编写和调试能力，反而一定程度上影响教学计划的正常进行。太少又不利于加深对知识的掌握。完成上机实习题目后，学生在对程序有较透彻的理解，就可以随修改程序，判断下面可能会出现的结果，然后运行程序。这样，学生能充分领会并运用，读懂一个程序，相应的其他多个程序也就能够理解掌握了，收到融会贯通的最佳效果，同时也提高学生对程序的综合应用能力。例如上面提到的程序，学生可以将FACT开始时赋值为10，然后判断结果；或将30行改成FACT=FACT*10，或者将PRINT打印语句写成PRINT “N！=”，S是结果会是多少等，这些问题都可以提高学生的编程能力。

此外，特别需要强调的是，在上机实习以及例题分析当中，教师可以加入一些新题型，如全国计算机等级考试中的改错题，给出已编好的程序，其中有几处错误，让考生修改。像这种题目不能单一在课上分析、编写，如果不在机器上实习运行，结果是不能理解透彻的。二级考试上机的编程题，给出源程序的一部分，让学生编写剩余的程序，这些方法在教学中都可以采用。

vb大题上机总结第5篇

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

在考生文件夹下有一个工程文件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的正整数，并在窗体上显示出来。这样的数有多组，程序输出每组开头和结尾的正整数，并用”～“连接起来，如图所示。该程序不完整，请把它补充完整。