神华煤制油大保当煤矿:什么是VB，谁能教教我

简言之，递归过程就是子程序自己调用自己。在编程有时采用递归的思路进行编程往往能够起到事半功倍的作用。

Win95的资源管理器具有界面直观、 操作简便的特点，深受广大电脑爱好者的欢迎和喜爱。

下面就采用递归过程模拟Windows的资源管理器。

递归过程实现的思路：

由于磁盘上的目录是树形结构，而树形的节点和节点级数是不受限定的，如把目录名放入一维或多维数组中则难度较大，不易实现。如采用VB的TreeView控件的Node对象，那就比较方便了。编一子程序，给定目录，并建立当前节点，加入Node对象中，根据Dir1控件判断给定目录下是否有下级目录，如有，添加下级节点，并加入Node对象中；如无则退出子程序。即子程序的功能是：如给定目录有子目录存在，则展开当前目录求子目录。如果在给定目录展开完成后，把下级目录当成给定目录，并调用子程序进行展开，即可把给定目录下的数级子目录全部展开完毕。

利用VB提供的TreeView控件完全可以把磁盘上的目录(包括子目录)放入Node对象中，其界面具有资源管理器的特点。把磁盘上的目录放入Node对象有多种方法，应该说采用递归方法是比较简洁的。

实现的过程：

1、 添加TreeView控件到窗体中：单击—“工程”—“部件”，选择Microsoft Windows

Common Control 5.0”复选框，单击—“确定“按钮，TreeView控件即可出现在工具箱中。

2、 在窗体中添加Drive、DirListBox、ImageList控件。

3、 控件名及主要属性如下：

控件及窗体名 属性 设置值 备注
Form Name Form1
TreeView Name TreeView
Drive Name Drive1 获得当前电脑的盘符
DirListBox Name Dir1
ImageList Name ImageList 给TreeView1的Node对象图标
实现的源程序如下：

Dim nodx As Node

Private Sub Form_Load()

'在 ImageList 控件中添加一个图象。

Dim imgX As ListImage

' TreeView1.ImageList = ImageList1 '初始化ImageList。

Set imgX = ImageList1.ListImages.Add(, , _

LoadPicture("c:\my documents\072.bmp"))

TreeView1.ImageList = ImageList1 '初始化ImageList。

TreeView1.LineStyle = tvwRootLines

TreeView1.Style = tvwTreelinesPlusMinusPictureText

Dim DriverCount As Integer

Dim GivePath As String

On Error Resume Next

'创建根节点

Set nodx = TreeView1.Nodes.Add(, , "本人电脑", "本人电脑", 1)

For DriverCount = 0 To Drive1.ListCount - 1

Set nodx = TreeView1.Nodes.Add("本人电脑", tvwChild, _

Drive1.List(DriverCount) + "\", _

Drive1.List(DriverCount), 1)

GivePath = Drive1.List(DriverCount) + "\"

Call SSplitNode(GivePath)

Next DriverCount

End Sub

Sub SSplitNode(GivePath As String) ‘子过程

'把给定目录下的子目录全部加入Node对象中

Dim SDI As Integer

Dim SDCount As Integer

Dim DString(1000) As String

‘以下为展开给定目录的下级子目录

Dir1.Path = GivePath ‘给定目录

SDCount = Dir1.ListCount ‘利用Dir1控件判断是否有下级目录

If SDCount = 0 Then Exit Sub

‘如无同退出子程序,即为递归出口。否则会形成死循环。

For SDI = 0 To SDCount - 1

DString(SDI) = Dir1.List(SDI)

Set nodx = TreeView1.Nodes.Add(GivePath, tvwChild, _

DString(SDI), FOnlyPath(DString(SDI)), 1)

Next SDI

‘调用递归(子程序自己调用自己)

For SDI = 0 To SDCount - 1

Call SSplitNode(DString(SDI))

Next SDI

End Sub

Function FOnlyPath(DString As String) As String

'功能是去掉上级目录，只留下当前目录名

'DString为给定的全路径目录名

If DString = "" Then Exit Function

Dim DLength As Integer

DLength = Len(DString)

Dim DD As Integer

For DD = DLength To 1 Step -1

If Mid(DString, DD, 1) = "\" Then Exit For

Next DD

FOnlyPath = Mid(DString, DD + 1)

End Function

本程序在Win95,VB5.0中文版下通过。

VB 是Visual Basic编程语言

编写计算机程序需要使用计算机编程语言。计算机编程语言是人和计算机“对话”的桥梁。就像人类的语言一样，计算机编程语言也有很多。目前较为广泛使用的语言有“C++”、“Pascal”、“Basic”等。在众多的计算机编程语言中，以BASIC语言最为易学易用。

BASIC是英文Beginner’s All purpose Symbolic Instruction Code的缩写，意思为初学者通用符号指令代码，一直都是程序设计入门的首选语言。

1991年，Visual Basic(简称VB)面世，他是第三代BASIC语言，它不但秉承了BASIC语言的易学易用的优点，而且增加了图形界面设计工具。它简化了复杂的窗口程序编写过程，让编程者将更多的精力致力于问题的求解过程。

不过玩过头了就有坏处了，就象我现在还在这里上网不睡觉一样。

可视化basic语言编程，应该这么翻译
就是一种basic语言，很简单的，但是学起来不是一朝一夕的事情。

不要学VB了，不好，现在流行java