爱华网第1篇： VB学习的心得体会
一、 学习VB程序设计的方法
(1)保持良好的学习心态
1、要有自信，自强，积极主动学习。
2、克服畏难情绪，树立学好程序设计的信心
(2)要有良好的学习习惯
1、课前预习，认真听课并适当做些笔记，课后要认真复习消化所学内容，完成作业。
2、VB程序设计的入门学习并不难，但却是一个十分重要的过程，因为程序设计思想就在这时形成的，良好的程序设计习惯也在这个阶段养成。
(3)学习程序设计要注重理解一些重要的概念。
VB程序设计本身并不复杂，翻开一本程序设计学习的书籍，看到的无非就是变量，函数，条件语句，循环语句等概念。但要真正能进行程序设计，需要深入理解这些概念。因此，在 程序入门阶段还是应该重视概念的学习。
(4)自己动手编写程序
程序设计入门阶段要经常自己动手抄写或编写一些小程序，亲自动手进行程序设计是创造性思维应用的体现，是培养逻辑思维的好方法。因此一定要多动手编写程序，而且要从小程序开发开始，逐渐提高写程序的能力。
(5)阅读，借签别人设计的好程序
多看别人设计好的程序代码，包括教材上的例题程序。在读懂别人程序后，要想他为什么这么设计能不能将程序修改完成更多的功能 则可以学到别人优秀的东西，帮助自己 提高自身水平。
(6) VB程序设计学习的重点
1、程序设计课是高强度的脑力劳动，不是听会的，也不是看会的，而是练会的。
2、只有自己动手，编写一些程序，才会有成就感，进而对课程产生兴趣，学起来才比较从容。等你在编写大量程序之后，我想过二级肯定没问题，不过能不能做到真知灼见，运用自如我就不敢说了。
3、动手能力的培养是这门课和以往课程最大的不同之处。重点放在思路，算法，编程构思和程序实现上。语句只是表达工具，要求堂上积极思考，尽量当堂学懂，并做到灵活应用。
)上机调试程序应注意的几点：
1、上机前应认真把实验题在用纸上做一做(包括窗体界面设计，事件代码的编写等)
2、每次上机后应总结，把没有搞清楚的问题记录下来，请教老师或同学。
3、平时应多抽课余时间多上机调试程序。注意系统的提示信息，遇到问题多问几次为什么。
(6)养成良好的编程习惯
1、程序构思要有说明；
2、学会如何调试程序；
3、对运行结果要做正确与否的分析。
二、复习过程简单的说就是细看书，勤做题，最后练上机。
细看书，就是在考试前的一个月内，以看书为主，越细越好（如果你时间紧的话可只重点看些考点涉及的东西），把书上的知识点(最好看几份历年试题，让自己明白考什么。)看懂看透，暂时不明白的或者不理解的先用笔记本记下。这样你的笔记本就有每章你不懂的知识点和题目了，之后可以问同学，问老师 如此反复，半个月下来你的笔试水平考试应该没问题了；下半个月的时间可以一边练习题目，一边练习上机。切不可前一段时间做题，后一段时间上机，那样的话会有很多忘记的知识点。
第2篇：学习vb的心得体会
学习VB两个星期以来， （其实真正时间也不到两个星期吧 平时有空闲就学习了下 在这里是想告诉大家 VB基本操作不难，）第一个串口调试程序通了 能够实现更改波特率，串口号，接收数据实现字符也十六进制显示，在发送文本框输入数据 电机发送将在接收框内显示 记住将RS232的2和3管脚直接接起来
下面是我测试实际过程
大家也可以和我一样练习练习
下面是我的源代码 可以供大家参考下 也希望高手指点下 （框架就没必要给了） Dim baud As String
Dim text2enbale, asciflag As Boolean '停止显示标志 false将不能显示
Private Sub Check2_Click()
End Sub
Private Sub Combo1_Click() 端口控制
Select Case Combo1.Text
Case "COM1"
MSComm1.CommPort = 1
Case "COM2"
MSComm1.CommPort = 2
Case "COM3"MSComm1.CommPort = 3
Case "COM4"
MSComm1.CommPort = 4
Case "COM5"
MSComm1.CommPort = 5
Case "COM6"
MSComm1.CommPort = 6
End Select
End Sub
Private Sub Combo2_Click() 波特率控制
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
Select Case Combo2.Text
Case "300"
baud = "300"
Case "600"
baud = "600"
Case "1200"
baud = "1200"
Case "2400"
baud = "2400"
Case "4800"
baud = "4800"
Case "9600"
baud = "9600"
Case "19200"
baud = "19200"
Case "38400"
baud = "38400"
End Select
MSComm1.Settings = baud & ",n,8,1"
MSComm1.PortOpen = True
Else
Select Case Combo2.Text
Case "300"
baud = "300"
Case "600"
baud = "600"
Case "1200"
baud = "1200"
Case "2400"
baud = "2400"
Case "4800"
baud = "4800"
Case "9600"
baud = "9600"
Case "19200"
baud = "19200"
Case "38400"
baud = "38400"
End Select
MSComm1.Settings = baud & ",n,8,1"
End If
End Sub
Private Sub Command5_Click()
'Dim s As String
Dim a() As Byte
If MSComm1.PortOpen = False Then
MsgBox "串口未打开，请打开串口", 48, "警告"
End If
'ReDim a(3)
'a(0) = &HF
'a(1) = &HFE
'a(2) = &HDD
'a(3) = &HCC
s = Text3.Text
'a = s
MSComm1.RThreshold = Len(s) ' UBound(a) + 1
If MSComm1.PortOpen = True Then
MSComm1.Output = s
End If
Call Delay(20)
End Sub
Private Sub MSComm1_OnComm()
Dim idata As Variant
Dim arr() As Byte
intInputLen = MSComm1.InBufferCount '不这样将会提示不能给数组赋值
ReDim arr(intInputLen) '和上面一样
Select Case MSComm1.CommEvent
Case comEvReceive '接收成功信息
arr = MSComm1.Input '得到 接收缓冲区数据
If asciflag = True Then
For i = 0 To UBound(arr)
Text2.Text = Text2.Text + Chr$$$$(arr(i))
Next i
Else
For i = 0 To UBound(arr)
Text2.Text = Text2.Text + " " & arr(i)
Next i
End If
MSComm1.InBufferCount = 0
End Select
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
asciflag = True
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
asciflag = False
End If
End Sub
Private Sub Timer1_Timer()
Label11.Caption = Time
End Sub
Private Sub uart_open_Click()
MSComm1.PortOpen = Not MSComm1.PortOpen
If MSComm1.PortOpen Then
Shape2.BackColor = &HFF&
uart_open.Caption = "关闭串口"
Else
Shape2.BackColor = &HE0E0E0
uart_open.Caption = "打开串口"
End If
End Sub
Private Sub text2_clr_Click()
Text2.Text = ""
End Sub
Private Sub text2_en_Click()
text2enable = Not text2enbale
End Sub
Private Sub Command6_Click()
End
End Sub
Private Sub Form_Load()
Show '没有show后面的设置焦点将失败 错误
text2enbale = True
Option2.Value = True '默认显示是以16进制显示
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputMode = comInputModeBinary '二进制接收数据
MSComm1.InBufferCount = 0
MSComm1.RThreshold = 1 '缓冲区接收到4个字符 就产生一个oncomm事件
Text3.Text = ""
Text3.SetFocus
End Sub
至此 一个简单的小工程就完成了，因为我是电子信息工程专业对高级编程还是很菜鸟的，其实这个功能也是我一直想能够自己实现的，因为之前一直以为学习VB 会花好多时间，就像之前一直在学习ARM一样半天模不着头脑。所以迟迟不敢接触。估计也好多人和我一样，其实学习开始了 也会发现并不是想象中那样。
第3篇： VB学习心得体会
这学期选修了VB这门学科，想从学习中对计算机有更深刻的认知，也对我大学中的2级考试奠定基础。那么谈谈这学期的学习中对vb的认知和心体会。
通过学习vb我基本学会了编辑一些小程序，掌握了一些基本的知识，得到了以下一些收获：
1.富业余生活。曾经业余时间到处游手好闲的身影不见
了，以前没事我肯定一动不动的坐在电脑面前摆弄电脑。是啊，想想以前，真是一无是处，一会找人砍大山，一会找人打游戏，一会就傻傻的坐在小板登上两眼无光，似是厌倦了红尘。现在有了VB，它给了我无穷的快乐，让我乐此不疲。
2、多了一门技术。VB是一门计算机编程语言，也算是一
项知识含量较高的东西。采用的是可视化程序设计。学习的这段时间，我明白了万事开头难，刚刚开始，遇到些困难没关系，慢慢来。 我们每学一点，就赶快把它用到实际的程序中去，自己多学多用多实践，水平才能不断提高，这就是 学以致用 。 只有这样我才呢学有所成
3、锻炼意志。编程可不是一项轻松的活，尤其是一个人
开发制作软件时，那工作量就多了。没有一定的坐功、细心程度及耐性那是绝对做不到的。有时，把程序做完了需要调试运行，但是就是不能达到自已设计的效果和目的，那你得戴上放大镜找啊找啊，也许就是因为一个符号或一个字母，
你就得花上个几个小时，半天，甚至更长。只要有一颗永不退缩的心，我相信你一定能找到问题所在，最后一定能见到你开心的笑容，也一定能找到成功者的感觉。
通过这个学期的学习，对了VB这种高级语言有了初
步的认知，对一些小的程序有了初步的设计方案，能根据要求设计出想要的程序，锻炼了自己的创造性思维，是培养逻辑思维的好方法，同时我经常看同学设计好的程序代码，然后想想别人为什么这么计就能达到效果，我的设计能不能完成更多的功能，这样优秀了自己，帮助了自己，提高了自身水平，同样，也欣赏了别人，对别人是赞美，对自己是帮助，总而言之，这学期的VB课程让我收了很多。
第4篇： 学习vb的心得体会
命令按钮Command button cmd cmdExit
通用对话框Common dialog dlg dlgFileOpen
目录列表框Directory list box dir dirSource
驱动器列表框Drive list box drv drvTarget
文件列表框File list box fil filSource
窗体Form frm frmEntry
图象框Image img imgIcon
标签Label lbl lblHelpMessage
列表框List box lst lstPolicyCodes
菜单Menu mnu mnuFileOpen
单选按钮Option button opt optGender
图片框Picture box pic picVGA
文本框Text box txt txtLastName
时钟控件Timer tmr tmrAlarm
变量
声明所有的变量将会节省编程时间，因为键入操作引起的错误减少了(例如，究竟是 aUserNameTmp，还是 sUserNameTmp，还是 sUserNameTemp)。在 选项 对话框的 编辑器 标签中，复选 要求变量声明 选项。Option Explicit 语句要求在 Visual Basic 程序中声明所有的变量。
应该给变量加前缀来指明它们的数据类型。而且前缀可以被扩展，用来指明变量范围，特别是对大型程序。
用下列前缀来指明一个变量的数据类型。
变量数据类型
数据类型 前缀 例子
String (字符串类型) str strFName
Integer (短整数类型) int intQuantity
Long (长整数类型) lng lngDistance
Single (单精度浮点数类型) sng sngAverage
Double (双精度浮点数类型) dbl dblTolerance
Boolean (布尔类型) bln blnFound
Byte(字节类型) byt bytRasterData
Date (日期类型) dte dteNow
Currency (货币类型) cur curRevenue
Object (对象类型) obj objCurrent
Variant (变体类型) vnt vntCheckSum
4、在简单的选择条件情况下,使用IIf()函数
繁琐的代码：
If nNum = 0 Then
sName = sancy
Else
sName = Xu
End If
简单的代码：
sName=IIf(nNum=0, sancy , Xu )
5、尽量使用Debug.Print进行调试
在很多初学者的调试中,用MsgBox来跟踪变量值.其实用Debug.Print不仅可以达到同样的功效,而且在程序最后编译过程中,会被忽略.而MsgBox必须手动注释或删除.
通常：
MsgBox nName
应该：
Debug.Print nName
6、在重复对某一对象的属性进行修改时，尽量使用With....End With
通常：
Form1.Height = 5000
Form1.Width = 6000
Form1.Caption = This is MyLabel
应该：
With Form1
.Height = 5000
.Width = 6000
.Caption = This is MyLabel
End With
这种结构程序执行效率比较高，特别在循环语句里。
7、MsgBox中尽量使用消息图标，这样程序比较有规范
一般来说
vbInformation 用来提示确认或成功操作的消息
vbExclamation 用来提示警告的消息
vbCritical 用来提示危机情况的消息
vbQuestion 用来提示询问的消息
8、在可能的情况下使用枚举
