下载文档原格式
VB网络通讯程序设计WinSock控件能够通过UDP协议（用户数据报协议）或TCP协议（数据传输协议）连接到远程的机器并进行数据交换。
这两种协议都能用来创建客户端和服务端应用程序。
就像定时器控件一样，WinSock控件运行时没有一个可视的界面。
下面就是分别用TCP和UDP协议来创建的网络聊天软件。
TCP协议网络聊天程序的运行过程及原理第一步：建立连接主要过程是：由客户端程序向服务端程序发出连接请求，服务端程序收到并接受连接请求，至此客户机与服务器创建了数据交流通道。
第二步：开始聊天主要过程是：在客户机的“发送的信息”文本框中输入文字时，服务器端的“收到的信息”文本框中就会实时地显示相同的文字，反之亦然。
服务器的界面设计1.创建一个“标准 EXE”工程，选中“工程”菜单的“部件”，在控件中找到Microsoft Winsock Control并将其选中。
2.将Form1的名称改为Form_Load()，并在其中添加两个命令按钮（Command1的Caption属性为“退出”，Command2的Caption属性为“发送”）。
3.在窗体是添加三个TextBox控件，其名称分别为txtServerIP，txtSend和txtReceive。
4.在窗体上添加一个Winsock控件，将其Protocol（协议）属性设置为0（即sckTCPProtocol）。
服务器端的源代码：Private Sub Form_Load()'设置侦听端口WinsockServer.LocalPort = 10001'读取服务器的IP地址txtServerIP.Text = WinsockServer.LocalIP'开始侦听WinsockServer.ListenEnd SubPrivate Sub Command1_Click()'点击“退出”按钮后关闭应用程序Unload MeEnd SubPrivate Sub Command2_Click()'只要txtSend文本框的内容写好以后就由WinsockServer控件发送WinsockServer.SendData txtSend.TextEnd SubPrivate Sub WinsockServer_ConnectionRequest(ByVal requestID AsLong)'当收到连接请求时，Winsock处于侦听状态'此时应该使用Close方法关闭Winsock，然后使用Accept方法接受连接请求WinsockServer.CloseWinsockServer.Accept requestIDEnd SubPrivate Sub WinsockServer_DataArrival(ByVal BytesTotal As Long) '当客户端有信息发送来时，利用WinsockServer控件的GatData 方法读取数据'并将其显示在txtReceive文本框中Dim MyStr As StringWinsockServer.GetData MyStrtxtReceive.Text = MyStrEnd Sub运行界面如下图：客户端的界面设计1.创建一个新的“标准EXE”工程，并添加Winsock 控件。
vb用户界面设计实验报告(共9篇) VB第7章用户界面设计一、选择题1、下列控件中，没有Caption属性的是( )。
A. 框架B. 列表框C. 复选框D. 单选按钮2、复选框的Value属性为1时，表示( )。
A. 复选框未被选中B. 复选框被选中C. 复选框内有灰色的勾D. 复选框操作有错误3、用来设置粗体字的属性是( )。
A. FontItalicB. FontNameC. FontBoldD. FontSizeE. FontUnderline4、假定定时器的Interval属性为1000，Enabled属性为Ture，调用下面的事件过程，程序运行结束后变量x的值为( )。
Dim x As IntegerSub Timer1_Timer( )For i = 1 To 10x = x + 1Next iEnd SubA. 1000B. 10000C. 10D. 以上都不对5、在下列说法中，正确的是( )。
A. 通过适当的设置，可以在程序运行期间让定时器显示在窗体上B. 在列表框中不能进行多项选择C. 在列表框中能够将项目按字母顺序从大到小排列D. 框架也有Click和DblClick事件6、在用菜单编辑器设计菜单时，必须输入的项有( )。
A. 快捷键B. 标题C. 索引D. 名称7、在下列关于菜单的说法中，错误的是( )。
A. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件B. 除了Click事件之外，菜单项还能响应其他的，如DblClick等事件C. 菜单项的捷径键不能任意设置D. 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择8、在下列关于通用对话框的叙述中，错误的是( )。
A. CommandDialog1.ShowFont显示“字体”对话框B. 在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回C. 在“打开”或“另存为”对话框中，用户选择的文件名及其路径可以经FileName属性返回D. 通用对话框可以用来制作和显示“帮助”对话框二、填空题1、复选框( )属性设置为2——Grayed时，变成灰色，禁止用户选择。
《VB程序设计》实训报告实训名称：教学信息管理系统实训专业：计算机应用技术班级：计算机10A1学号：*********姓名：陈健指导教师：***2011 年6月18 日实训成绩一、实训目的1. 学会综合运用VB有关的控件、函数和对象的知识，掌握VB的程序设计方法和技术。
2.通过一个教学信息管理系统的开发，掌握VB与ACCESS数据库的综合编程方法。
3. 掌握ACCESS数据库的设计；数据库的连接；绑定控件的属性设置、ADO数据控件的属性和方法；功能模块的编程和实现方法。
4.提高学生分析和解决实际问题的能力，调试和分析应用程序的能力，达到一定的应用程序设计水平。
二、实训报告内容2.1实训内容：教学信息管理系统采用C/S体系结构，采用Visual Basic 6.0作为开发工具，采用ACCESS数据库作为后台管理。
1.根据需求分析，创建ACCESS数据库和数据表2.主窗体和系统菜单设计3.用户管理，用户登录界面设计4.学生信息管理模块设计5.课程管理、班级管理、教师管理模块设计6.学生成绩管理模块设计根据实训项目各个模块任务要求，进行程序设计和调试。
实现信息的录入、编辑修改、删除、浏览功能，能实现信息的一般查询功能和条件查询功能，并进行系统总体整合和调试。
2.2 实训设备或软、硬件1. PC计算机，Windows XP操作系统2.Visual Basic 6.0集成开发环境3.ACCESS 2003数据库系统三、结论经过近两周的实训，我发现我对《VＢ程序设计》这门课有了更深的了解，以下是我对这次实训所做的总结：这次实训做的是“教学信息管理系统”，需要掌握ＶＢ与ＡＣＣＥＳＳ数据库的综合编程方法，所以首先要熟练掌握ＡＣＣＥＳＳ数据库的创建。
实训第一天，我首先了解了这次实训的目的及意义；然后便是完成当天的主要任务，即根据“教学信息管理系统”中的需求分析，创建ＡＣＣＥＳＳ数据库及数据表。
结合实际，需要在数据库中创建学生信息表、课程信息表、学生成绩表、班级信息表、教师信息表、教学安排表、用户表、创建查询等八个数据表。
安徽机电职业技术学院《VB程序设计》课程实训实训报告系（部）：经贸管理学系班级：电商姓名：指导教师：陈香2015 ~ 2016学年第一学期实训项目一vb集成开发环境........................................................... 错误!未定义书签。
实训1-1 ............................................................................ 错误!未定义书签。
实训1-2 ............................................................................ 错误!未定义书签。
实训项目二创建简单的应用程序 ................................................. 错误!未定义书签。
实训2-1 ............................................................................ 错误!未定义书签。
实训2-2 ............................................................................ 错误!未定义书签。
实训2-3 ............................................................................ 错误!未定义书签。
实训2-4 ............................................................................ 错误!未定义书签。
实训2-5 ............................................................................ 错误!未定义书签。
广西工学院鹿山学院《VB语言程序设计》实验报告系别：专业班级：姓名：学号：指导教师：二〇一三年六月六日一. 实验目的了解和掌握VB语言程序设计基本控件的应用；熟练应用VB常用界面设计的控件使用方法；掌握多窗体的方法应用；熟悉数组的输入输出及数组常用算法。
二. 实验内容请编写一个《VB语言程序设计》课程管理系统，要求：系统包含三个窗体，分别是登录窗体、个人信息录入窗体和成绩统计窗体。
其中各窗体功能包含如下：1.首页登录窗口：用户许通过密码验证正确以后跳转到个人信息登录窗口；2.个人信息录入窗口：在此用户可以添加和删除个人的基本信息，在此窗口点击成绩统计按钮可以跳转至成绩统计窗口；3.成绩统计窗口：实现某班10个同学的所有成绩，并统计出其平均分，最高分和最低分。
三. 程序设计界面1.首页登录窗口：2. 个人信息录入窗口3.成绩统计四. 程序实现代码1.首页登录窗口代码：Private Sub Command1_Click()If Text2.Text = 123456 Thencao2.ShowElseMsgBox "请重新输入密码"Text2.Text = " "Text2.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub2.个人信息录入Private Sub Command1_Click()If Text1.Text = " " ThenExit SubEnd IfDim strAdd As StringstrAdd = Text1.Text & " " & Text2.Text & " " & Combo1.Text & " " & Combo2.Text & " "List1.AddItem strAddEnd SubPrivate Sub Command2_Click()If List1.ListIndex <> -1 ThenList1.RemoveItem List1.ListIndexEnd IfEnd SubPrivate Sub Command3_Click()cao1.ShowEnd SubPrivate Sub Command4_Click()cao3.ShowEnd SubPrivate Sub Form_Load()Combo1.AddItem "男"Combo1.AddItem "女"Combo2.AddItem "土建121"Combo2.AddItem "土建122"End Sub3.成绩统计Private Sub Command1_Click()Print "土建121班某10个同学的成绩如下" Dim x(1 To 10) As Integer, max%, min%, a% max = 0min = 200a = 0For i = 1 To 10x(i) = Int(Rnd * 91 + 1)Print x(i);a = a + x(i)If x(i) > max Then max = x(i)If x(i) < min Then min = x(i)Next ia = a / 10PrintPrint "最高分："; maxPrint "最低分："; minPrint "平均分："; aEnd SubPrivate Sub Command2_Click()cao1.ShowEnd SubPrivate Sub Command3_Click()End五. 程序运行结果六. 实验总结这个程序用了两节课的时间制作出来，其间遇到的问题主要来自于相对复杂的程序语言在编写时没有足够的细心，导致语句出现错误。
课程设计心得体会6篇课程设计心得体会 (1) 学习vb程序已经一个学期了，但是感觉没有学到真正的知识。
但是最近几个课时的课程学习让我受益匪浅，学会了一些简单的程序语言设计，并且感觉这是一种乐趣，开始喜欢这门课程了。
然而，我深刻体会到这门课程并不是轻而易举就可也学好的，学习这门课程不仅需要细心严谨的态度，还需要充分发挥我们的想象力，让理论和实践充分的结合在一起，才能达到事半功倍的效果。
细节决定成败这句话在程序设计中最恰当不过了，因为一个小小的错误代码就可以使你的整个的程序无法进行，有时候绞尽脑汁也没能找出错误所在，只好老老实实的从新进行编写工作。
所以课程不仅理论性强，实际操作性更强，没有一个好的心态很难学好这门课程。
我们学习的不仅是科学的方法，还包括用什么样的态度去对待这门课程，并且让自理论性和实践性在自身得到充分的发挥，用细心严谨的态度去认识事物，且希望通过这次的实践操作可以让我更好地学习vb程序设计。
CAD/CAM课程设计心得体会四随着我国机械制造业的快速发展，我国正逐步变成“世界制造中心”。
为了增强竞争能力，我国制造业正在广泛的使用先进的数控技术。
21世纪机械制造业的竞争，很大程度上是数控技术的竞争。
为了适应社会的需求，进一步增强机械专业学生的竞争能力，我们进行了为期2周的CAD/CAM综合实训。
这对于我们来说无疑是一件好事。
通过两周的数控综合实训，使我们更深一步地认识和掌握CAD/CAM软件，并深刻体会到了自动编程软件(mastercam)在数控机床加工中的巨大作用，尤其是铣削部分。
通过学习使我们从理论学习转到了实际生产，同时我们对加工参数的设置有了感性的认识，如下刀位置、下刀方式、进退刀参数以及刀具切削间距的设定等等。
我们加工的零件虽然难度不大，但是十分的耗时间，因为要大量的使用线切割，这就需要我们有足够的耐心。
我们经历了穿丝、绘图、加工的整个过程，算是初步掌握了一项技能，确是受益匪浅。
华北科技学院计算机学院综合性实验
实验报告
课程名称程序设计语言（VB）
实验学期 2011 至 2012 学年第 2 学期学生所在系部
年级专业班级
学生姓名学号
任课教师李芙玲
实验成绩
计算机学院制
实验报告须知
1、学生上交实验报告时，必须为打印稿（A4纸）。
页面空间不够，可以顺延。
2、学生应该填写的内容包括：封面相关栏目、实验地点、时间、目的、设备环境、
内容、结果及分析等。
3、教师应该填写的内容包括：实验成绩、教师评价等。
4、教师根据本课程的《综合性实验指导单》中实验内容的要求，评定学生的综合
性实验成绩；要求在该课程期末考试前将实验报告交给任课教师。
综合性实验中，所涉及的程序，文档等在交实验报告前，拷贝给任课教师。
任课教师统一刻录成光盘，与该课程的期末考试成绩一同上交到系里存档。
5、未尽事宜，请参考该课程的实验大纲和教学大纲。
《程序设计语言（VB）》课程综合性实验报告。
vb程序设计实验心得 《VB程序设计》实验报告
一、 实验目的及要求（见实验书，要求手填）：
1. 了解VB.NET系统对计算机软件、硬件的要求。 2. 掌握启动与退出VB.NET的方法。
3. 掌握建立、和运行VB.NET应用程序的全过程。
4. 掌握常用控件的使用，如文本框、标签、命令按钮、图片框。
二、 实验完成情况：
三、 界面设计与程序代码
要求：给出界面设计示意图，在属性窗口修改过的对象属性需列出，列出方式如下： 1、 创建一个程序
步骤：①在窗体上建立3个标签、一个命令按钮和一个文本框。
②在代码窗口中选择Button1对象Click事件，在Button1-Click事件模板内输入代码。 ③单击启动调试按钮运行程序。 ④单击工具栏的“全部保存”按钮。 ①界面设计
②程序代码
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label3.Text = TextBox1.Text
End Sub ③运行结果
2、左右移动文字
步骤：①在窗体上建立1个标签、1个命令按钮、1个定时器。
②在代码窗口分别对3个控件编写代码，最后编写左右移动的单位。
③单击启动调试按钮运行程序。 ④单击工具栏的“全部保存”按钮。 ①界面设计
②程序代码
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = FalseCall mymove() End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Call mymove() End Sub Sub mymove()
Label1.Left = Label1.Left + 50
If Label1.Left > Me.Height Then Label1.Left = 0 End Sub End Class
③运行结
3、统计鼠标单击窗口的次数
步骤：①在窗体上建立一个标签、一个文本框。 ②在代码窗口分别对2个控件代码。③单击启动调试按钮运行程序。
④单击工具栏的“全部保存”按钮。 ①界面设计
②程序代码
Public Class Form1
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ClickTextBox1.Text = Val(TextBox1.Text) + 1 End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = 0 End Sub End Class
③运行结果
4、按钮、字号、内容、和格式的复制练习
步骤：①在窗体上建立一个标签、两个文本框、三个命令按钮。 ②在代码窗口分别对5个控件代码。
③单击启动调试按钮运行程序。
④单击工具栏的“全部保存”按钮。 ①界面设计
②程序代码
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Font = New Font("隶书", 20) End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox2.Text = TextBox1.SelectedTextTextBox2.Font = TextBox1.Font End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub End Class
③运行结果
vb程序设计实验心得
vb程序设计实验心得一：数据库VB课程设计心得体会
数据库课程设计大赛的尘嚣渐渐远去，怀着对这次大赛的些许不舍，怀着对当初课程设计开始时候的豪情万丈的决心的留恋，怀着通过这次课程设计积累的信心与斗志，我开始写这篇文章，为自己的足迹留下哪怕是微不足道但是对自己弥足珍贵的痕迹并期望与大家共勉。
首先，让我的记忆追溯到大二暑假，在老大的指引下 ，我接触到Microsoft 公司的.NET产品。那个时候我已经学过vc和asp，因为windows程序设计实验的课的关系，接触过vb，但是没有专门去学他，因为习惯了c++里面的class，int，觉得vb的sub，var 看着就不是很顺心。我是一个好奇心很强的人，突然看到了一个号称“.网络是用于创建下一代应用程序的理想而又现实的开发工具”，而且主推c#语言，由于对c语言的一贯好感，我几乎是立刻对他产生了兴趣。我就开始了对c#的学习，任何语言都不是孤立存在的，所以数据交互是很重要的，暑假的时候我把我们这学期的课本数据库系统概论看了一遍。我记得以前用c语言编程的时候，数据是在内存中申请空间，譬如使用数组等等。很耗费内存空间。这个时候就是数据库站出来的时候啦，于是我又装上了sql serverXX，以前学asp的时候用的是aess，那个时候只是照着人家做，理论是什么也不是很清楚。
通过一个暑假的学习，基本搞清楚了理论方面的东西，具体怎么用也不是很清楚。但是这为这学期的课程设计打下了铺垫。
来到学校后，随着这学期的数据库课程大赛开始了，我有一个看法就是我自己应该具备的能力不是我会多少，而是我应该具备快速学会东西的能力。遇到什么就学什么。我们有时候很容易被一些专业名词说吓着，包括什么建模，软件工程，数据分析，数据挖掘等等。我身边就有很多同学被这些纸老虎所唬住，而没有勇气去接触他们，总是说这个太难了之类的退堂鼓的话，他们低估了自己的潜力同时也压抑住了他们自己的好奇心。其实都是纸老虎，又不是什么国家科研难题，只是去用一些工具，发明工具是很难，但是用一个工具就容易多了，just do it！我记得我做这个数据库之前，我们老师说要做好前期分析，我就在网上搜索用什么分析工具好。最后我选择了roseUML建模工具。在此之前，我脑袋里面没有软件建模的思想，什么UML建模对我而言就是一张空白的纸。但是真正接触后并没有想象的那么难，有什么不懂的上网去搜索，这是一个信息横流的世界，有google，baidu就没有不能解决的知识难题。以及后来的数据库分析的时候用到的powerdesigner也是一样。
开发的时候我想过用什么架构，c/s模式？模式有很多，怎么选择？我就上网搜索现在最流行的架构是什么。结果搜到了MVC架构，就是你啦。我决定用这个架构，不会，没关系，咱学。Just do it！前期工作准备好后，那么我就得把我暑假学的.网络加以实践。这个时候我更加深入的了解了利用ado.Net操纵数据库的知识。并且对数据库里面的存储过程有了比较深入的了解。经过大概2个多星期的奋斗，我完成了我的数据库课程设计--基于.网络数据集的图书馆管理系统。并最后非常荣幸的获得了大赛的一等奖以及以及新技术应用奖。
与其临渊羡鱼，不如退而结网。这次数据库课程设计给我的最大的印象就是如果自己有了兴趣，就动手去做，困难在你的勇气和毅力下是抬不了头的。从做这个数据库开始无论遇到什么困难，我都没有一丝的放弃的念头。出于对知识的渴望，出于对新技术的好奇，出于对一切的求知。我完成了这次数据库课程设计，不过这只是我学习路上的驿站，未来十年.NET的核心技术就是XML[至少微软是这么宣传的]，我会继续学习它，包括jave公司的j2ee我也很想试试，语言本来就是相通的，just do it！语言并不重要毕竟它仅仅是工具，用好一个工具并不是一件值得为外人道的事情，主要是了解学习思想。古语说的好：学无止境啊！
我很庆幸我参加了这次数据库大赛，让我确实打开了眼界。
（最后，很感激学校给了我们这次动手实践的机会，让我们学生有了一个共同学习，增长见识，开拓视野的机会。也感谢老师们对我们无私忘我的指导，我会以这次课程设计大赛作为对自己的激励，继续学习。毕竟学习就是一个just do it的过程！）我直接从报告上面复制过来的.....所以这段也不删去了.............呵呵。
