第一篇：vb第9章 文件

《Visual Basic程序設計》精品課程電子教案

第九章 文件

一、教學內容

在這章里要求掌握VB文件控件和文件的基本操作。

二、目的要求

1．熟悉文件處理語句和函數；

2．掌握順序文件的打開、讀、寫、關閉操作； 3．掌握隨機文件的打開、讀、寫、關閉操作； 4．掌握二進制文件的打開、讀、寫、關閉操作； 5.掌握文件系統控件的同步； 6.掌握通用對話框控件的使用。

三、教學重點與難點

教學重點：順序文件、隨機文件的基本操作；文件系統控件的同步。教學難點：順序文件、隨機文件、二進制文件的基本操作。

四、教學方法

多媒體教學為主。適當提問，加深學生對概念的理解。《Visual Basic程序設計》精品課程電子教案

第一講（2學時）

一、教學內容

文件處理語句和函數、順序文件和隨機文件的基本操作。

二、目的要求

1．熟悉文件處理語句和函數。

2．掌握順序文件的打開、讀、寫、關閉操作。3.掌握隨機文件的打開、讀、寫、關閉操作

三、教學重點與難點

教學重點：順序文件的讀、寫操作；隨機文件的讀、寫操作。教學難點：順序文件的讀、寫操作。

四、教學方法

多媒體教學。

五、教學過程

9.1 文件處理語句和函數 9.1.1 與文件系統相關的語句

見書上189－192頁 9.1.2 與文件系統相關的函數

見書上192－194頁 9.2 順序文件 9.2.1 順序文件的打開

Open語句的語法如下：

Open pathname For mode [Access access][lock] As [#] filenumber [Len=reclength] 書上195頁 表9.3 順序文件的3種打開模式 9.2.2 順序文件的讀操作 《Visual Basic程序設計》精品課程電子教案

Visual Basic提供讀取文件內容的3種方法。1.Input #語句

語法格式為：

Input #filenumber，varlist 2.Line Input #語句

語法格式為：

Line Input #filenumber，varname 3.Input()函數

語法格式為：

Input(number，[# ]filenember)9.2.3 順序文件的寫操作 1.Write #語句

語法格式為：

Write #filenumber，[outputlist] 2.Print #語句

語法格式為：

Print #filenumber，[outputlist] 9.2.4 順序文件的關閉

Close語法格式為： Close [filenumberlist] 【例9.1】 順序文件的使用示例。

見書上199－201頁

9.3 隨機文件

順序文件和隨機文件的比較。《Visual Basic程序設計》精品課程電子教案

9.3.1 聲明記錄類型變量

Type/End Type語法格式為：

[Private|Public] Type 自定義類型名 元素名 As type [元素名 As type] ?

End Type 9.3.2 打開隨機文件

Open語句格式為：

Open pathname [For Random] As filenumber Len=reclength 9.3.3 隨機文件的讀操作

語法格式為：

Get [#] filenumber，[recnumber]，varname 9.3.4 隨機文件的寫操作

Put語句語法格式如下：

Put [#] filename，[recnumber]，varname 【例9.2】 往隨機文件中添加記錄 見書上203－204頁

【例9.3】 將“Student97.dat”隨機文件的第n條記錄刪除。見書上205－206頁 9.3.5 隨機文件的瀏覽操作

【例9.4】

用滾動條控件在隨機文件中進行定位操作。見書上206－207頁

六、小結 《Visual Basic程序設計》精品課程電子教案

在這一講里，我們要掌握順序文件的打開、讀、寫、關閉操作以及隨機文件的打開、讀、寫、關閉操作。

七、作業

習題9.18，9.20.《Visual Basic程序設計》精品課程電子教案

第二講（2學時）

一、教學內容

二進制文件、與文件系統相關的控件。

二、目的要求

1．掌握二進制文件的打開、讀、寫、關閉操作。

2．掌握驅動器列表框、目錄列表框和文件列表框三者的同步。3.掌握通用對話框控件的使用。

三、教學重點與難點

教學重點：二進制文件的讀、寫操作；驅動器列表框、目錄列表框和文件列表框三者的同步。

教學難點：驅動器列表框、目錄列表框和文件列表框三者的同步。

四、教學方法

多媒體教學。

五、教學過程 9.4 二進制文件 1.二進制文件的打開

語法格式為：

Open pathname for Binary As filenumber 2.二進制文件的讀寫

Get [#]filenumber，[recnumber]，varname Put [#]filenumber，[recnumber]，varname 3.設置數據指針位置

Seek語句的語法格式如下： Seek [#]filenumber，position 《Visual Basic程序設計》精品課程電子教案

9.5 與文件系統相關的控件

9.5.1 驅動器列表框、目錄列表框、文件列表框控件 1.驅動器列表框

驅動器列表框有一個Drive屬性，在運行時返回或設置所選定的驅動器。Drive屬性不 能在設計狀態時設置，只能在程序中被引用或設置，其形式如下：

[對象.]Drive[=drive] 其中，對象：驅動器列表框名稱。

每次重新設置Drive屬性都會引發該控件的Change事件。2.目錄列表框

Path屬性用來返回或設置當前路徑，不能在設計狀態時設置。它適用于目錄列表框和 文件列表框，其形式如下：

[對象.]Path[=pathname] 其中，對象：指目錄列表框或文件列表框。pathname：一個路徑名字符串。

每次重新設置Path屬性都會引發該控件的Change事件。3.文件列表框

文件列表框也有Path屬性，表示列表框中顯示的文件所在的路徑。每次重新設置Path屬性都會引發PathChange事件。

文件列表框的Pattern屬性用于返回或設置文件列表框所顯示的文件類型。其形式如 下：

[對象.]Pattern[=value] 其中，對象：指文件列表框名稱。value：一個文件名字符串。【例9.5】 文件系統控件的演示。《Visual Basic程序設計》精品課程電子教案

見書上211－212頁 9.5.2 通用對話框控件

通用型對話框共有6種，它們是：Open（打開）、Save As（保存文件）、Print（打印）、Color（顏色）、Font（字體）、Help（幫助）。1．創建通用對話框控件（CommonDialog）2．調用通用對話框控件

調用方法如下所示：

調用打開對話框：CommonDialogX.ShowOpen 調用保存對話框：CommonDialogX.ShowSave 調用打印對話框：CommonDialogX.ShowPrinter 調用顏色對話框：CommonDialogX.ShowColor 調用字體對話框：CommonDialogX.ShowFont 調用幫助對話框：CommonDialogX.ShowHelp 3．設置通用對話框控件的屬性

【例9.6】 設計“打開”、“保存”、“顏色”3種對話框

六、小結

在這一講里，我們要掌握二進制文件的打開、讀、寫、關閉操作；驅動器列表框、目錄列表框和文件列表框三者的同步；通用對話框控件的使用。

七、作業

9.21；9.22。

第二篇：VB遍歷文件目錄的實現方法總結

VB遍歷文件目錄的實現方法總結

2009-04-25 20:44VB遍歷文件夾的實現方法總結一共三種，如下： 使用FSO對象模型

'=============================== '描述：需要Scripting類型庫（Scrrun.dll）支持。實際使用時需要引用Microsoft Scripting Runtime '優點：測試當中沒有錯誤。可以檢測隱藏文件。

'示例：一個文本標簽、一個ListBox、一個命令按鈕。都取默認名稱即可

'=============================== Dim fso As New FileSystemObject Dim fld As Folder

Private Sub Command1_Click()

Dim nDirs As Long, nFiles As Long, lSize As Currency

Dim sDir As String, sSrchString As String

sDir = InputBox(“Type the directory that you want to search for”, _

“FileSystemObjects example”, “C:”)

sSrchString = InputBox(“Type the file name that you want to search for”, _

“FileSystemObjects example”, “vb.ini”)

MousePointer = vbHourglass

Label1.Caption = “Searching ” & vbCrLf & UCase(sDir)& “...”

lSize = FindFile(sDir, sSrchString, nDirs, nFiles)

MousePointer = vbDefault

MsgBox Str(nFiles)& “ files found in” & Str(nDirs)& _

“ directories”, vbInformation

MsgBox “Total Size = ” & lSize & “ bytes” End Sub

Private Function FindFile(ByVal sFol As String, sFile As String, _

nDirs As Long, nFiles As Long)As Currency

Dim tFld As Folder, tFil As File, FileName As String

On Error GoTo Catch

Set fld = fso.GetFolder(sFol)

FileName = Dir(fso.BuildPath(fld.Path, sFile), vbNormal Or _

vbHidden Or vbSystem Or vbReadOnly)

While Len(FileName)<> 0

FindFile = FindFile + FileLen(fso.BuildPath(fld.Path, _

FileName))

nFiles = nFiles + 1

List1.AddItem fso.BuildPath(fld.Path, FileName)' Load ListBox

FileName = Dir()' Get next file

DoEvents

Wend

Label1 = “Searching ” & vbCrLf & fld.Path & “...”

nDirs = nDirs + 1

If fld.SubFolders.Count > 0 Then

For Each tFld In fld.SubFolders

DoEvents

FindFile = FindFile + FindFile(tFld.Path, sFile, nDirs, nFiles)

Next

End If

Exit Function Catch: FileName = “"

Resume Next End Function Api方法

'================================== '描述：使用Api。

'備注：使用過程中出現錯誤。未加分析。忽略錯誤即可。'

可查看隱藏文件。

'示例：2個listbox、2個命令按鈕、6個文本框、一個模塊

=================================== '模塊代碼

Option Explicit

Declare Function FindFirstFile Lib ”kernel32“ Alias _

”FindFirstFileA“(ByVal lpFileName As String, lpFindFileData _

As WIN32_FIND_DATA)As Long

Declare Function FindNextFile Lib ”kernel32“ Alias ”FindNextFileA“ _

(ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA)As Long

Declare Function GetFileAttributes Lib ”kernel32“ Alias _

”GetFileAttributesA“(ByVal lpFileName As String)As Long

Declare Function FindClose Lib ”kernel32“(ByVal hFindFile As Long)_

As Long

Declare Function FileTimeToLocalFileTime Lib ”kernel32“ _

(lpFileTime As FILETIME, lpLocalFileTime As FILETIME)As Long

Declare Function FileTimeToSystemTime Lib ”kernel32“ _

(lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME)As Long

Public Const MAX_PATH = 260

Public Const MAXDWORD = &HFFFF

Public Const INVALID_HANDLE_VALUE =-1

Public Const FILE_ATTRIBUTE_ARCHIVE = &H20

Public Const FILE_ATTRIBUTE_DIRECTORY = &H10

Public Const FILE_ATTRIBUTE_HIDDEN = &H2

Public Const FILE_ATTRIBUTE_NORMAL = &H80

Public Const FILE_ATTRIBUTE_READONLY = &H1

Public Const FILE_ATTRIBUTE_SYSTEM = &H4

Public Const FILE_ATTRIBUTE_TEMPORARY = &H100

Type FILETIME

dwLowDateTime As Long

dwHighDateTime As Long

End Type

Type WIN32_FIND_DATA

dwFileAttributes As Long

ftCreationTime As FILETIME

ftLastAccessTime As FILETIME

ftLastWriteTime As FILETIME

nFileSizeHigh As Long

nFileSizeLow As Long

dwReserved0 As Long

dwReserved1 As Long

cFileName As String * MAX_PATH

cAlternate As String * 14

End Type

Type SYSTEMTIME

wYear As Integer

wMonth As Integer

wDayOfWeek As Integer

wDay As Integer

wHour As Integer

wMinute As Integer

wSecond As Integer

wMilliseconds As Integer

End Type

Public Function StripNulls(OriginalStr As String)As String

If(InStr(OriginalStr, Chr(0))> 0)Then

OriginalStr = Left(OriginalStr, _

InStr(OriginalStr, Chr(0))1

FindFilesAPI = FindFilesAPI + FindFilesAPI(path & dirNames(i)_

& ”“, SearchStr, FileCount, DirCount)

Next i

End If

End Function

Private Sub Command1_Click()

On Error Resume Next

Dim SearchPath As String, FindStr As String

Dim FileSize As Long

Dim NumFiles As Integer, NumDirs As Integer

Screen.MousePointer = vbHourglass

List1.Clear

SearchPath = Text1.Text

FindStr = Text2.Text

FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)

Text3.Text = NumFiles & ” Files found in “ & NumDirs + 1 & _

” Directories“

Text4.Text = ”Size of files found under “ & SearchPath & ” = “ & _

Format(FileSize, ”#,###,###,##0“)& ” Bytes“

Screen.MousePointer = vbDefault

End Sub

Function FindFiles(path As String, SearchStr As String, _

FileCount As Integer, DirCount As Integer)

Dim FileName As String

' Walking filename variable.Dim DirName As String

' SubDirectory Name.Dim dirNames()As String ' Buffer for directory name entries.Dim nDir As Integer

' Number of directories in this path.Dim i As Integer

' For-loop counter.On Error GoTo sysFileERR

If Right(path, 1)<> ”“ Then path = path & ”“

' Search for subdirectories.nDir = 0

ReDim dirNames(nDir)

DirName = Dir(path, vbDirectory Or vbHidden Or vbArchive Or vbReadOnly _ Or vbSystem)' Even if hidden, and so on.Do While Len(DirName)> 0

' Ignore the current and encompassing directories.If(DirName <> ”.“)And(DirName <> ”..“)Then

' Check for directory with bitwise comparison.If GetAttr(path & DirName)And vbDirectory Then

dirNames(nDir)= DirName

DirCount = DirCount + 1

nDir = nDir + 1

ReDim Preserve dirNames(nDir)

'List2.AddItem path & DirName ' Uncomment to list

End If

' directories.sysFileERRCont:

End If

DirName = Dir()' Get next subdirectory.Loop

' Search through this directory and sum file sizes.FileName = Dir(path & SearchStr, vbNormal Or vbHidden Or vbSystem _

Or vbReadOnly Or vbArchive)

While Len(FileName)<> 0

FindFiles = FindFiles + FileLen(path & FileName)

FileCount = FileCount + 1

' Load List box

List2.AddItem path & FileName & vbTab & _

FileDateTime(path & FileName)

' Include Modified Date

FileName = Dir()' Get next file.Wend

' If there are sub-directories..If nDir > 0 Then

' Recursively walk into them

For i = 0 To nDir” & Err.Description, , _

“Unexpected Error”

Resume AbortFunction

End If

End Function

Private Sub Command2_Click()

On Error Resume Next

Dim SearchPath As String, FindStr As String

Dim FileSize As Long

Dim NumFiles As Integer, NumDirs As Integer

Screen.MousePointer = vbHourglass

List2.Clear

SearchPath = Text1.Text

FindStr = Text2.Text

FileSize = FindFiles(SearchPath, FindStr, NumFiles, NumDirs)

Text5.Text = NumFiles & “ Files found in ” & NumDirs + 1 & _

“ Directories”

Text6.Text = “Size of files found under ” & SearchPath & “ = ” & _

Format(FileSize, “#,###,###,##0”)& “ Bytes”

Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Load()

Command1.Caption = “Use API code”

Command2.Caption = “Use VB code”

' start with some reasonable defaults

Text1.Text = “C:My Documents”

Text2.Text = “*.*”

End Sub 使用系統控件

'=================================== '描述：簡單易于實現

'

不可查看隱藏文件

'示例：一個目錄操作經典三聯組合。一個命令按鈕。

'===================================

Private Sub Command1_Click()List1.Clear sosuofile(Dir1.List(Dir1.ListIndex))MsgBox “搜索完畢！，共找到” + Str(List1.ListCount)+ “條記錄。”, vbOKOnly + vbExclamation, “提示” End Sub

Private Sub Drive1_Change()Dir1.Path = Drive1.Drive End Sub Sub sosuofile(MyPath As String)Dim Myname As String Dim dir_i()As String Dim i, idir As Long If Right(MyPath, 1)<> “" Then MyPath = MyPath + ”“ Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname <> ”“ If Myname <> ”.“ And Myname <> ”.." Then If(GetAttr(MyPath & Myname)And vbDirectory)= vbDirectory Then '如果找到的是目錄 idir = idir + 1 ReDim Preserve dir_i(idir)As String dir_i(idir1 Call sosuofile(MyPath + dir_i(i))Next i ReDim dir_i(0)As String End Sub

第三篇：vb錯誤處理

Vb錯誤處理 出錯處理

（1）設置錯誤陷阱

On Error Resume Next

若出現錯誤，則將當前錯誤語句忽略，執行下條語句。

On Error GoTo 語句標號

On Error GoTo 0 不進行任何處理

（2）編寫錯誤處理程序

Resume：接著錯誤的地方執行，重試。

Resume Next：類似On Error Resume Next，忽略當前錯誤語句，執行下一語句Resume <標號>：到標號那里去處理。

過程級、模塊級

節選：

Onerrorgoto標簽是放在錯誤發生之前，有效范圍是到此事件的結束，包括錯誤處理時發生的錯誤。（此時的錯誤一般是沒有想到的，故也沒有處理）所以要保證不要在錯誤處理的代碼中寫復雜的代碼。

OnErrorGotoErr_Normal

'一般代碼

sql= “insertinto......”

OnErrorGotoErr_Roll

adocn.BeginTrans

adocn.Executesqladocn.CommitTrans

OnErrorGotoErr_Normal

....Exitsub

Err_Normal:

'正常錯誤處理

ExitSub

vb6.0 遇到錯誤能不退出嗎

2012-1-25 20:04提問者： 咫·尺 | 瀏覽次數：278次

比如遇到數據溢出啊等，彈出錯誤以后，就直接把程序關閉了，數據都沒保存，能彈出錯誤后，不關閉程序嗎？

滿意回答

插入以下代碼：

On Error Resume Next

即可。意思是，程序遇到錯誤不理會，繼續執行。

或者使用GoTo，比如下面的代碼計算肯定是溢出的，但程序不會退出，不過會提示： On Error GoTo ToExit

Dim g, ErrNum As Boolean

g = 1

Do Until ErrNum

g = g * 1024

Loop

ToExit:

If Err.Number = 6 Then

Print “程序溢出，計算結果不準確”, g

Exit Sub

End If

或者使用以下代碼，可以完全顯示計算過程：

Dim WithEvents List As ListBox

Private Sub Form_Load()

On Error GoTo ToExit

Dim g, ErrNum As Boolean

g = 1

Set List = Me.Controls.Add(“VB.ListBox”, “List”)

With List

.Left = 0

.Top = 0

.Width = Form1.Width490

.Visible = True

End With

Do Until ErrNum

g = g * 1024

List.AddItem g

Loop

ToExit:

If Err.Number = 6 Then

List.AddItem “程序溢出，計算結果不準確” & g

Exit Sub

End If

End Sub

追問

是不是要在每一個容易出錯的sub里面都要這樣加一下？有沒有整體設置一下或者寫代碼的？每個sub都寫一下也挺麻煩的回答

首先，第一行是每個里邊都需要有的，有了這一行，才會執行錯誤跳轉。

比如上邊的第二段代碼也可以這樣寫：這樣在每段容易出錯的過程中，加上第一個的On Error GoTo ToExit和最后一行的ToExit: MsgBox “程序出現錯誤！” & Chr(10)& “錯誤類型：” & Error(Err.Number), 16即可。當然，你需要在Esub這個子過程中，把所有可能會涉及到的錯誤代碼都添加上。如果只想知道哪里錯了，也可以直接提醒，出錯也是可以的Private Sub Form_Load()

On Error GoTo ToExit

Dim g, ErrNum As Boolean

g = 1

Do Until ErrNum

g = g * 1024

Loop

ToExit: MsgBox “程序出現錯誤！” & Chr(10)& “錯誤類型：” & Error(Err.Number), 16

End Sub

第四篇：VB心得

在這次VB課程設計過程中，我最大的收獲就是有二，一是與其臨淵羨魚，不如退而結網，無論什么事情，一定要去做，困難在你的勇氣和毅力下是抬不了頭的。二是深刻地認識到，做事情一定要有耐心，無論遇到什么困難，都不能心煩，否則就很難把事情好。一開始，我以為三天就可以把課程設計搞好，誰知道我們搞了差不多一個星期。界面的設計倒是沒什么問題，最有問題的就是編程了，編程是非常耗時和精力的。這一點我是深有體會的。有一次我的代碼有點錯誤，但我看了一遍又一遍，還是找不出問題所在，最后發現就是少了一個空格，就是一個空格花了我整整一個上午。唉！難怪我經常聽到說，編程實在是太麻煩了，看到頭都大了，看到就心煩了。就是一個小小的問題就讓你花去一個早上的時間。所以我們無論做任何事情都要細心和耐心。無論做什么事情，我認為最重要的是在做事過程中學到東西，吸取教訓。

這是我第一次系統的、完整的接觸到軟件設計的全過程。在這次課程設計中我得到了鍛煉，也有很多體會。以前僅僅是對軟件開發有一個大體的印象，通過這次VB課程設計，我對軟件的開發有了切身的體會。軟件并不像我原來所想的那樣神秘，而是有著一個相對固定的模式和流程。軟件的制作是一個系統的工程，需要我們掌握多方面的知識。在此次設計中，覺得自己的知識有很大的欠缺，遇到了許多不懂的東西，無奈下去翻書才發現許多東西書上都有，只怪平常太少看書，聽課又不夠認真。以前學習計算機語言，總是靜不下心來，不能認真的看書。這次的課程設計，為了順利的完成編程任務，認真的細讀了VB課本，有了一定的心得體會。所以在以后的學習中，自己一定要全身心投入，這樣學習才會有效率，才會有效果。

第五篇：VB論文

學生姓名 ：曹超

班 級 ：1226001 學 號 ：201220600107 專 業 ：采礦工程

日期: 2014 年 12 月 18 日

學習VB的心得體會

這學期選修了VB這門學科，想從學習中對計算機有更深刻的認知，也對我大學中的計算機2級考試奠定基礎。那么談談這學期的學習中對vb的認知和心得體會。

一、Visual Basic 簡介

Visual Basic 是Microsoft 公司開發的Windows 應用程序開發工具，Visual ——“可視化的”，是一種開發圖形戶界面(GUI)的方法，使得非計算機專業的人也可以開發出專業的Windows軟件。Visual Basic繼承了BASIC語言簡單易學的優點，又增加了許多新的功能，它采用面向對象與事件驅動的程序設計思想，使編程變得更加方便、快捷，使用Visual Basic既可以開發個人或小組使用的小型工具，又可以開發多媒體軟件，數據庫應用程序，網絡應用程序等大型軟件，是國內外最流行的程序設計語言之一。英文Visual的意思是“視覺的”，“可視的Baisc”這個名字可能抽象了點，但實際上它卻是最直觀的編程方法，之所以叫做“可視”，你只要看到VB的界面就會明白，實際上你無需編程，就可以完成許多步驟。在VB中入了控件的概念，在Windows中控件的身影無處不在，如按鈕、文本框等。VB把這些控件模式化，并且每個控件都有若干屬性用來控制控件的外觀，工作方法，能夠響應用戶操作(事件)。這樣你就可以象在畫板上一樣，隨意點幾下鼠標，一個按鈕就完成了。這些在以前的編程語言下是要經過相當復雜的工作的。

可視化設計：Visual Basic為用戶提供大量的界面元素(在Visual Basic中稱為控件對象)，例如 “窗體”、“菜單”、“命令按鈕”、“工具按鈕”、“檢查框”等等。用戶只需要利用鼠標，鍵盤把這些控件對象拖動到適當的位置，設置它們的大小，形狀，屬性等，就可以設計出所需的應用程序界面。

事件驅動編程：Windows操作系統出現以來，圖形化的用戶界面和多任務多進程的應用程序要求程序設計不能是單一性的，在使用Visual Basic設計應用程序時，必須首先確定應用程序如何同用戶進行交互。(例如發生鼠標單擊，鍵盤輸入等事件時，用戶必須編寫代碼控制這些事件的響應方法)這就是所謂的事件驅動編程。

程序設計方法概述

1、初期的程序設計

高運行效率，少占用內存為目標

2、結構化程序設計

程序的可讀性，可維護性為目標

程序=算法+數據結構+計算機語言+面向過程的程序設計方法

3、面向對象的程序設計(OOP)

降低程序的復雜性，提高軟件的開法效率和改善工作界面為目標

程序=對象+消息+面向對象的程序設計

Visual Basic 特點

1、具有面向對象的可視化設計工具

2、事件驅動的編程機制

3、結構化的程序設計語言

4、提供了易學易用的應用程序集成開發環境

5、支持多種數據庫系統的訪問

6、高度可移植化的代碼

7、VB6.0在開發環境上，網絡功能等的大大增強。

二、對VB的理解

（1）VB不只是數據庫和報表。不要以為VB就是數據庫和報表，這只是VB強大功能的一小部份。如果這此都搞不清，還是好好的看一下相關的書籍，比在這里問問題有用多了。我以前沒有學過數據庫，只是有些編程的思路，后來學數據庫就非常容易了。我做報表一般用RichTextBox或是From來做，一般都能做的很好，也不用去考慮什么水晶報表了。

（2）不要迷信于API。API能做很多東西，但有些東西在VB里面的函數中就有，API只是VB對WindowsSDK的封裝而已。如果想學好API，建議學習SDK。如果VB本身就能很好的支持這個功能，何必還要用API呢。

（3）不要什么都想著控件。如果做程序都想著第三方控件的話，代價是很高的，不僅程序大，安全性也低了很多。其實VB本身帶的控件已經完全夠用了。

（4）認認真真的把MSDN中關于VB的內容好好看一看，特別是函數和語句，很有用的。

（5）遇到問題不要直接來這里問，自己好好想一想，試著解決這個問題，這雖然在時間上慢了，可是在自身的提高上卻有很大的幫助。

（6）沒事的時候，多研究些語言上的東西，如數據結構和算法，不要老是想著什么花哨的東西。這對以后的提高非常有幫助。如何學好VB程序設計

1、學習程序設計的基本要求

2、VB的功能及特點

3、學習VB程序設計的方法

對學習者知識的要求：

首先，學習程序設計要具備一定的數學基礎，計算機與數學有很大的聯系，綜觀計算機歷史，計算機的數學模型(圖靈機，由Alan Turing提出)和體系結構(由John Von Neuman提出)等都是由數學家提出的。因此，要學習好計算機就要有一定的數學基礎，不過對于初學者來說，在數學基礎方面的要求并不是很高，從我個人的角度來看，有高中數學水平就差不多了。

其次，學習程序設計要有一定的邏輯思維能力，邏輯思維需要長時間的鍛煉，如果你覺得自己在邏輯思維能力上有不足，也沒有關系，因為編寫程序本身也是對邏輯思維的鍛煉，初學程序設計應具備的邏輯基礎可以從高中數學中學到。

學習程序設計基本要求：

熟悉Visual Basic操作環境與設計工具，能設計應用程序界面。掌握，理解面向對象程序設計基本概念。

掌握VB語言的基礎知識，程序設計的方法。

能閱讀一般難的程序；

能應用編寫一些簡單程序；

具有用Visual Basic開發Windows環境下應用程序的能力和閱讀分析一般難度的VB程序的能力。

面向對象的程序設計具有如下的優點：

1、符合人們習慣的思維方法，便于分解大型的復雜多變的問題。由于對象對應于現實世界中的實體，因而可以很自然地按照現實世界中處理實體的方法來處理對象，軟件開發者可以很方便地與問題提出者進行溝通和交流。

2、易于軟件的維護和功能的增減，對象的封裝性及對象之間的松散組合，都給軟件的修改和維護帶來了方便。

3、可重用性好。重復使用一個類(類是對象的定義，對象是類的實例化)，可以比較方便地構造出軟件系統，加上繼承的方式，極大地提高了軟件開發的效率。

4、與可視化技術相結合，改善了工作界面。隨著基于圖形界面操作系統的流行，面向對象的程序設計方法也將深入人心，它與可視化技術相結合，使人機界面進入GUI時代。

三、學習VB程序設計的方法

(1)保持良好的學習心態

1、要有自信,自強,積極主動學習.2、克服畏難情緒,樹立學好程序設計的信心(2)要有良好的學習習慣

1、課前預習,認真聽課并適當做些筆記,課后要認真復習消化所學內容,完成作業.2、VB程序設計的入門學習并不難,但卻是一個十分重要的過程,因為程序設計思想就在這時形成的,良好的程序設計習慣也在這個階段養成.(3)學習程序設計要注重理解一些重要的概念.VB程序設計本身并不復雜,翻開一本程序設計學習的書籍,看到的無非就是變量,函數,條件語句,循環語句等概念.但要真正能進行程序設計,需要深入理解這些概念.因此,在 程序入門階段還是應該重視概念的學習.(4)自己動手編寫程序

程序設計入門階段要經常自己動手抄寫或編寫一些小程序,親自動手進行程序設計是創造性思維應用的體現,是培養邏輯思維的好方法.因此一定要多動手編寫程序,而且要從小程序開發開始,逐漸提高寫程序的能力.(5)閱讀,借簽別人設計的好程序

多看別人設計好的程序代碼,包括教材上的例題程序.在讀懂別人程序后,要想他為什么這么設計能不能將程序修改完成更多的功能 則可以學到別人優秀的東西,幫助自己 提高自身水平.(6)VB程序設計學習的重點

1、程序設計課是高強度的腦力勞動,不是聽會的,也不是看會的,而是練會的.2、只有自己動手,編寫一些程序,才會有成就感,進而對課程產生興趣,學起來才比較從容.等你在編寫大量程序之后,我想過二級肯定沒問題，不過能不能做到真知灼見,運用自如我就不敢說了.3、動手能力的培養是這門課和以往課程最大的不同之處.重點放在思路,算法,編程構思和程序實現上.語句只是表達工具,要求堂上積極思考,盡量當堂學懂,并做到靈活應用.(7)上機調試程序應注意的幾點:

1、上機前應認真把實驗題在用紙上做一做(包括窗體界面設計,事件代碼的編寫等)

2、每次上機后應總結,把沒有搞清楚的問題記錄下來,請教老師或同學.3、平時應多抽課余時間多上機調試程序.注意系統的提示信息,遇到問題多問幾次為什么.(8)養成良好的編程習慣

1、程序構思要有說明;

2、學會如何調試程序;

3、對運行結果要做正確與否的分析.四、學習VB的意義

1、充實生活。業余時間到處游手好閑的身影不見了，沒事我肯定一動不動的坐在電腦面前擺弄VB。是啊，想想以前，真是一無是處，不是打游戲，就是看小說。現在生活有了寄托，是VB給了我無窮的快樂，讓我樂此不疲。

2、武裝頭腦。VB是一門計算機編程語言，也算是一項知識含量較高的東西吧。VB語言容易上手，采用的是可視化程序設計。通過學習VB，擴展了自己的視野，讓自己的知識得到了增加。

3、鍛煉意志。編程可不是一項輕松的活，尤其是一個人開發制作軟件時，那工作量就多了。沒有一定的坐功、細心程度及耐性那是絕對做不到的。有時，把程序做完了需要調試運行，但是就是不能達到自已設計的效果和目的，那你得戴上放大鏡找啊找啊，也許就是因為一個符號或一個字母，你就得花上個幾個小時，半天，甚至更長。越是這樣越不要灰心，應該放松心態，一點一滴的去查。只要有一顆永不退縮的心，我相信你一定能找到問題所在，最后一定能見到你開心的笑容，也一定能找到成功者的感覺。

4、獲得成就感。經過學習VB，我編寫了一些小程序，例如計算器，貪吃蛇等。每當調試成功的時候，感到特別興奮，成就感十足。

五、小結

通過選修課的學習，對了VB這種高級語言有了進一步的認知，對一些小的程序有了初步的設計方案，能根據要求設計出想要的程序，鍛煉了自己的創造性思維，同時我經常看同學設計好的程序代碼，包括教材上的例題程序，然后想想別人為什么這么計就能達到效果，我的設計能不能完成更多的功能，這樣優秀了自己，幫助了自己，提高了自身水平，同樣，也欣賞了別人，對別人是贊美，對自己是幫助，總而言之，這學期的VB課程讓我收獲了很多，使我對計算機2級考試有了信心。