VB语言如此强大，对于一个对编程一无所知，而又迫切希望掌握一种快捷实用的编程语言的初学者来说能快速上手吗？没问题。它的快捷的开发速度，简单易学的语法，体贴便利的开发环境，是初学者的首选。下面针对初学者的学习的几点学习的建议。
1．工欲善其事，必先利其器。
要想利用VB开发出高质量的程序，必须要先打下良好的基础，然后再一步一步的不断提升技术水平。万事开头难，刚刚开始，遇到些困难没关系，慢慢来。编程是一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过程中。
2．学习VB编程，贵“恒”，重“精”，忌“浮”
学习语言切不可半途而废，一定要持之以恒，只有坚持到最后才可以看见最美丽的彩虹。在学习的过程中一定要“精”，就是说在选择学习的图书，学习工具，已经学习的网站时，一定要选择信誉和口碑都很好的，并且精益求精，切不可为了图便宜买盗版图书，或者去不正规的网站学习，这样会给学习带来不便。学习时要忌浮躁，切不可觉得自己学习了一点就沾沾自喜，以为自己已经技术很好了。
3．切不可这山望着那山高
学习中切不可这山望着那山高，今天觉得VB好，就学习VB，明天觉得VC好，就学习VC。这样到最后肯定是一事无成。
VB和VC++、VF等都是Microsoft Visual Studio编程套装组合里的成员。因此，学习微软的开发工具，绝对不用担心过时的问题，因为作为世界软件龙头老大，微软早就考虑到个问题了。
4．先“专心学精一本语言，然后对其他语言就可以融会贯通了”
这是许多老程序员告诫新手的一句话，现在放到这里和大家共勉。
1．工欲善其事，必先利其器。
要想利用VB开发出高质量的程序，必须要先打下良好的基础，然后再一步一步的不断提升技术水平。万事开头难，刚刚开始，遇到些困难没关系，慢慢来。编程是一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过程中。
2．学习VB编程，贵“恒”，重“精”，忌“浮”
学习语言切不可半途而废，一定要持之以恒，只有坚持到最后才可以看见最美丽的彩虹。在学习的过程中一定要“精”，就是说在选择学习的图书，学习工具，已经学习的网站时，一定要选择信誉和口碑都很好的，并且精益求精，切不可为了图便宜买盗版图书，或者去不正规的网站学习，这样会给学习带来不便。学习时要忌浮躁，切不可觉得自己学习了一点就沾沾自喜，以为自己已经技术很好了。
3．切不可这山望着那山高
学习中切不可这山望着那山高，今天觉得VB好，就学习VB，明天觉得VC好，就学习VC。这样到最后肯定是一事无成。
VB和VC++、VF等都是Microsoft Visual Studio编程套装组合里的成员。因此，学习微软的开发工具，绝对不用担心过时的问题，因为作为世界软件龙头老大，微软早就考虑到个问题了。
4．先“专心学精一本语言，然后对其他语言就可以融会贯通了”
这是许多老程序员告诫新手的一句话，现在放到这里和大家共勉。
温馨提示：内容为网友见解，仅供参考
第1个回答 2019-12-06
第2个回答 2013-10-12
以vb程序设计语言为工具，对特定的问题进行分析，并设计出解题的算法，根据得到的算法，用vb语言编写出源程序的过程就是vb程序设计。]
第3个回答 2013-10-12
1、Private Sub Command1_Click() Dim N As Integer, bF As Boolean, dt As String Dim k As Integer, m As Integer, nn As Integer, mm As Integer, tt As String N = InputBox("请输入N值（N>100）") nn = 0: mm = 0: tt = "" For k = 3 To N bF = False For m = 2 To k - 1 If (k Mod m) = 0 Then bF = True Exit For End If Next If Not bF Then nn = nn + 1 mm = mm + 1 dt = CStr(k) tt = tt & Space(8 - Len(dt)) & dt If mm = 10 Then mm = 0 Print tt tt = "" End If End If NextEnd Sub2、Private Sub Command2_Click() Dim m As Integer, n As Integer, mm As Integer, nn As Integer Dim k As Integer, r As Integer m = InputBox("请输入一个自然数m") n = InputBox("请输入一个自然数n") mm = m: nn = n If m < n Then k = m: m = n: n = k End If Do r = m Mod n If r > 0 Then m = n: n = r End If Loop Until r = 0 MsgBox mm & "和" & nn & "的最大公约数是" & n End Sub]
相似回答
