vb学习心得体会
篇一：VB学习的心得体会
VB学习的心得体会
————刘师桐
这学期选修了VB这门学科，想从学习中对计算机有更深刻的认知，也对我大学中的2级考试奠定基础。

那么谈谈这学期的学习中对vb 的认知和心得体会。

VB全称为VisualBasic，是微软公司推出的可视化编程工具mSdn之一，是目前世界上使用最广泛的程序开发工具。

VB提供的是可视化的开发环境，我们可以象搭积木一样构建出程序的界面，而且VB提供了丰富的控件组，省去了我们自己写代码实现这些效果的麻烦，这样我们就能把更多的精力放在程序功能的实现上，所以VB学起来简单，用起来方便。

因此，我学了vb，并有了如下收获：
1.富业余生活。

业余时间到处游手好闲的身影不见了，没事我肯定一动不动的坐在电脑面前摆弄VB。

是啊，想想以前，真是一无是处，一会找人砍大山，一会找人打游戏，一会就傻傻的坐在小板登上两眼无光，似是厌倦了红尘。

现在生活有了寄托，是VB给了我无穷的快乐，让我乐此不疲。

2、多了一门技术。

VB是一门计算机编程语言，也算是一项知识含量较高的东西。

采用的是可视化程序设计。

学习的这段时间，我明白了
万事开头难，刚刚开始，遇到些困难没关系，慢慢来。

编程是一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过程中。

我们每学一点，就赶快把它用到实际的程序中去，自己多学
多用多实践，水平才能不断提高，这就是“学以致用”。

多看多练是我独门绝技，一般人我不告诉他：多看------别人的代码，即使看不懂也没关系，可以把这些代码输入到机子里运行，然后根据运行结果去体会程序的思路和用途。

3、锻炼意志。

编程可不是一项轻松的活，尤其是一个人开发制作软件时，那工作量就多了。

没有一定的坐功、细心程度及耐性那是绝对做不到的。

有时，把程序做完了需要调试运行，但是就是不能达到自已设计的效果和目的，那你得戴上放大镜找啊找啊，也许就是因为一个符号或一个字母，你就得花上个几个小时，半天，甚至更长。

越是这样越不要灰心，应该放松心态，一点一滴的去查。

只要有一颗永不退缩的心，我相信你一定能找到问题所在，最后一定能见到你开心的笑容，也一定能找到成功者的感觉。

通过这个学期的学习，对了VB这种高级语言有了初步的认知，对一些小的程序有了初步的设计方案，能根据要求设计出想要的程序，锻炼了自己的创造性思维，是培养逻辑思维的好方法，同时我经常看同学设计好的程序代码，包括教材上的例题程序，然后想想别人为什么这么计就能达到效果，我的设计能不能完成更多的功能，这样优秀了自己，帮助了自己，提高了自身水平，同样，也欣赏了别人，对别人是赞美，对自己是帮助，总而言之，这学期的VB课程让我收获了很
多，我对下学期的计算机2级考试很有信心！！！
篇二：VB学习总结也心得
学习VB两个星期以来，（其实真正时间也不到两个星期吧平时有空闲就学习了下在这里是想告诉大家VB基本操作不难，）第一个串口调试程序通了能够实现更改波特率，串口号，接收数据实现字符也十六进制显示，在发送文本框输入数据电机发送将在接收框内显示记住将RS232的2和3管脚直接接起来
下面是我测试实际过程
大家也可以和我一样练习练习
下面是我的源代码可以供大家参考下也希望高手指点下（框架就没必要给了）dimbaudasString
dimtext2enbale,asciflagasBoolean'停止显示标志false将不能显示PrivateSubcheck2_click()
EndSub
PrivateSubcombo1_click()’端口控制
Selectcasecombo1.Text
case”com1”
mPort=1
case”com2”
mPort=2
case”com3”
mPort=3
mPort=4
case”com5”
mPort=5
case”com6”
mPort=6
EndSelect
EndSub
PrivateSubcombo2_click()’波特率控制ifmScomm1.Portopen=TrueThen mScomm1.Portopen=False Selectcasecombo2.Text
case”300”
baud=“300”
case”600”
baud=“600”
case”1200”
baud=“1200”
case”2400”
baud=“2400”
case”4800”
baud=“4800”
baud=“9600”
case”19200”
baud=“19200”
case”38400”
baud=“38400”
EndSelect
mScomm1.Settings=baud&”,n,8,1”mScomm1.Portopen=True
Else
Selectcasecombo2.Text
case”300”
baud=“300”
case”600”
baud=“600”
case”1200”
baud=“1200”
case”2400”
baud=“2400”
case”4800”
baud=“4800”
case”9600”
case”19200”
baud=“19200”
case”38400”
baud=“38400”
EndSelect
mScomm1.Settings=baud&”,n,8,1”
Endif
EndSub
PrivateSubcommand5_click()
'dimsasString
dima()asByte
ifmScomm1.Portopen=FalseThen
msgBox”串口未打开，请打开串口”,48,”警告”Endif
'Redima(3)
'a(0)=&HF
'a(1)=&HFE
'a(2)=&Hdd
'a(3)=&Hcc
s=Text3.Text
'a=s。