上机实习报告总结结尾

第一篇：上机实习报告总结结尾

上机实习报告总结结尾

一.首页

代码如下;

using System;

using;

using;

using;

using;

using;

using;

namespace WindowsApplication1

{

public partial class Form5 : Form {

public Form5()

{

InitializeComponent();

}

private void button1_Click(object sender, {

logo from = new logo();

();EventArgs e)

} private void button2_Click(object sender, EventArgs e){

Form2 from = new Form2();

();

} private void button3_Click(object sender, EventArgs e)http:///shijuan/ 试卷 {

Form3 from = new Form3();

();

} private void button4_Click(object EventArgs e){

Form4 from = new Form4();

();

}

}

}

二.登录模块

代码如下：

using System;

using;

using;

using;

sender，using

;

using;

using;

using;

namespace WindowsApplication1

{

public partial class logo : Form

{

public logo()

{

InitializeComponent();

}

private void Form1_Load(object sender, EventArgs e)

{

} private void button1_Click(object sender, EventArgs e){ string

connstring

=

@“Data Source=panlunzhao;Initial Security=True”;

Catalog=;Integrated

SqlConnection conn = new SqlConnection(connstring);();

string username =();string password =();SqlCommand comm =();

= “select * from manage where username='” + username + “' and password='” + password + “'”;

SqlDataReader sqlda =();

if(())

{ ifhttp:///gongzuobaogao/

工

作

报

告

(sqlda.ToString().Trim()== password){

//(“恭喜您登陆成功!”, “登陆成功!”, ,);

//Form2 f = new Form2();

//();

Form3 from = new Form3();

();

}

else {(“密码错误，请重新输入!”, “错误

”, ,);}

}

else {(“此用户不存在，请您注册!”, “注册”, ,);}

();http:///dangtuangongzuozongjie/ 党团工作总结

();

} private void button2_Click(object sender, EventArgs e){

= “";

= ”“;

}

}

}

三.会员管理模块

代码如下：

using System;

using;

using;

using;

using;

using;

using;

using;

namespace WindowsApplication1

{

public partial class Form2 :

Form

{

protected SqlConnection conn;

protected SqlCommand cmd;

string connstring = @”Data Sou/article/ 述职报告rce=panlunzhao;Initial

Catalog=;Integrated Security=True“;

public Form2()

{

InitializeComponent();

}

private void Form2_Load(object sender, EventArgs e)

{

load1();

load();

}

protected void load1()

{

string sql = ”select *from customer“;

conn = new SqlConnection(connstring);

();

SqlDataAdapter da = new SqlDataAdapter(sql, conn);DataSet ds = new DataSet();

(ds, ”book“);

=;

}

protected void load()

{

conn = new SqlConnection(connstring);

();

string sql_select = ”SELECT ID FROM customer “;cmd = new SqlCommand(sql_select, conn);

SqlDataReader dr =();

();

while(())

(dr);

();

}

private DataTable BindData(string sql)

{

string sql_select = sql;

conn = new SqlConnection(connstring);

SqlDataAdapter ad = new SqlDataAdapter(sql_select, conn);DataSet ds = new DataSet();

(ds, ”customer“);

return;

} private void button1_Click(object sender, EventArgs e){

string sql = ”select * from customer where ID='“ +()+ ”'“;

conn = new SqlConnection(connstring);

();

SqlCommand cmd = new SqlCommand(sql, conn);

SqlDataReader ds =();

();

= ds.ToString();

http:///xuexiaogongzuozongjie/ 学校工作总结 = ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

=(bool)ds;

} private void update_Click(object sender, EventArgs e){

string sql = ”customer set

name=@name,Levels=@Levels,Birthday=@Birthday,Degree=@Degree,Address=@Address,Telephone=@Telephone,Email=@Email,Score=@Score where ID=@ID“;conn = new SqlConnection(connstring);

();

cmd = new SqlCommand(sql, conn);

(”@ID“,).Value =();

(”@name“, , 20).Value =();

(”@Levels“,).Value =();

(”@Birthday“，).Value =();

(”@Degree“, ，20).Value =();

(”@Address“, , 256).Value =();

(”@Telephone“, ，50).Value =();

(”@Email“, , 50).Value =();

(”http:///yundonghuiyanjianggao/ 运动会演讲稿 @Gender“,).Value =(bool);

(”@Score“,).Value =();

();

SqlDataReader ds =();

();

load1();

}

private void _Click(object sender, EventArgs e){

string sql_ = ” into

customer(Name,Levels,Gender,Birthday,Degree,Address,Telephone,Email,Score)

values(@Name,@Levels,@Gender,@Birthday,@Degree,@Address,@Telephone,@Email,@Score)“;

cmd = new SqlCommand(sql_, conn);

try

{

();

(”@Name“, ，20).Value =();

(”@Levels“，).Value =(());(”@Birthday“，).Value =

(());

(”@Degree“, ，20).Value =();

(”@Address“, , 256).Value =();

(”@Telephone“, ，50).Value =();

(”@Email“, ，50).Value =();

(”@Score“,).Value =(());

if()

{

(”@Gender“，).Value = ”true“;

}

else

{

(”@Gender“，).Valuhttp:///yuegongzuozongjie/ 月工作总结 e = ”false“;

}

int count =();

if(count == 1)

{

if((”确认添加读者吗?“, ”提示“, ,)==)return;

(”添加成功！“, ”提示!“);}

else

{

(”添加失败“, ”提示“, ,);

}

}

catch(Exception ex)

{

();

}

finally

{

();

}

}

}

}

四.增加、删除、修改图书模块

代码如下：

using System;

using;

using;

using;

using;

using;

using;

using;

namespace WindowsApplication1

{

public partial class Form3 : Form

{

protected SqlConnection conn;

protected SqlComhttp:///shijicailiao/ mand cmd;

事迹材料

string connstring = @”Data Source=panlunzhao;Initial Security=True“;

public Form3()

{

InitializeComponent();

}

Catalog=;Integrated

private void textBox7_TextChanged(object sender, EventArgs e){

} private void label6_Click(object sender, EventArgs e){

} private void select_Click(object sender, EventArgs e){

string book_name =();

string press =();

string Author =();

StringBuilder sb1 = new StringBuilder();

(”select * from book where “);

if()

((”Name LIKE '%{0}%'“, book_name));

if(&&)(”AND “);

if()

{

((”Press = '{0}'“, press));}

if(&&)(”AND “);

if()

{

((”Author LIKE '%{0}%'“, Author));

}

= Binhttp:///banzhurengongzuojihua/ 班主任工作计划 dData(());} private void reset_Click(object sender, EventArgs e){

= true;

= false;

= false;

= ”“;

= ”“;

= ”“;

} private void button1_Click(object sender, EventArgs e){

string sql = ”select * from book where ISBN='“ +()+ ”'“;

conn = new SqlConnection(connstring);

();

SqlCommand cmd = new SqlCommand(sql, conn);

SqlDataReader ds =();

();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString(http:///shiyongqigongzuozongjie/ 试用期工作总结);

= ds.ToString();

= ds.ToString();

= ds.ToString();

=(bool)ds;

= ds.ToString();

} private void button2_Click(object sender, EventArgs e){

string sql = ” into

book(ISBN,name,author,press,publishdate,price,pages,barcode,cd,storage)

values(@ISBN,@name,@author,@press,@publishdate,@price,@pages,@barcode,@cd,@storage)“;

conn = new SqlConnection(connstring);

();

cmd = new SqlCommand(sql, conn);

(”@isbn“, , 10).Value =();

(”@name“, , 256).Value =();

(”@author“, , 100).Value =();

(”@press“, , 50).Value =();

(”@publishdate“, ，50).Value =();

(”@price“, , 50).Value =();

(”@pages“, , 50).Value

=();

(”@barcode“, SqlDbTypehttp:///dangxiaoxuexixindetihui/ 党校学习心得体会.NVarChar，50).Value =();

(”@cd“, , 50).Value =(bool);

(”@storage“, ，50).Value =();

();

load1();

load();

}

private void save_Click(object sender, EventArgs e)

{

string sql = ”book set

name=@name,author=@author,press=@press,publishdate=@publishdate,price=@price,pages=@pages,barcode=@barcode,cd=@cd,Storage=@Storage where ISBN=@ISBN“;

conn = new SqlConnection(connstring);

();

cmd = new SqlCommand(sql, conn);

(”@isbn“, , 10).Value =();

(”@name“, , 256).Value =();

(”@author“, , 100).Value =();

(”@press“, , 50).Value =();

(”@publishdate“, ，50).Value =();

(”@price“, , 50).Value =();

(”@pages“, , 50).Value =();

(”@barcode“, ，50).Value =();

(”@cd“, , 50).Value =(bool);

(”@storage“, ，50).Value =();

();

SqlDataReader ds =();

();

load1();

}

private void quxiaosave_Click(object sender, EventArgs e){

= ”“;

= ”“;

= ”“;

= ”“;

= ”&http:///shenbaocailiao/ 申报材料quot;;

= “";

= ”“;

= ”“;

= false;

= ”“;

}

private void _Click(object sender, EventArgs e){

string sql = ” from book where isbn=@isbn“;conn = new SqlConnection(connstring);

cmd = new SqlCommand(sql, conn);

();

(”@isbn“, , 10).Value =();

();

load1();

load();

}

private void Form3_Load(object sender, EventArgs e){

load();

load1();

}

protected void load()

{

conn = new SqlConnection(connstring);

();

string sql_select = ”SELECT DISTINCT FROM ORDER BY “;

cmd = new SqlCommand(sql_select, conn);

SqlDataReader dr =();

();

while(())

(dr);

();

= ”SELECT DISTINCT FROM ORDER BY “;

SqlDataReader ds =();

();

while(())

(ds);

();

= ”SELECT DISTINCT FROM ORDER BY “;

SqlDataReader st =();

();

while(())

(st);

();

}

protected void load1()

{

string sql = ”select *from book“;

conn = new SqlConnection(connstring);

();

SqlDataAdapter da = http:///qingkuangbaogao/ 情况报告new SqlDataAdapter(sql, conn);DataSet ds = new DataSet();

(ds, ”book“);

=;

}

private DataTable BindData(string sql)

{

string sql_select = sql;

conn = new SqlConnection(connstring);

SqlDataAdapter

ad

=

new SqlDataAdapter(sql_select, conn);DataSet ds = new DataSet();

(ds, ”Book“);

return;

}

private void all_Click(object sender, EventArgs e)

{

string sql = ”select *from book“;

conn = new SqlConnection(connstring);

();

SqlDataAdapter da = new SqlDataAdapter(sql, conn);

DataSet ds = new DataSet();

(ds, ”book“);

=;}

}

}

五.借书模块

代码如下：

using System;

using;

using;

using;

using;

using;

using;

using;

namespace WindowsApplication1

{

public partial class Form4 : Form

{

protected SqlConnection conn;

protected SqlCommand cmd;string

connstring

=

@”Data Source=panlunzhao;Initial Catalog=:///banjigongzuojihua/ 班级工作计划 F;Integrated Security=True“;

public Form4()

{

InitializeComponent();

}

private void Form4_Load(object sender, EventArgs e)

{

try

{

conn = new SqlConnection(@”Data

Source=panlunzhao;Initial Catalog=;Integrated

Security=True“);

();

();

}

catch(Exception exp)

{

(”无法建立数据连接:“ +);();

}

}

protected void InitData()

{

cmd = new SqlCommand(”select distinct from Book order By “, conn);

SqlDataReader reader1 =();

();

while(())

(reader1);

();

cmd = new SqlCommand(”select id from reader order by“,conn);

SqlDataReader reader2 =();

();

while(())

(reader2);

();

} private void select_Click(object sender, EventArgs e)http:///chengxinyanjianggao/ 诚信演讲稿 {

string sql = ”select * from book where ID='“ +

()+ ”'“;

conn = new SqlConnection(connstring);

();

SqlCommand cmd = new SqlCommand(sql, conn);

SqlDataReader ds =();

();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

= ds.ToString();

=(bool)ds;

= ds.ToString();

} private void jieshu_Click(object sender, EventArgs e){

string sql = ”select * from reader where ID='“ +()+ ”'“;

conn = new SqlConnection(connstring);

();

SqlDataAdapter da = new SqlDataAdapter(sql, conn);DataSet ds = new DataSet();

(ds, ”book“);

=;

string sql_up = ”book set Storage=Storage-1 where ID='“ +()+ ”'“;

cmd = new SqlCommand(sql_up, conn);

();

DataSet hs = new DataSet();

(hs, ”book“);

=;

if(== ”“)

return;

= ”SELECT * FROM WHERE =“ +;

SqlDataReader reader1 = null;

try

{

reader1 =();

if(())

{

textBhttp:///gerengongzuojihua/ = reader1.ToString();

}

else

{

(”没有符合条件的记录“, ”提示“, ,);

}

}

catch(Exception exp)

{

(”数据访问错误:“ + + , ”错误", ,);}

finally

{

if(reader1!= null &&!)

个人工作计划

();

}

}

}

}

总结

此次实训综合考查了所学的c#知识，让我知道一个项目从构思、设计、实结题报告现、测试的过程。在实训中也综合运用了所学的知识，也涵盖了数据库的知识，用数据库存放数据，用脚本实现功能。

第二篇：上机实习报告格式

文献检索实习报告（参考格式）

课程名称：文献检索日期：

学院：班号：姓名：学号：

实验名称：电子图书等资源检索。

实验目的：掌握图书资源如何检索和利用，熟悉人名录或机构名录的检索。实验内容：

1、用CALIS检索你们自己任课教师的编著发表情况。

2、用超星检索自己所在专业的某一方面的图书出版情况，并采集某一本书的一段文字，一个图。（以超星为例）

(1).登陆四川理工学院图书馆主页。

(2).找到电子资源，点击进入图书馆电子资源界面。

(3).找到热门资源中的“超星数字图书馆”，并点击“本地”，进

入超星数字图书馆。

(4).找到“浏览器”，点击并下载超星星浏览器。

(5).下载好“超星星浏览器”后就可以浏览图书了。

(6).例如查

3、利用物竞化学品数据库检索某一具体化学物质的相关数据。

4、用万方数据库检索我国某一位院士/科学家/某学科领域著名学者的名录。

实习报告要求：用自己姓名作为文件名称，将作业发送给各班指定的同学。

第三篇：计算机上机实习报告

计算机上机实习报告

姓名：张陆浩 班级：高材11001 学号：201001978 老师：张老师 熊老师 时间：2011年12月24日

一．实验目的: 1.熟悉VB 6.0的开发环境,掌握基本的编程方法,熟悉用VB语言完成一个应用程序的设计过程,掌握有关编辑和调试程序的方法和技巧;2.主要掌握VB语言中的标准模块的建立﹑数据文件的读出与写入、数组与选择结构的运用，图形操作等内容

3.了解开发简单应用程序的全过程,包括:分析﹑设计﹑编程﹑调试和编写报告.二．实习要求：

（一）。用记事本新建一个文本文件，将本班M名学生N门考试课的成绩输入到这个文件中，建议按如下形式存放（注：20=M<=50,5<=N<=8，下文以M=4，N=3为例）: 学号

姓名

英语

数学

物理

化学

VB 1

张陆浩

2

林丹

3

李宗伟

4

李永波

（二）。将N门考试课以及其分数输入到另一个数据文件（文件类型同上题）中，建议以下列形式存放： 编号 课程名称 课程学分 1 英语 5.0 2 数学 4.5 3 物理 5.0 4 化学 4.5 5 VB 4.5

（三）。请编写一个简单的学生成绩管理程序，以完成以下功能： 1.根据以上两文件内容分别计算每个学生N门课程的加权平均分（保留两位小数，四舍五入），按平均分排列名次，平均分相同则名

次并列。用VB创建一个数据文件，存放班级的成绩表。

2.分别统计全班每门课的平均分,并计算各分数段(90分以上;80～89;70～79;60～69;60分以下)的学生数。.3.打印每名学生成绩条（并将结果存放到用VB创建的一个新的数据文件中）。

4.显示所有存在不及格课程的学生的名单(含学号,不及格课程名称,课程的学分及成绩)。

5.屏幕显示优等生名单及打印每门课程成绩分布图。优等生条件(只要满足三个中任一个就可以): a)平均分>=90分

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

c)平均分>=85分,并且至少有一门课的成绩>=95分

三、实习步骤

1、用记事本新建一个学生成绩文本文件(其中包括学生学号，成绩，姓名，课程及成绩)。

2、用记事本新建一个课程学分文本文件。

3、编辑菜单编辑器：编辑四个可拉式菜单，包括学生成绩、成绩处理、成绩编辑、画图。

4、编辑代码：分别编辑打印学生成绩和学分代码，编辑加权平均分、各科平均分、分数段、成绩条、排名、优等生、差等生的代码，还有画各科目成绩人数图的代码。

5、调试程序代码并保存。

6、打印代码。

三.相关数据列表：

（一）。源文件

（1）成绩

学号 姓名 英语 数学 物理 化学 VB 1 张陆浩 97 98 97 97 98 2 林丹 92 87 79 91 84 3 李宗伟 75 96 83 75 73 4 李永波 89 93 83 86 82 5 王仪涵 92 79 89 86 80 6 汪鑫 93 65 86 68 84 7 付海峰 94 91 89 92 80 8 湛龙 86 83 88 80 92 9 盖德 68 79 54 72 71 10 陶菲克 69 76 59 81 75 11 佐佐木 85 83 68 57 71 12 李娜 94 63 62 65 53 13 陈金 86 79 89 94 83 14 兰洋 91 93 92 89 75 15 小志 95 89 93 86 87 16 棃一名 92 86 83 67 59 17 吴凯飞 67 75 57 82 62 18 江方 93 80 73 76 84 19 胡艳 74 68 58 63 71 20 张继原 68 95 68 84 93（2）.学分

编号 课程名称 课程学分 1 英语 5.0 2 数学 4.5 3 物理 5.0 4 化学 4.5 5 VB 4.5 四．运行效果：

（一）.学生管理

（1）打开课程成绩及学分

（2）打开计算的加权平均分﹑排名及各科平均分

(三）.编辑

（1）打开计算的各科人数分布

（2）打开按学号查找每个学生的成绩 a）输入要查找学生的学号

b）得到该生的成绩条

（3）打开查找到的优等生信息

（4）打开不及格学生的分布

（四）.成绩分布图

五．实习小结

通过两个星期的上机实习，我体会颇深，不仅表现在VB语言程序设计中，而且表现在与人交流和独立自主完成任务的决心中。

本次上机在VB程序设计中我学会了很多以前不会或根本一点都不懂的东西。比如，在程序设计过程中，刚开始我弄不清楚怎样把编辑的文件读到VB中，但是通过询问老师和同学讨论，终于弄清了思路，即先将文件打开，再将数据分别放入若干个数组中，最后再将它读出来。除此之外，我还明白了变量的作用域对编程的重要性和子过程，函数过程数据处理的帮助。而对以前学的，像选择结构，循环结构等也进行了巩固和运用。在数据处理和打印的时候进行了大量运用。为了使程序更人性化化，我还运用了msgbox，inputbox等方法，使我对所学的知识进行了综合的运用。

我相信通过这次实习，我对VB和计算机语言都有了更深刻的认识。虽然在实习的过程中，我发现了自己在编写程序中的不足，像思维不够严密等，但我相信，只要认真、努力就一定会有收获

六.程序代码

（一）.创建标准模块

Type student “定义变量：student” number As String * 9 name As String * 3 score(1 To 5)As Single average As Single rank As Integer End Type Type class “定义变量：class” num As String * 9 nam As String * 3 scor As Single End Type Public stu()As student, cla()As class, sumscor As Integer, subj()As class Public q(5)As Integer, t(5)As Integer, x(5)As Integer, y(5)As Integer, h(5)As Integer “定义删除空格函数” Public Function deletespace(str As String)As String Dim i% i = InStr(str, “ ”)Do While i <> o str = Replace(str, “ ”, “ ”)i = InStr(str, “ ”)Loop deletespace = str End Function Public Sub addave(stu()As student, cou()As course)“定义计算加 For i = 1 To UBound(stu)权平均分 Dim jqpj!, x!, y!的子过

程

x = 0 y = 0 For j = 1 To 5 x = x + cou(j).score y = y + stu(i).score(j)* cou(j).score Next j stu(i).jqpj = y / x Next i End Sub Public Sub mc(stu()As student)“定义计算排名的子过程” For i = 1 To UBound(stu)stu(i).rank = 0 For j = 1 To UBound(stu)If stu(i).jqpj <= stu(j).jqpj Then stu(i).rank = stu(i).rank + 1 End If Next j Next i End Sub(二).读取考试成绩和课程学分（1）.打开文件

Private Sub studentscore_Click()CommonDialog1.Filter = “文本文件|*.txt” CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 Line Input #1, str1 Print str1 Do While Not EOF(1)Line Input #1, str str = deletespace(Trim(str))a = Split(str, “ ”)n = n + 1 ReDim Preserve stu(n)stu(n).number = a(0)stu(n).name = a(1)For i = 1 To 5 stu(n).score(i)= a(i + 1)Next i Loop For i = 1 To n Print stu(i).number;Spc(1);stu(i).name;Spc(3);For j = 1 To 5 Print stu(i).score(j);Spc(3);Next j Print Next i Close #1 End Sub Private Sub classrank_Click()CommonDialog2.Filter = “文本文件|*.txt” CommonDialog2.ShowOpen Open CommonDialog2.FileName For Input As #2 Line Input #2, str2 Print str2 sumscor = 0 Do While Not EOF(2)Line Input #2, str3 str3 = deletespace(Trim(str3))b = Split(str3, “ ”)m = m + 1 ReDim Preserve cla(m)cla(m).num = b(0)cla(m).nam = b(1)cla(m).scor = b(2)sumscor = sumscor + Val(cla(m).scor)Loop For k = 1 To m Print cla(k).num;Spc(2);cla(k).nam;Spc(3);cla(k).scor;Spc(3)Next k End Sub(2).分数处理

Private Sub ran_Click()“加权平均分及名次” Form1.Cls For n = 1 To 20 sum = 0 For i = 1 To 5 sum = sum + stu(n).score(i)* cla(i).scor Next i stu(n).average = Format(sum / sumscor, “##.##”)Next n For n = 1 To 20 stu(n).rank = 1 For j = 1 To 20 If stu(n).average < stu(j).average Then stu(n).rank = stu(n).rank + 1 End If Next j Next n Print “学号”;Spc(6);“姓名”;Spc(4);“英 语”;Spc(2);“数 学”;Spc(2);“ 物 理”;Spc(3);“化 学”;Spc(2);“V B”;Spc(2);“加权平均分”;Spc(2);“名次” For n = 1 To 20 Print stu(n).number;Spc(1);stu(n).name;Spc(3);For i = 1 To 5 Print stu(n).score(i);Spc(3);Next i Print stu(n).average;Spc(3);stu(n).rank Next n End Sub Private Sub eaverage_Click()“ 课程平均分”

Print Spc(7);“英 语”;Spc(1);“数 学”;Spc(1);“ 物 理”;Spc(1);“化 学”;Spc(1);“V B” Print “平均分”;For i = 1 To 5 sum = 0 For n = 1 To 20 sum = sum + stu(n).score(i)Next n j = Format(sum / 20, “00.00”)Print Spc(2);j;Next i End Sub（3）.编辑 Private Sub scor_Click()“计算打印个分数段人数” Form1.Cls Print “范围”;“英 语”;Spc(3);“数 学”;Spc(3);“ 物 理”;Spc(3);“化 学”;Spc(3);“V B” For i = 1 To 5 For n = 1 To 20 Select Case stu(n).score(i)Case 90 To 100 q(i)= q(i)+ 1 Case 80 To 89 x(i)= x(i)+ 1 Case 70 To 79 t(i)= t(i)+ 1 Case 60 To 69 h(i)= h(i)+ 1 Case Else y(i)= y(i)+ 1 End Select Next n Next i Print “>90”;For i = 1 To 5 Print Spc(4);q(i);Next i Print Print “80_89”;For i = 1 To 5 Print Spc(4);x(i);Next i Print Print “70_79”;For i = 1 To 5 Print Spc(4);t(i);Next i Print Print “60_69”;For i = 1 To 5 Print Spc(4);h(i);Next i Print Print “<60”;For i = 1 To 5 Print Spc(4);y(i);Next i End Sub Private Sub stuscolist_Click()“打印成绩条” Form1.Cls n = InputBox(“请输入学号”)Print “学号”;Spc(5);“姓名”;Spc(3);“英 语”;Spc(3);“数 学”;Spc(3);“ 物 理”;Spc(3);“化 学”;Spc(3);“V B” Print stu(n).number;Spc(1);stu(n).name;Spc(3);For i = 1 To 5 Print stu(n).score(i);Spc(3);Next i End Sub Private Sub excellent_Click()“打印优等生” Form1.Cls Dim t As Integer Print “姓名”;Spc(4);“学号”;Spc(8);“英 语”;Spc(4);“数 学”;Spc(3);“ 物 理”;Spc(3);“化 学”;Spc(4);“V B”;Spc(6);“平均分”;Spc(4);“名次” For i = 1 To 20 t = 0 For j = 1 To 5 If stu(i).score(j)>= 95 Then t = t + 1 End If Next j If stu(i).average >= 85 And t >= 2 Or stu(i).average >= 90 Or stu(i).rank <= 3 Then Print stu(i).name;Spc(2);stu(i).number;Spc(3);For j = 1 To 5 Print stu(i).score(j);Spc(5);Next j Print stu(i).average;Spc(5);stu(i).rank End If Next i End Sub Private Sub ugstulist_Click()“打印不及格学生” Form1.Cls For n = 1 To 20 For i = 1 To 5 If stu(n).score(i)< 60 Then Print stu(n).number;stu(n).name;stu(n).score(i);cla(i).nam;cla(i).scor End If Next i Next n End Sub（5）.成绩分布图

Private Sub Command1_Click()“新建窗体form2” For i = 0 To 4 Picture1(i).Scale(0, 14)-(100, 0)Picture1(i).Line(10, 2)-(92, 2), vbRed Picture1(i).Print “分数段” Picture1(i).Line(10, 2)-(10, 14), vbRed Picture1(i).Print “人数” For j = 2 To 10 Step 2 Picture1(i).CurrentY = j + 2 Picture1(i).CurrentX = 4 Picture1(i).Print j Next j Picture1(i).CurrentX = 10 Picture1(i).CurrentY = 2 Picture1(i).Line(10, 2)-(26, 2 + q(1 + i)), vbGreen, BF Picture1(i).CurrentX = 26 Picture1(i).CurrentY = 2 Picture1(i).Line(26, 2)-(42, 2 + x(i + 1)), vbRed, BF Picture1(i).CurrentX = 42 Picture1(i).CurrentY = 2 Picture1(i).Line(42, 2)-(58, 2 + t(i + 1)), vbGreen, BF Picture1(i).CurrentX = 58 Picture1(i).CurrentY = 2 Picture1(i).Line(58, 2)-(74, 2 + h(i + 1)), vbRed, BF Picture1(i).CurrentX = 74 Picture1(i).CurrentY = 2 Picture1(i).Line(74, 2)-(90, 2 + y(i + 1)), vbGreen, BF Picture1(i).Line(10, 2)-(26, 2), vbGreen Picture1(i).Line(26, 2)-(42, 2), vbRed Picture1(i).Line(42, 2)-(58, 2), vbGreen Picture1(i).Line(58, 2)-(74, 2), vbRed Picture1(i).Line(74, 2)-(90, 2), vbGreen Picture1(i).CurrentX = 10 Picture1(i).CurrentY = 2 Picture1(i).Print “ >=90 80-89 70-79 60-69 <=60” Next i End Sub

第四篇：CAD上机实习报告

CAD

班级：电子质检1101班 姓名：郭利智 学号：2011110902 指导老师：潘庆杰 上机实习报告

CAD上机实习报告

1.实习任务

用一周的时间对AUTOCAD软件练习的同时，完成机自教研室发的二维图例以及6个练习图，并完成相应的实习报告，并将绘制图形的各个步骤在实习报告中体现出来，将在实习过程中遇到的问题和绘图的关键步骤更具体的按要求写。

2.实习任务图（见附页）

3.实习任务图分析：

在老师所给的这些图中，基本包含了所有AUTOCAD经常使用的画图命令，并且能够进行熟练的操作，为以后的学习和工作打下坚定的基础。因此，画好这些图很有意义。

4.CAD上机实习总结

我们在此CAD培训中，不仅掌握了一些画图命令，更加熟悉了CAD环境和CAD桌面系统操作并且能够熟练的进行操作，进而画出一些简单二维图形，还学会了一些画图的快捷命令，使我的画图速度有所提高，也为我以后的学习和工作提供了有利的条件。

对于AUTOCAD，在绘图过程中，通过老师的讲解和自己的摸索以为自己以前所学的知识，我能熟练的运用有关快捷的命令，比起以前手绘图快了许多。更重要的是掌握了有关字母类的快捷命令，更方便了绘图。

第五篇：arcgis上机实习报告

课程实习报告

实习课程：《ArcGIS专业技能训练实习报告》

姓

名：

学

号：

专

业：

班

级：

2012年 6月

20日

ArcGIS专业技能训练实习报告

实习目的：

通过学习Arcgis这款Gis应用软件熟练我们的实际应用能力，深入理解GIS软件应用的核心部分，通过熟练Arcgis能掌握类似相关软件操作，加强动手能力。

实习步骤：

1.对Arcgis软件整体掌握，并与之前各类软件操作对比和学习。

2.具体对软件操作掌握空间数据的采集与组织、数据的处理与变、数据的可视化表达。

3.Arcgis的空间分析能力的掌握：矢量数据的空间分析、栅格数据的空间分析、三维分析、地统计分析、水文分析等。4.掌握Arcgis的空间分析建模。

实习内容：

根据练习内容，选择了练习第3、4、5、7、12章的内容，其余在课下自己练习完成，这些章内容分别为：空间数据的采集与组织、数据的处理与变换、数据的可视化表达、矢量数据空间分析、空间分析建模

Geodatabase是一种采用标准关系数据库技术来表现地理信息的数据模型。Geodatabase支持在标准的数据库管理系统（DBMS）表中存储和管理地理信息。一． 基于Geodatabase的数据库设计

Geodatabase支持面向对象的矢量数据模型，它将地理数据组织成一个数据对象的结构体系。在Geodatabase模型中，实体被表示为属性,行为，关系的对象。Geodatabase还允许用户定义对象之间的关系，以及保持对象之间参照完整性的规则。Geodatabase也定义了简单的对象，地理要素，几何网络，注记要素等多种对象类型。二． Geodatabase中的信息类型

1.表（table）：是记录的集合，每个记录（行）中包括许多列（字段）；

2.对象类（object classes）：对象表示一个没有空间几何的实体，没有位置相关信息，但是可以通过关系类与要素联系起来，一个对象类作为一个表存储在Geodatabase中，一个对象是表中的一行。3.要素类（feature classes）：表示有空间几何的实体，有位置相关信息。要素类是具有相同的属性和相同的几何表示类型的要素集合。1）简单要素类：没有拓扑关联，包括点，线，多边形，注记等多种类型，以要素的方式管理，存放在要素集内外均可。

2）复杂要素类则是有拓扑关联的若干个要素类的组合，必须存放在同一个要素数据集中，例如拓扑要素、几何网络等类型。

4.子类（subtype）：在要素类内部可以划分若干个次一级的组，每个组是一个子类。每个子类有其自己的完整性规则和GIS行为。5.要素数据集（feature database）：要素数据集是一个具有相同空间参照的要素类的集合。

6.关系（relationships）：是一种表（或要素类）与表（或要素类）之间的联系机制。关系类建立在对象（或要素）类之间，由一个对象（或要素）类指向另一个对象（或要素）类。

7.栅格数据集（raster data sets）:影像作为栅格表来管理。

8.拓扑关系（topology）：拓扑关系将参与拓扑的各个要素类集成在一个拓扑图中作为一个拓扑单元来管理，规定同一个要素类中的各个要素如何与其他要素共享几何或不同要素类之间如何共享几何。9.元数据：对数据库中各个数据元素的描述。

10.几何网络（geometric network）：若干个要素类作为一个整体参与到几何网络的构造，Geodatabase通过拓扑关联保证参与到几何网络中的各个要素类的空间几何的连通性。几何网络将导致保证网络连通性的行为。

三． Geodatabase的优势：

1.所有图形数据和属性数据统一存储在商业DBMS中。

2.便于使用DBMS支持的多用户并发访问、事务管理、失败事务恢复、用户权限策略等机制，有利于空间信息共享、数据安全，提高了数据库性能。

3.支持智能化的要素、规则和关系。4.完善的用户支持。

四．Geodatabase数据库设计的内容

1.基本内容是规定 构成数据库的要素类、栅格数据集、其他表，以及表之间的各种关系。

2.其中，要素（或对象）类之间的关系通过要素数据集、关系类、拓扑来管理。

3.一个要素数据集中的各个要素类具有相同的空间参照；拓扑类、几何网络中的要素类受拓扑完整性约束。五

Geodatabase数据库设计的步骤

1.用户视图建模 2.定义实体和关系 3.明确实体的表示 4.匹配到Geodatabase模型 5.组织地理数据集

六．将地理实体表示为Geodatabase数据类型

要在识别地理实体并决定其几何表示类型之后，决定数据如何在Geodatabase中表示。具体包括两方面处理：

1.决定各种地理实体的表示类型及其拓扑关系； 2.决定各实体的属性字段。

决定实体的表示类型的依据是其几何表示类型：点实体用点要素、简单节点、复合节点表示，线实体用线要素、简单边、复合边表示，面实体用多边形要素表示，表面实体用TIN或栅格数据集表示，空间位置无关的实体用对象（表）表示。

 其中点、线、面实体的离散分布有两种：

1.独立分布的实体，与其他要素无关，可以表示为简单的点、线、面要素；

2.与其他要素的分布相关，这种点、线实体可以表示为节点、边要素，面实体表示为有拓扑关系的多边形要素。

 考虑要素之间的拓扑关系，定义复合要素类:平面拓扑和几何网络。平面拓扑强制保证要素不能相互交叉而没有交点。如土地或区划系统，采用平面拓扑管理要素间的公共边。

 几何网络强制保持网络要素之间的连通性，是网络编辑易于操作。如对于线状系统，交通网络，多采用几何网络表示。 确定对象的属性类型

1.主要依据要素（或对象）的专题性质而定。

2.每个实体可能有多种属性，依据相关原则确定每种属性（字段）的数据类型，使用默认值、域等工具保证数据的完整性。六． 将数据组织到Geodatabase地理数据集

1.工作包括：

（1）.划分要素类和子类（2）.规定要素类的拓扑关系（3.）构建地理数据集（4.）组织地理数据库

（1）划分要素类和子类

下列情况下必须建立单列的要素类：

1）当各组相关要素的属性字段组合根本不同时 2）当各组相关要素需要有特有的定制行为时 3）当需要对各组要素赋予不同存取权限时

4）当有些要素要采用版本管理存取而另一些要素不需要版本管理时（2）规定要素类的拓扑关系

1）将相关要素分组为几何网络好或平面拓扑

2）如果要素类是独立点、线、面要素，那么它不参与几何网络或者平面拓扑

3）如果要素类是简单边、简单节点、复合边、复合节点，那么它参与几何网络的构成

4）如果要素类是拓扑关联的多边形要素类，其内部各个要素必须满足特定的拓扑关系（3）构建地理数据集

1）要素数据集是一个容器，使用它可以将相似的要素类组合在一起。2）将具有相同空间参照的要素类组织到同一个要素数据集中是有利的，因为不同要素数据集在运算过程中可能会出现细微的差别而引起数据不一致。3）同时参加到平面拓扑或几何网络中的各个要素类必须被组织到同一个要素数据集中。

（4）最后将要素数据集和要素类组合起来。

1）确定了各要素及其拓扑联系之后，最后需要将它们组合到地理数据库中。2）如果企业用户包括多个部门，不同部门使用不同的数据集。地理数据库可以安装企业组织结构部署。

4）如果使用personal Geodatabases,由于数据库容量的限制，必须对数据库按专题或空间进行分割。七． Geodatabase的建库步骤

1.在F盘中建立自己的文件夹070141； 2.在自己的文件夹中建立个人数据库database;截图说明

3.在personal database中建立点要素a，线要素aa，面要素aaa。八． Geodatabase的拓扑建立

若干个要素类作为一个整体参与到几何网络的构造，Geodatabase通过拓扑关联保证参与到几何网络中的各个要素类的空间几何的连通性。几何网络将导致保证网络连通性的行为。

1.右键单击数据库database，点击new再点击Feature Dataset

截图说明：

出现对话框New Feature Dataset 在name中填写名字topology;2.点击“下一步”出现如下对话框，点击对话框中的Import,又出现对话框在Ext文件夹中点击Blocks.shp，点击Add即可添加数据；

截图说明；

再点击继续点击下一步，下一步，Finish,即可建立topology； 3.右键单击topology，点击Import,再点击Feature Class(mulitiple)

截图说明：

出现如下对话框，在对话框中点击第一个图标浏览，在出现的对话框中加入Ex1中的两个数据Blocks.shp和Parcels.shp，点击Add；

点击ok，则topology中增加了Blocks.shp和Parcels.shp两个数据项； 4.右键单击topology中的Blocks,点击Properties 截图说明：

出现如下对话框, 在对话框中的子类SubtypeField一栏下拉选择Res,在Subtype中设置Code和Description为0，nonres;1，res； 点击确定；

截图说明：

4.同理设置Parcels的Properties；

5.右键单击topology，点击new，再点击Topology：

6.在出现的如下对话框中点击下一步

7在.出现的如下对话框中点击下一步

8.在出现的New Topology如下对话框中点击Select All 截图说明：

9.在出现的New Topology如下对话框中，在Enter the number of ranks中填1；

10.点击下一步，在出现的New Topology对话框中，点击Add Rule,再Add Rule中的三栏中选择Parcels，Must Not Overlap With，Blocks，点击ok； 截图说明：

点击下一步，再点击Finish.再出现的对话框是否拓扑查询，点击否。则在Topology中建立了topology-Topology。

11.打开ArcMap，将topology-Topology拖到ArcMap的Layers中，则在Layers中添加了topology-Topology，Blocks和Parcels； 截图说明：

12.点击工具栏中的View，点击Toolbars，再点击Topology，将出现进行拓扑操作的Topology工具栏；在Editor下拉菜单中点击Starting Editor，将工具激活；

截图说明：

13.点击Topology工具栏的Topology Editor Tool图标，双击弧线段，在结点处进行操作即可

拓扑结果图：